請問 Delphi 怎樣可讀取Excel 的檔案? 要怎樣設定 ?

uses comobj;
var MyExcel: Variant;
begin
          MyExcel := CreateOleOBject('Excel.Application');
          MyExcel.WorkBooks.open('c:\test.xls');
          caption:=MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,1];
          MyExcel.WorkBooks[1].close;
          MyExcel.Quit;
end;

簡單吧! ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

請問如何select一段範圍並設定底色,謝謝.    

引言:

uses comobj;
var MyExcel: Variant;
begin
          MyExcel := CreateOleOBject('Excel.Application');
          MyExcel.WorkBooks.open('c:\test.xls');
          caption:=MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,1];
          MyExcel.WorkBooks[1].close;
          MyExcel.Quit;
end;

簡單吧! ～～～Delphi K.Top討論區站長～～～

var FSelection:variant; 請試試: MyExcel.WorkBooks[1].WorkSheet[1].Range['D1:D5'].Select; FSelection:=MyExcel.Selection; FSelection.Interior.ColorIndex = 6; //黃色 FSelection.Interior.Pattern = xlSolid;

我執行到這一行時,會出現'找不到指定模組' caption:=MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,1]; 請問我哪裡設定有問題,謝謝

我想有迴遷語句讀取excel中的cells.可是提示有如下錯誤:invalid variant operation. 不知為何處寫錯了!

可參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18996 @@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@