Access數據庫是微軟一個經典的小型數據庫，該數據庫在職場辦公環境中有着廣泛的應用，對于辦公環境中，單個部門或者跨部門的數據存儲、共享和交互有着重要的作用，彌補Excel表格在多人共享和數據存儲的不足。
本篇《神奇的VBA》将繼續分享Access方面操作，如何從Access數據庫中查詢所有數據庫表信息。
首選注意事項：
VBE中務必添加引用“Microsoft Activex Data ObjectsLibrary” 任意版本即可。
示例代碼：
Sub 提取Access數據所有數據表名稱()
Dim Conn As New ADODB.Connection 'Microsoft Activex Data Objects Library
Dim rs As New ADODB.Recordset
Dim sSQL As String
Dim sConnect As String
Dim i As Long
sConnect ="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\baowangfu\Desktop\公司信息.accdb;Jet OLEDB:DatabasePassword=123456;"
Conn.Open sConnect
Set rs = Conn.OpenSchema(adSchemaTables, Array(Empty,Empty, Empty, "TABLE"))
If Not rs.EOF Then
Do While Not rs.EOF
i = i 1
ActiveSheet.Range("A" & i).Value = rs!TABLE_NAME
rs.MoveNext
Loop
End If
rs.Close
Conn.Close
End Sub
經過運行驗證，完美獲取數據庫中的所有表信息。運用本篇《神奇的VBA》分享的代碼，本篇抛磚引玉，實際運用時，用戶可以借鑒進行标準化封裝，便于複用。
原創碼字不易歡迎"點贊"，"轉發" 或點擊"在看"更多文章
《神奇的VBA》編程：一次性講清楚VBA注釋
《神奇的VBA》編程：另存工作表
《神奇的VBA》全面改版升級中
《神奇的VBA》一款Excel VBA編程學習插件
《神奇的VBA》編程：查詢Access數據庫
《神奇的VBA》編程：執行速度和效率(1)
《神奇的VBA》編程：根據次數重複排列數據
《神奇的VBA》編程：監控表格單元格值的變化
《神奇的VBA》編程：批量清除多個字符
《神奇的VBA》-職場牛人都在使用的Excel插件
《神奇的VBA》編程：提取超鍊接地址
《神奇的VBA》編程：批量替換表格文字(1)
《神奇的VBA》編程：批量替換表格文字(2)
《神奇的VBA》編程：批量替換表格文字(3)
《神奇的VBA》編程：高效拆分單元格數據
《神奇的VBA》編程：批量拆分單元格數據
《神奇的VBA》編程：執行速度和效率(2)
《神奇的VBA》編程：禁止修改Excel工作表名稱
《神奇的VBA》編程：禁止修改Excel工作表名稱
《神奇的VBA》編程：強制變量聲明 Option Explicit
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
