如何用VBA实现MS Access指定表格动态导出为CSV？

完全可行，而且实现逻辑并不复杂，刚好匹配你的需求场景。以下是具体实现步骤和优化建议：

一、创建用户选择表单 #

• 添加一个列表框（List Box）：设置Row Source Type为Table/Query，Row Source用查询筛选出所有用户可导出的表格（示例查询：SELECT Name FROM MSysObjects WHERE Type=1 AND Flags=0，仅返回用户创建的本地表）；将Multi Select属性设为Extended，允许用户多选。
• 添加一个命令按钮（Command Button）：命名为cmdExportCSV，标题设为“导出选中表格”。

二、编写VBA导出逻辑 #

双击命令按钮打开VBA编辑器，写入以下核心代码：

Private Sub cmdExportCSV_Click()
    Dim lst As ListBox
    Dim i As Integer
    Dim exportPath As String
    Dim tableName As String
    
    ' 让用户选择导出路径
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then
        exportPath = fd.SelectedItems(1) & "\"
    Else
        MsgBox "未选择导出路径，取消操作。"
        Exit Sub
    End If
    Set fd = Nothing
    
    Set lst = Me!YourListBoxName ' 替换为你的列表框名称
    
    ' 遍历选中的表格并导出
    For i = 0 To lst.ListCount - 1
        If lst.Selected(i) = True Then
            tableName = lst.ItemData(i)
            ' 捕获导出错误
            On Error Resume Next
            DoCmd.TransferText acExportDelim, , tableName, exportPath & tableName & ".csv", True
            If Err.Number <> 0 Then
                MsgBox tableName & " 导出失败：" & Err.Description
            End If
            On Error GoTo 0
        End If
    Next i
    
    MsgBox "选中表格导出完成！"
    Set lst = Nothing
End Sub

三、优化细节 #

• 筛选特定表格：如果需要排除系统表、临时表，可修改列表框的行源查询，比如：SELECT Name FROM MSysObjects WHERE Type=1 AND Flags=0 AND NOT Name LIKE 'Temp*'
• 自定义CSV格式：如果需要指定分隔符、文本限定符，可先创建一个导出规范（通过Access的“导出向导”保存），然后在DoCmd.TransferText中传入规范名称。

四、参考资源 #

• Access VBA内置帮助：在VBA编辑器按F1，搜索DoCmd.TransferText或ListBox，可获取官方参数说明和用法示例。
• Access系统表MSysObjects：熟悉其字段含义（如Type区分表、查询等对象），能更灵活控制可选择的表格范围。

内容的提问来源于stack exchange，提问作者TomPythonHelp