如何获取一个未打开的excel工作簿中工作表的个数

yc2008

各位老师，我是一个刚学习宏的新手，我想获取一个未打开的excel工作簿（该文件的路径是固定的）中工作表的个数，不知道如何进行，恳请高手老师来帮忙，谢谢

[ 本帖最后由 yc2008 于 2010-1-28 22:06 编辑 ]

laoyebin

从后台打开此表，然后sheets.count
或者可以用ADOX

没有真正的不打开表就能取值的

lu_zhao_long

原帖由 laoyebin 于 2010-1-28 22:28 发表
从后台打开此表，然后sheets.count
或者可以用ADOX

没有真正的不打开表就能取值的

同意 2楼的看法！

zyg365

Sub 获取工作表名称及个数()
'引用Microsoft ADO Ext. 2.8 for DDL and Security
    Dim cat  As New ADOX.Catalog, i As Integer
    Dim tb1 As Table, str1 As String, str2 As String
   
    str1 = Application.GetOpenFilename(filefilter:="Excel文件(*.xls),*.xls", _
        Title:="选择Excel工作簿")
   
    If str1 = "False" Then Exit Sub
    str2 = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=No';"
    str2 = str2 & "Data Source=" & str1
   
    On Error Resume Next
   
    cat.ActiveConnection = str2
   
    i = 1
    With ActiveSheet
        .Cells(i, 1) = "指定工作簿的工作表名称："
        i = i + 1
        For Each tb1 In cat.Tables
            If tb1.Type = "TABLE" Then
                .Cells(i, 1) = tb1.Name
                i = i + 1
            End If
        Next
msgbox "工作表个数：" & I   
End With
   
    Set cat = Nothing
End Sub

LMY123

For Each tb1 In cat.Tables