Delphi ADO 连接 Excel （附Excel各个版本的版本号）

最新推荐文章于 2022-01-20 11:16:06 发布

「已注销」

最新推荐文章于 2022-01-20 11:16:06 发布

阅读量1w

点赞数

分类专栏： DELPHI

本文链接：https://blog.youkuaiyun.com/songling418/article/details/14054359

版权

本文介绍了如何在Delphi中利用ADO组件连接到Excel文件，并提供了从Excel 2.0到2010各个版本的对应版本号，帮助开发者更好地进行数据操作。

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

引用ComObj这个单元

Type
  Conn: TADOConnection;
  qry: TADOQuery;
  .
  .
  .

var
  Excel: OLEVariant;
  ExcelVersion: string;
begin
   try
      Excel := CreateOLEObject('EXCEL.Application');
      ExcelVersion := Excel.version;
   finally
      Excel.Quit;
      Excel := UnAssigned;
   end;
  Conn.Close;

  if ExcelVersion = '11.0' then
    //Excel2003及早期的版本
     Conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                            filename+';Extended Properties=excel 8.0;'+
                            'Persist Security Info=false;'  
  else //Excel2007及以后的版本
     Conn.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+
                            filename+';E