簡單的例子

1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 ExcelApp,MyWorkBook: OLEVariant; 4 begin 5 opendialog1.Filter:='Microsoft Excel Workbook (*.xls)|*.XLS|'; 6 edit2.Text := 'sheet1'; 7 if opendialog1.Execute then 8 begin 9 edit1.Text:=opendialog1.FileName; 10 try 11 ExcelApp:=CreateOleObject('Excel.Application'); 12 MyWorkBook:=CreateOleobject('Excel.Sheet'); 13 except 14 application.Messagebox('無法打開Xls文件，請確認已 經安裝EXCEL.','', 15 mb_OK+mb_IconStop); 16 Exit; 17 end; 18 MyworkBook:= ExcelApp.workBooks.Open(opendialog1.FileName); 19 //打開文件后，對文件進行操作 20 label1.caption := MyWorkBook.WorkSheets[1].Cells[1,1].Value; 21 end; 22 end;

?

轉載于:https://www.cnblogs.com/crazyxiaom/p/3886936.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的delphi读取excel的全部內容，希望文章能夠幫你解決所遇到的問題。

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