Delphi控制Excel输出上标示例

unit FfrmMain;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RzButton;

type
TfrmMain = class(TForm)
RzBitBtn1: TRzBitBtn;
procedure RzBitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

const
FileName: string = 'd:\t.xls';

implementation

{$R *.dfm}

Uses ComObj;

procedure TfrmMain.RzBitBtn1Click(Sender: TObject);
var
XlApp, XlWorkbook, XlSheet: Olevariant;
i, j: integer;
Range: Olevariant;
begin
Try
XlApp := createOleObject('Excel.Application');
XlApp.visible := false;
XlWorkbook := XlApp.workbooks.add;
XlSheet := XlWorkbook.sheets.add;
except
showmessage('你还没有安装Microsoft Excel,请先安装！');
XlApp.Quit;
XlSheet := Unassigned;
XlWorkbook := Unassigned;

XlApp := Unassigned;
exit;
end;

XlSheet.Cells[1, 1] := 'M2';
XlSheet.Cells[1, 1].Characters[2, 1].Font.Superscript := True;
XlSheet.rows[1].insert;
XlSheet.Columns.EntireColumn.AutoFit;
if FileExists(FileName) then
begin
if MessageDlg('文件已经存在，要替换吗？', mtConfirmation, [mbyes, mbno], 0) = mrno then
begin
XlApp.Quit;
XlSheet := Unassigned;
XlWorkbook := Unassigned;
XlApp := Unassigned;
exit;
end;
end;

try
XlWorkbook.SaveAs(FileName);
except
showmessage('导出失败，请检查你对该文件是否有写权限！');
XlApp.Quit;
XlSheet := Unassigned;
XlWorkbook := Unassigned;
XlApp := Unassigned;
exit;
end;
showmessage('导出成功！');
XlWorkbook.Saved := True;
XlApp.Quit;
XlSheet := Unassigned;
XlWorkbook := Unassigned;
XlApp := Unassigned;
end;

end.

XlSheet.Cells[1, 1] := 'M2';
XlSheet.Cells[1, 1].Characters[2, 1].Font.Superscript := True;