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

hi，大家好呀！

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

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

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

1

创建窗体

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

2

添加代码

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

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 迁移大量数据的任务时，不妨试试这种自动化的思路，体验一下“一键导出全部”的便捷与高效吧！

#access##vb##excel#