ACCESS VBA导出数据库表到XLS文件

最新推荐文章于 2024-09-22 11:17:00 发布

13jjyao

最新推荐文章于 2024-09-22 11:17:00 发布

阅读量1.3k

点赞数

分类专栏： ACCESS 文章标签：数据库

本文链接：https://blog.csdn.net/yaojinjian1995/article/details/105785940

版权

ACCESS 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

1. 前言

本例简析通过ACCESS VBA查询语句导出所有数据库表到XLS文件。

2. 相关知识

2.1 导出数据到表格查询代码

有四种方法，可选其中一种。其中D:\test.xls表示导出到D盘，命名为test.xls； Sheet1是工作表的名字；表名，是数据库对应的表。

DoCmd.RunSQL "Select * INTO [Excel 8.0;DATABASE=D:\test.xls].[Sheet1] FROM 表名"
DoCmd.RunSQL "Select * INTO [Sheet1] IN 'D:\test.xls'[EXCEL 8.0;] FROM 表名" 
DoCmd.RunSQL "Select * INTO [Sheet1] IN 'D:\test.xls' 'EXCEL 8.0;' FROM 表名"
DoCmd.RunSQL "Select * INTO [Sheet1] IN 'D:\test.xls' 'excel 8.0;' FROM 表名"

2.2 ADOX.Catalog

ADOX属于ADO扩展库，所以引用时，需在VBA菜单栏的【工具】->【引用】里勾选Microsoft ADO类库；

Catalog是ADOX的一个对象，用来描述数据源模式目录的。

2.3 系统表

系统表由系统自动创建，包含了数据库对象的相关信息，都是以MSys开头。

3. 源码解析

Private Sub transXLSSchema()
    databaseName = "D:\test.mdb"     '要操作的数据库
    exportPath = "D:\test.xls"       '输出的表格名称
     
    DoCmd.SetWarnings False          '去除所有的系统提示
    Dim mycat As New ADOX.Catalog    '创新新对象
    mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & databaseName     '连接数据库
    For i = 0 To mycat.Tables.Count - 1             '遍历表
        itemName = mycat.Tables.Item(i).Name
        If InStr(itemName, "MSys") = 0 Then         '这里的目的，是去除所有自动创建的系统表的干扰
            Debug.Print "[DB TABLE]:" & itemName
            DoCmd.RunSQL "Select * INTO [" & itemName & "] IN '" & exportPath & "'[EXCEL 8.0;] FROM " & itemName       '查询代码执行
        Else
            Debug.Print "[SYSREM TABLE]:" & itemName
        End If
    Next
    
    mycat.ActiveConnection = Nothing        '断开连接
    
    MsgBox "程序执行完毕！"
    
End Sub