不知是早还是晚，呵呵。看看关于连续读excel问题与打包

Question

1、假设有一book里有10个sheet?
我想把它们依次读出来处理，怎么实现呀
For i = 1 To frmSeek.Adodc1.Recordset.RecordCount
    Str = "xlbook.worksheets(sheet" & i & ")"
    Set xlSheet = xlBook.Worksheets(Str)   '设置活动工作表
    ......
Next
2、我用到了excel，那么我在打包时，要打哪些东西，才能成功

Answer 1

1.好像是对的
2.不需要，只要那边装了excel就行（最好还是装一下，非要打的话vb那个打包程序会打一个excel的东西进去的，好不好用我不知道了）

Answer 2

select * from [excel 8.0;database=c:\book1.xls].[sheet1$]
select * from [excel 8.0;database=c:\book1.xls].[sheet2$]
...只要你执行上面SQL语句时用的Connection是jet4.0 即可。

Answer 3

没说清楚，excel里已经有排好版数据了，我要它们全部打印出来，表名是分别是sheet1...sheet10。我不要要读到集合里了