利用ADO如何獲取工作薄里的所有工作表名稱？（已解決）

zhidao

如題，知道的能否給說一下

盜夢

用ADOX獲取吧

zhidao

盜夢 發(fā)表于 2015-6-15 15:15
用ADOX獲取吧

有實(shí)例參考一下嗎？

盜夢

zhidao 發(fā)表于 2015-6-15 15:17
有實(shí)例參考一下嗎？

剛剛百度查了一下，ADO也可以：百度文庫

或者你直接用ADO讀取 Access的系統(tǒng)表 "MsysObjects" 里面有存放所有表，窗體等信息

至于ADOX，只要你打開 ADOX.Catalog 遍歷 其中的Tables集合即可

todaynew

參見：http://m.mzhfr.cn/forum.p ... BB%B4%F2%BF%AAExcel

Function GetSheetName(filepath As String, n As Integer) As String
    '功能：返回標(biāo)簽名稱
    '引用：Mocrosoft ADO Ext 2.8 for DDL and Securty
    '參數(shù)：filepath--Excel文件名，n--標(biāo)簽序號（從1開始）
    Dim conn As New ADODB.Connection
    Dim cat As New ADOX.Catalog
    Dim sheetname As String
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";Extended Properties=Excel 8.0;"
    conn.Open
    Set cat.ActiveConnection = conn
    sheetname = cat.Tables(n - 1).Name

    conn.Close
    Set cat = Nothing
    Set cnn = Nothing
    GetSheetName = sheetname
End Function

zhidao

盜夢 發(fā)表于 2015-6-15 15:23
剛剛百度查了一下，ADO也可以：百度文庫

或者你直接用ADO讀取 Access的系統(tǒng)表 "MsysObjects" 里面有存 ...

謝謝你的幫助，辛苦了，

zhidao

todaynew 發(fā)表于 2015-6-15 16:06
參見：http://m.mzhfr.cn/forum.p ... BB%B4%F2%BF%AAExcel

Function GetSheetName(filepath As  ...

正在學(xué)習(xí)中，謝謝幫助