【ExcelVBA】エクセルシートのデータをCSVファイル出力する

Sub sample()

Dim csvFile As String
Dim row As Integer
Dim cl As Integer
Dim FileNumber As Integer
Dim LastRow As Integer
Dim LastColumn As Integer
Dim ws As Worksheet

    'アクティブシートを変数にセット
    Set ws = ThisWorkbook.ActiveSheet
    
    '出力するファイルのパスとファイル名を指定…⓵
    csvFile = ActiveWorkbook.Path & "\output.csv"
    
    'ファイルナンバーを割り当て…⓶
    FileNumber = FreeFile
    
    '最終行の取得…⓷
    LastRow = ws.Cells(Rows.Count, 1).End(xlUp).row
    
    '最終列の取得…⓸
    LastColumn = ws.Cells(1, Columns.Count).End(xlToLeft).Column
    
    'CSVファイルを作成・開く…⓹
    Open csvFile For Output As #FileNumber
    
    '1行目から最終列まで繰り返し…⓺
    For row = 1 To LastRow

　　　　’１列目から最終列まで繰り返し…⓻
        For cl = 1 To LastColumn
        
            If cl <> LastColumn Then
                '最終列でなければセルの値とカンマを出力…⓼
                Print #FileNumber, ws.Cells(row, cl).Value & ",";
            Else
                '最終列ならば、セルの値と改行コード出力…⓼
                Print #FileNumber, ws.Cells(row, cl).Value & vbCr;
            End If
            
        Next
    Next
    
    'ファイルを閉じる…⓽
    Close #FileNumber

End Sub