如何用vba遍历access数据库中的所有表？

2022年1月12日 作者：水星Excel
2,540 次浏览 1评论

在access vba中，可以使用Application.CurrentData方法获取对当前打开使用的数据库的所有数据对象的引用，然后通过AllTables属性就可以获取所有的表格。

如以下的代码可以遍历当前access数据库中所有表格的名称：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，公众号：水星Excel
    Dim db As Database
    Set db = Access.Application.CurrentDb
    Dim AO As AccessObject
    For Each AO In Access.Application.CurrentData.AllTables
        '遍历所有的表格名称
        Debug.Print AO.Name
    Next
End Sub

其它相关文章推荐：

分类 :  access , VBA
标签 :  ,
       

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 

发表评论