不打开另一个工作簿取它里面的工作表名
Sub test() Dim cn As Object, cat As Object, tbl As Object, str$ Set cn = CreateObject("ADODB.Connection") Set cat = CreateObject("ADOX.Catalog") Set tbl = CreateObject("ADOX.Table") cn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "/test.xls" cat.ActiveConnection = cn For Each tbl In cat.Tables str = str & Replace(tbl.Name, "$", "") & vbCrLf Next MsgBox str cn.Close Set cn = Nothing Set cat = Nothing Set tbl = Nothing End Sub
注意:1、没有真正意义上的不打开表,这个示例是用数据库引擎打开的,是一种隐式的打开方法。
2、输出结果是按字母顺序排序的,而不是那个工作簿里面真正的表的顺序。
作者:laoyebin(Paladin.lao)
出处:http://www.cnblogs.com/laoyebin/
网赚 :https://laoyebin.com/
优惠码发布:https://yhmfb.com/
导读网:https://daodu.co/
外汇吧:https://waihui.pub/
本文版权归作者和博客园共有,欢迎转载,但请保留作者信息和原文链接,非常感谢。
反馈文章质量,你可以通过快速通道评论: