学步园

Sub test()<br /> Dim cn As Object, cat As Object, tbl As Object, str$<br /> Set cn = CreateObject("ADODB.Connection")<br /> Set cat = CreateObject("ADOX.Catalog")<br /> Set tbl = CreateObject("ADOX.Table")<br /> cn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "/test.xls"<br /> cat.ActiveConnection = cn<br /> For Each tbl In cat.Tables<br /> str = str & Replace(tbl.Name, "$", "") & vbCrLf<br /> Next<br /> MsgBox str<br /> cn.Close<br /> Set cn = Nothing<br /> Set cat = Nothing<br /> Set tbl = Nothing<br /> End Sub

注意：1、没有真正意义上的不打开表，这个示例是用数据库引擎打开的，是一种隐式的打开方法。

         2、输出结果是按字母顺序排序的，而不是那个工作簿里面真正的表的顺序。