delphi - 寻找方法/组件来读取/编辑真正的 MS Excel 2007 文件

Question

我正在寻找指南(OLE/ADO)或现成的 native 组件来读取/编辑/写入 MS Excel 2007 文件。

到目前为止，iv 尝试了 Native excel ver2 和 txlsfile ver 4 、XLSReadWriteII ver 4，但似乎 Native excel 无法打开 excel 2007 。

txlsfile 或 XLSReadWriteII(抱歉我删除了它们，不记得是哪一个)可以打开/读取，但编辑和保存时仅生成 4kb 损坏的 xlsx 文件。

Answer 1

要使用 ADO 连接 Excel 2007 文件，您可以使用这样的连接字符串

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myExcel2007file.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES";

此连接字符串使用 Microsoft.ACE.OLEDB.12.0 提供程序，您可以从 (2007 Office System Driver: Data Connectivity Components) 下载该提供程序.

尝试此代码，其中显示了如何使用 ADO 连接到 Excel 2007 文件。

const
ExcelStr='Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties="Excel 12.0 Xml;HDR=YES";';

procedure TForm1.ButtonOpen(Sender: TObject);
begin
 try
   ADOConnection1.ConnectionString:=Format(ExcelStr,['C:\Documents and Settings\Administrator\My Documents\My Dropbox\excelfile2007.xlsx']); // set the name of your excel file
   ADOConnection1.Connected:=True; //connect to the excel file
   ADODataSet1.CommandText:='Select * from [Sheet1$]';//create your sql query
   ADODataSet1.Open; //open the excel file
    while not ADODataSet1.eof do 
    begin
      //do your job here. 
      //ADODataSet1.FieldByName('Field1').AsString



     ADODataSet1.Next;
    end;
 except
    on E:Exception do
      ShowMessage(Format('%s Error %s',[E.Classname, E.Message]));
 end;
end;