直接上代碼吧,這個示例在Excel中輸出一個M²：

unit FfrmMain;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RzButton;typeTfrmMain = class(TForm)RzBitBtn1: TRzBitBtn;procedure RzBitBtn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varfrmMain: TfrmMain;constFileName: string = 'd:\t.xls';implementation{$R *.dfm}Uses ComObj;procedure TfrmMain.RzBitBtn1Click(Sender: TObject); varXlApp, XlWorkbook, XlSheet: Olevariant;i, j: integer;Range: Olevariant; beginTryXlApp := createOleObject('Excel.Application');XlApp.visible := false;XlWorkbook := XlApp.workbooks.add;XlSheet := XlWorkbook.sheets.add;exceptshowmessage('你還沒有安裝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) thenbeginif MessageDlg('文件已經存在，要替換嗎？', mtConfirmation, [mbyes, mbno], 0) = mrno thenbeginXlApp.Quit;XlSheet := Unassigned;XlWorkbook := Unassigned;XlApp := Unassigned;exit;end;end;tryXlWorkbook.SaveAs(FileName);exceptshowmessage('導出失敗，請檢查你對該文件是否有寫權限！');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;

至于屬性，查資料或通過宏來看吧。

轉載于:https://www.cnblogs.com/GarfieldTom/p/6222383.html

總結

以上是生活随笔為你收集整理的Delphi控制Excel输出上标示例的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。