delphi - 使用 ADODataset 组件打开 Excel 电子表格

Question

我正在使用 ADOdataset 组件在 Delphi 表单上查看 Excel 电子表格。

该组件要求将 CommandText 属性设置为正在打开的工作簿中的电子表格的名称。

如何设置此属性以打开工作簿中的第一个电子表格(无论名称如何)？

<小时/>

procedure TForm1.BitBtn1Click(Sender: TObject); 
   var   XLSFile, CStr : string; 
begin    
   if OpenDialog1.Execute() then 
   begin
       XLSFile := OpenDialog1.FileName;

       CStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='   
           +XLSFile+'; Extended Properties=Excel 8.0;Persist Security Info=False';

       ADODataSet1.Active := False;    
       ADODataSet1.ConnectionString := Cstr;    
       ADODataSet1.CommandText := ??????????; 
       ADODataSet1.Active := True;
    end;    
 end;

Answer 1

你不能，你必须知道页面的名称。使用TADOConnection连接到工作簿，以便您可以调用 GetTableNames检索页面的名称。有一个例子here 。然后，您可以将 ADO 数据集或 ADO 查询的 Connection 属性设置为连接对象并运行查询。