Export all MS Access tables to UTF-8 CSVs

export_tables_to_utf8_csv.vba

' This script will export all tables in its MS Access db to UTF-8 CSVs
' -----
' The macro can then be run from the command line as:
' C:\path\to\Msaccess.exe "C:\path\to\database.accdb" /x "MACRO NAME"

Sub ExportTablesToCSV()
Const MyPath = "C:\ExportedTables\"
Dim db
Dim tdf
Dim objXl
Dim wbXL
Dim I As Long

    Set db = CurrentDb
    
    If Dir(MyPath, vbDirectory) = "" Then
        MkDir MyPath
    End If
    
    For Each tdf In db.TableDefs
        If Left(tdf.Name, 4) <> "MSys" And Left(tdf.Name, 1) <> "~" Then
            DoCmd.TransferText acExportDelim, "", tdf.Name, MyPath & tdf.Name & ".csv", True, "", 65001
        End If
    Next tdf
End Sub