vba如何查询access行数（获取Access数据表列表）
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
,免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。文章投诉邮箱：anhduc.ph@yahoo.com
