簡單的例子

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文件，請確認已 經(jīng)安裝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;

?

轉(zhuǎn)載于:https://www.cnblogs.com/crazyxiaom/p/3886936.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯，堅持創(chuàng)作打卡瓜分現(xiàn)金大獎

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。