Delphi開啟ExcelVar//需在ueses中引用comobj

ExcelApp:variant;

path,HeBing,Excel_Name:string;

Range:Variant;

///////////////////////////////////////////////////////////////////////////////

path:=extractfiledir(application.ExeName);

try

ExcelApp:=GetActiveOleObject("Excel.Application");

except

ExcelApp:=CreateOleObject("Excel.Application");

end;

ExcelApp.Visible:=True;

ExcelApp.Caption:="應用程式呼叫MicrosoftExcel";

ExcelApp.WorkBooks.Open(path+"\Excel檔名.xls");

ExcelApp.worksheets[1].activate;//表1啟用