【原】《神奇的VBA》編程：獲取Access數(shù)據(jù)表列表

神奇的ExcelVBA 2022-05-19 發(fā)布于浙江

展開全文

Access數(shù)據(jù)庫是微軟一個經(jīng)典的小型數(shù)據(jù)庫，該數(shù)據(jù)庫在職場辦公環(huán)境中有著廣泛的應用，對于辦公環(huán)境中，單個部門或者跨部門的數(shù)據(jù)存儲、共享和交互有著重要的作用，彌補Excel表格在多人共享和數(shù)據(jù)存儲的不足。

本篇《神奇的VBA》將繼續(xù)分享Access方面操作，如何從Access數(shù)據(jù)庫中查詢所有數(shù)據(jù)庫表信息。

首選注意事項：

VBE中務必添加引用“Microsoft Activex Data ObjectsLibrary” 任意版本即可。

示例代碼：

Sub 提取Access數(shù)據(jù)所有數(shù)據(jù)表名稱()Dim Conn As New ADODB.Connection   'Microsoft Activex Data Objects LibraryDim rs As New ADODB.RecordsetDim sSQL As StringDim sConnect As StringDim i As Long sConnect ="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\baowangfu\Desktop\公司信息.accdb;Jet OLEDB:DatabasePassword=123456;"Conn.Open sConnectSet rs = Conn.OpenSchema(adSchemaTables, Array(Empty,Empty, Empty, "TABLE"))If Not rs.EOF ThenDo While Not rs.EOF i = i + 1   ActiveSheet.Range("A" & i).Value = rs!TABLE_NAME rs.MoveNextLoopEnd If rs.CloseConn.CloseEnd Sub

經(jīng)過運行驗證，完美獲取數(shù)據(jù)庫中的所有表信息。運用本篇《神奇的VBA》分享的代碼，本篇拋磚引玉，實際運用時，用戶可以借鑒進行標準化封裝，便于復用。