ADO连接Excel的问题?

Question

用delphi 6 + access 开发一个软件,
遇到一个问题,
请问如何将Excel中所有的sheet的名字放到ComboBox1中??
请给些代码,谢谢.

Answer 1

adoconnection1.connectstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Book1.xls;Extended Properties=Excel 8.0;Persist Security Info=False'adoconnection1.GetTableNames(ListBox1.Items);

Answer 2

打开excel后,
使用定义的TExcelWorksheet对象和TExcelWorkbook对象,如:exlSheet: TExcelWorksheet;
    和exlWork: TExcelWorkbook;
    
其中exlSheet.worksheets.count表示有几个sheet,每个sheet有name属性,依次取出放入listbox即可