请问在DELPHI中用ADO怎样连接Excel？

Question

请问在DELPHI中用ADO怎样连接Excel？
写个事例语句看看，谢谢！

Answer 1

with qrySel do
  begin
    ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+ 'e:\test.xls' + ';Extended Properties=Excel 8.0;';
    Close;
    SQL.Clear;
    sql.Add('SELECT * FROM [Sheet1$]');
    try
      Open;
    except
    end;
  end;

Answer 2

with qrySel do
  begin
    ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+ 'e:\test.xls' + ';Extended Properties=Excel 8.0;';
    Close;
    SQL.Clear;
    sql.Add('SELECT * FROM [Sheet1$]');
    try
      Open;
    except
    end;

Answer 3

上面的连接字符串写法有点问题,应该为:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1"其中IMEX=1相当重要,不然有些EXCEL数据不能读入

Answer 4

Extended Properties="Excel 8.0 相当重要，如果用Ado连接的话 在 “所有” 里面设置

Answer 5

adoquery1.Close;
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\temp\123;Extended Properties=excel 8.0;Persist Security Info=False';
adoquery1.sql.add('select * from [sheet1$]')

Answer 6

Extended Properties="Excel 8.0 相当重要，如果用Ado连接的话 在 “所有” 里面设置

Answer 7

adoquery1.Close;
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\temp\123;Extended Properties=excel 8.0;Persist Security Info=False';
adoquery1.sql.add('select * from [sheet1$]')
这样打开为独占方式打开