(分享)获取其它工作簿工作表名

tanhong

方法一:
Private Sub GetSheetName()
  Set VBEXCEL = CreateObject("Excel.Application")
    VBEXCEL.Workbooks.Open CurrentProject.Path & "\表名.xls"
    For i = 1 To VBEXCEL.Worksheets.Count
        Debug.Print VBEXCEL.Worksheets(i).Name
    Next
    VBEXCEL.Quit
    Set VBEXCEL = Nothing
End Sub

方法二:
Sub Main()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
   
    Set cnn = New ADODB.Connection
    cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\Book1.xls;DefaultDir=C:\"
   
    Set rst = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))
    While Not rst.EOF
        Debug.Print rst!TABLE_NAME
        rst.MoveNext
    Wend
   
    Set rst = Nothing
    Set cnn = Nothing
End Sub

tanhong

方法一测试没问题, 方法二大家自己测试

Henry D. Sy

谢谢分享

huangqinyong

赞一个

tmtony

谢谢分享!

courageous

[:50] [:50]

carcheck2008

谢谢版主

gdjdyyj

学习了!!!

gdjdyyj

学习!!!!

gdjdyyj

学习!!!