【初心者向け】Accessから大量データをVBAでCSV出力する方法【10万件OK】

Sub ExportLargeTableToCSV()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim outputFile As String
    Dim field As DAO.Field
    Dim line As String
    Dim fileNum As Integer

    ' 保存先のパスを指定（自分の環境に合わせて変更）
    outputFile = "C:\path\to\your\output.csv"

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * FROM YourTableName", dbOpenSnapshot)

    fileNum = FreeFile
    Open outputFile For Output As #fileNum

    ' ヘッダ出力
    For Each field In rs.Fields
        line = line & field.Name & ","
    Next
    line = Left(line, Len(line) - 1)
    Print #fileNum, line

    ' データ行出力
    Do While Not rs.EOF
        line = ""
        For Each field In rs.Fields
            line = line & """" & field.Value & """" & ","
        Next
        line = Left(line, Len(line) - 1)
        Print #fileNum, line
        rs.MoveNext
    Loop

    Close #fileNum
    rs.Close
    Set rs = Nothing
    Set db = Nothing

    MsgBox "CSV出力が完了しました！", vbInformation
End Sub