将所有 Microsoft Access 表导出到单独的 CSV 文件中

Question

我有一个包含 200 个表的 .mdb。 我想编写一个 vba 例程，将数据导出到单独的 CSV。

在谷歌上我找到了这段代码：

Public Sub ExportAllTablesToCSV()

    Dim i As Integer
    Dim name As String
    
    For i = 0 To CurrentDb.TableDefs.Count
        name = CurrentDb.TableDefs(i).name
        
        If Not Left(name, 4) = "msys" And Not Left(name, 1) = "~" Then
            DoCmd.TransferText acExportDelim, "", name, _
                "c:\exports\" & name & ".csv", _
                True
        End If
    
    Next i

End Sub

看起来没问题，但它需要一个导出规范（acExportDelim 之后的参数），这使得脚本无用，因为我不想手动创建 200 个导出规范。

有什么想法吗？

Answer 1

这对我有用。

Option Compare Database
Option Explicit
    
Private Sub Command0_Click()

On Error GoTo Err_ExportDatabaseObjects
     
Dim db As Database
Dim td As TableDef
Dim d As Document
Dim c As Container
Dim i As Integer
Dim sExportLocation As String

Set db = CurrentDb()
     
sExportLocation = "C:\all_files\"

For Each td In db.TableDefs 'Tables
    If Left(td.Name, 4) <> "MSys" Then
        DoCmd.TransferText acExportDelim, , td.Name, sExportLocation & "Table_" & td.Name & ".csv", True
    End If
    Next td
Set db = Nothing
Set c = Nothing

MsgBox "All database objects have been exported as a csv file to " & sExportLocation, vbInformation

Exit_ExportDatabaseObjects:
Exit Sub

Err_ExportDatabaseObjects:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_ExportDatabaseObjects
     

End Sub

Answer 2

您确定要使用 CSV 选项吗？由于这种格式无法将表导入回 ms 访问（导致未保存数据架构），因此您需要 200 个带有架构的文件。好的，如果 csv - 有一个页面 https://docs.microsoft.com/en-us/office/vba/api/access.docmd.transfertext。我，我尝试了其他更方便的 XML 方式，以防你想以可转换格式保存表格

Dim db As DAO.Database
Dim td As DAO.TableDefs

Set db = CurrentDb()
Set td = db.TableDefs
For Each t In td    'loop through all the fields of the tables
    'Ignore any system tables
    If Left(t.Name, 4) = "MSys" Then GoTo Continue
        DoCmd.OutputTo acOutputTable, t.Name, , _
       (strPathAndFileName & t.Name & ".xml"), False   
Continue:
Next

` 系统将提示您使用格式确认选择任何 t format 和 schema

所以你必须用键或鼠标点击 3 x 200 次，然后在大约十分钟内完成工作。