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

本文整理自网络，侵删。

 
引用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+';Extended Properties=excel 12.0;'+
                             'Persist Security Info=True';//注意不能为false
 
 
    Conn.LoginPrompt:=false;
    Conn.Connected:=true;
    qry.Connection:=Conn;
    qry.close;
    qry.SQL.Clear;
    qry.SQL.add('select * from ['+sheet1+'$]');
    qry.Active:=true;
end;

附上各个EXCEL版本的版本号：
版本号  Excel名称
2.0       Excel 2.0
3.0       Excel 3.0
4.0       Excel 4.0
5.0       Excel 5.0
7.0       Excel 95
8.0       Excel 97
9.0       Excel 2000
10.0     Excel XP
11.0     Excel 2003
12.0     Excel 2007
13.0     Excel 2010
15.0     Excel 2013
――――――――――――――――

原文链接：https://blog.csdn.net/songling418/article/details/14054359
 

相关阅读 >>

Delphi firedac 的recordcount 相关测试 记录

Delphi adoquery1数据表参数调用

Delphi复制整个文件夹(当然包括嵌套文件夹)

Delphi 多种编码转换

Delphi 判断是否是0-9数字

Delphi xe 枚举指定目录及子目录下的所有文件

Delphi mscomm 比较完整的用法例子

Delphi 清空某个form的控件内容,用tag来判断

Delphi调用外部程序并等待其运行结束

Delphi 查看指定进程占用端口

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi ADO 连接 Excel （附Excel各个版本的版本号）