使用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

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