不打开工作薄取得工作表名称

XUZHANCHENG

每次打开和关闭工作薄，取得工作表的名称，时间很慢，是否有不打开工作薄，取得工作表名称的方法那？谢谢指教

lotustower

20 Apr 2007 發問 .........可悲的

版主 不看, 不回答 !!!!    [em04]

-------------------------------

用 ADO 方法 , 請參考

Sub GetSheetNames()
    Dim CDLG As Object, ADOX As Object, TableName As String
    Set CDLG = CreateObject("MSComDlg.CommonDialog")
    Set ADOX = CreateObject("ADOX.Catalog")
    With CDLG
        .DialogTitle = "開啟檔案!"
        .Filter = _
        "Excel File|*.xls"
        .ShowOpen
        dbFile = .Filename
    End With
    strProvider = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & dbFile & ";"
    With ADOX
        .ActiveConnection = strProvider
        For i = 0 To .Tables.Count - 1
            TableName = .Tables(i).Name
            If Right$(TableName, 1) = "$" Then
                MsgBox 工作表名稱:" & Left$(TableName, Len(TableName) - 1)
            End If
        Next i
    End With
    Set CDLG = Nothing
    Set ADOX = Nothing
End Sub

XUZHANCHENG

呵呵，谢谢，迟到了好几个月的谢谢

惭愧的心

NWNvyvDB.rar (18.7 KB, 下载次数: 95)

2008-2-13 20:05 上传

点击文件名下载附件
不打开工作薄取得工作表名称

我另建了一个有代码的工作簿,对附件的工作簿进行如此操作,却不行,为什么呢??

lotustower

Tested OK

MsgBox "工作表名稱:" & Left$(TableName, Len(TableName) - 1)

XUZHANCHENG

向lotustower，致敬，  使用繁体的高手

xsxyj005

请问,,我把代码复制下来以后..执行时,在第一句

Set CDLG = CreateObject("MSComDlg.CommonDialog")

出现错误提示:ActiveX不能创建对象.

请问是不是还要引用什么?

不过还是很感谢..我把代码稍为修改一下..基本能满足自己的要求了..

[此贴子已经被作者于2008-5-30 14:30:31编辑过]

fdd

我这里也提示：ActiveX不能创建对象。可能是引用吧？但也看不到是引用哪一个。
新手面前处处难！