【VBA】指定した範囲をCSVファイルへ出力する

VBAコード

ここでは例として、
　・シート「sample」のセル「B2」から続く一連の範囲を
　・デスクトップ配下へファイル「sample.csv」として出力
します。

Option Explicit

Sub sample()

    '出力するCSVファイル
    Const CSV_FILE As String = "C:\Users\user\Desktop\sample.csv"

    Dim targetRange As Range
    Dim wb As Workbook
    
    'CSVファイルへ出力する範囲を指定
    Set targetRange = Worksheets("sample").Range("B2").CurrentRegion
    
    '新規ブックを作成
    Set wb = Workbooks.Add
    
    '新規ブックへCSVファイルへ出力する範囲をコピー
    targetRange.Copy wb.Worksheets(1).Range("A1")
    
    '警告メッセージを非表示
    Application.DisplayAlerts = False
    
    'CSVファイルを出力
    wb.SaveAs Filename:=CSV_FILE, FileFormat:=xlCSV
    
    '警告メッセージを表示
    Application.DisplayAlerts = True
    
    '新規ブックを保存せずに閉じる
    wb.Close SaveChanges:=False

End Sub

実行結果

指定した範囲をCSVファイルへ出力することが出来ました。