Access开发：轻松一键将 Access 全库表格导出为 Excel

hi，大家好呀！

在日常工作中，Access 常常是我们忠实的数据管家，默默守护着项目信息、客户列表或是库存记录。它结构清晰，录入便捷，对于许多中小型应用场景来说，无疑是个得力助手。然而，当我们需要对这些数据进行更复杂的分析、制作更精美的图表，或是与未使用 Access 的同事共享时，Excel 的灵活性和普及性往往更胜一筹。

想象一下，你的 Access 数据库里包含了数十个甚至上百个数据表，记录着不同维度、不同周期的业务信息。现在，项目汇报在即，你需要将这些数据整合到 Excel 中进行深度分析和可视化呈现。如果手动操作，选中一个表，右键导出，选择 Excel 格式，命名文件，选择路径，确认......周而复始，不仅耗时耗力，更容易因重复操作而出错，遗漏某个表或是覆盖了同名文件。这种机械式的劳动，无疑会消磨掉我们分析数据的热情和宝贵的时间。

难道就没有更优雅、更高效的方式吗？当然有！Access 自身其实蕴藏着强大的自动化潜力。说了那么多，动手之前先给个一键三连吧！

1、创建窗体

老规矩，我们先来添加一个窗体，在窗体上放一个按钮就可以了

2、添加代码

接着，我们来添加一下代码就可以了

vbscript 复制代码

Private Sub btnExport_Click()

    Dim strOut As String

    Dim tbl As AccessObject





    With Application.FileDialog(4)    ' msoFileDialogFolderPicker

        .Title = "Please select the target folder"

        If .Show Then

            strOut = .SelectedItems(1)

            If Not Right(strOut, 1) = "\" Then

                strOut = strOut & "\"

            End If

        Else

            MsgBox "请选择一个文件夹", vbExclamation

            Exit Sub

        End If

    End With





    For Each tbl In CurrentData.AllTables

        If Not tbl.Name Like "MSys*" And Not tbl.Name Like "~" Then

           

           DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, tbl.Name, strOut & tbl.Name & ".xlsx"

        End If

    Next tbl

    MsgBox "导出完成！", vbInformation

End Sub

3、运行测试

代码是不是非常的简单，我们就可以来运行测试了，如图，我们可以看到，所有的表都导出了。

通过这种方式，原本可能需要数小时的手动导出工作，现在可能只需几分钟甚至几十秒就能完成。这不仅极大地提升了工作效率，减少了人为错误，更让我们能将精力聚焦于数据本身，去探索、去分析，去发现隐藏在数字背后的价值。下一次，当你再面临从 Access 向 Excel 迁移大量数据的任务时，不妨试试这种自动化的思路，体验一下"一键导出全部"的便捷与高效吧！