【原】《神奇的VBA》编程：获取Access数据表列表

Access数据库是微软一个经典的小型数据库，该数据库在职场办公环境中有着广泛的应用，对于办公环境中，单个部门或者跨部门的数据存储、共享和交互有着重要的作用，弥补Excel表格在多人共享和数据存储的不足。

本篇《神奇的VBA》将继续分享Access方面操作，如何从Access数据库中查询所有数据库表信息。

首选注意事项：

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

示例代码：

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

Sub 提取Access数据所有数据表名称()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

经过运行验证，完美获取数据库中的所有表信息。运用本篇《神奇的VBA》分享的代码，本篇抛砖引玉，实际运用时，用户可以借鉴进行标准化封装，便于复用。

原创码字不易

欢迎"点赞"，"转发" 或点击"在看"

---