<em>vb</em>用ado如何遍历excel中所有工作表

这样写是没有问题的，如果出错的话，你检查一下看是其他哪里错了。

1、用抄VB　打开EXCEL　zd文件　
2、遍历sheets和cells

Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlbook = xlApp.Workbooks.Open("d:\hao\1.xls")

For i = 1 To xlbook.Worksheets.Count
Set xlsheet = xlbook.Worksheets(i)
aa=xlsheet.Cells(1, 1)

Next

End Sub

不需要用VB来切换，切换的方法如下：

　一、在Excel工作界面，左下抄角有工作表标签。点击其中的sheet1、sheet2、sheet3等标签就能在几个知工作表间切换。或者点击其左侧方向箭头也能道在标签之间切换。

　　二、快捷键“Ctrl+PgUp”、“Ctrl+PgDn”也可在几个标签间切换。

你是不是需要提取整个工作表目录。
新建一个目录工作表，按ALT+F11,打开代码窗口，双击目录工作表，粘贴以下代码，按运行即可。
Sub 序号目录链接()
Application.ScreenUpdating = False
Dim sht As Worksheet, irow As Integer, i%
i = Cells(Rows.Count, 1).End(xlUp).Rows.Count
Range("a2:b" & i).Clear
irow = 2 '在第2行写入第一条记录
For Each sht In Worksheets '遍历工作表
Cells(irow + 1, "A").Value = irow - 1 '写入序号
'写入工作表名，并建立超链接
ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "B"), Address:="", _
SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
'向工作表中添加一个超链接对象(hyperlinks),其中Anchor指定建立超链接的位置,address参数者指定超链接的地址e799bee5baa6e4b893e5b19e337,
'subaddress参数为超链接的子地址,texttodisplay参数指定要显示的超链接的文本
irow = irow + 1 '行号加1
Next
Range("a" & i).Delete
Application.ScreenUpdating = False
End Sub