delphi读取excel

简单的例子

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的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。