仍然是Excel的问题，不用connection,直接得到文件，进行操作

Question

用ADOX吧。EXCEL作为数据库，SHEET作为表，列作为字段
在你硬盘上搜索ADO210.CHM看看ADOX部分，你的问题就是怎么列出所有表名和字段名。
给你这些提示，再不会来信：[email protected]

Answer 1

引用excel对象
dim xpp as excel.application
dim xworkbook as excel.workbook
dim xworksheet as excel.worksheet
dim excelsheetname() as string
'对各个对象进行引用 
'略
redim excelsheetname(xworkbook.worksheets.count)for i=1 to xworkbook.worksheets.count
  excelsheetname(i-1)=xworkbook.worksheets(i).name
next i'field同上