《神奇的VBA》编程:获取Access数据表列表

技术教程gslnedu2024-12-18 13:16:0214A⁺A^-

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》分享的代码，本篇抛砖引玉，实际运用时，用户可以借鉴进行标准化封装，便于复用。