delphi 遍历EXCEL文档，查找指定区域的位置，并显示其值

最新推荐文章于 2023-01-17 15:09:54 发布

菜鸟欧少

最新推荐文章于 2023-01-17 15:09:54 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 技巧文章标签： excel delphi

本文链接：https://blog.youkuaiyun.com/tesily/article/details/54313004

本文档介绍如何使用Delphi编程来遍历Excel文件，定位到特定区域，并将该区域的单元格值展示出来，适用于需要处理Excel数据的开发者。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

遍历EXCEL文档，查找指定区域的位置，并显示其值

procedure TForm1.Button2Click(Sender: TObject);
var
   i:integer;
begin
     EApp := CreateOleObject( 'Excel.Application' );
     EApp.Workbooks.Open('d:\book4.xls');

     for i:=1 to EApp.worksheets.Count  do
     begin
       EApp.WorkSheets[i].Activate;
       try showmessage(inttostr(EApp.ActiveSheet.Range['yq_sm_type'].row)) except