区获取指定文件的工作表名的两个办法

上清宫主

便于自己学习，留存下来：

Sub 获取表名1()
'要引用microsoft ado ext. * for ddl and security
Dim shts As New ADOX.Catalog, ar()
shts.ActiveConnection = "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\客户信息.xls"
ReDim ar(1 To shts.Tables.Count)
For i% = 1 To shts.Tables.Count
   ar(i) = Left(shts.Tables(i - 1).Name, Len(shts.Tables(i - 1).Name) - 1)
Next
MsgBox Join(ar, " ")
End Sub

Sub 获取表名2()
Dim wk As Workbook, ar()
Set wk = Workbooks.Open(ThisWorkbook.Path & "\客户信息.xls")
ReDim ar(1 To wk.Sheets.Count)
For i% = 1 To wk.Sheets.Count
   ar(i) = wk.Sheets(i).Name
Next
wk.Close False
MsgBox Join(ar, " ")
End Sub

yaoxuejian

[em01]学习···

老糊涂

谢谢分享  

mn860429

adox{:091:}