CSV → シート → 配列 → CSV に変換して確認

Sub CSVtoSheetToArrayToCSV()
    
    ' 【Step 1】CSVファイルをExcelシートに読み込む
    Dim fileName As String
    ' 読み込むCSVファイルのフルパスを指定
    fileName = "C:\TEMP\sample2.csv"
    ' Power Queryを使用してCSVを"csvList"シートに読み込む
    Call csv_to_sheet_PowerQuery(fileName)
    
    ' 【Step 2】Excelシートのデータを配列に変換する
    Dim arr As Variant
    ' シート"csvList"からデータを配列へ格納する
    ' 第3引数に1を指定して1行目をスキップ（ヘッダー行を除外）
    Call sheet_to_array("csvList", arr, 1)
    
    ' 【Step 3】配列のデータを新しいCSVファイルに書き出す
    fileName = "C:\TEMP\サンプル出力PQ.csv"
    ' 配列のデータを指定されたパスにCSV形式で保存
    Call array_to_csv_Excel_r1(arr, fileName)
    
End Sub

Sub CSVtoSheetToArrayToCSV()

    ' 処理時間測定
    Dim 開始時刻 As Double
    開始時刻 = Timer
    Dim clm As Long
    clm = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Dim rw As Long: rw = 1
    Sheet1.Cells(rw, clm) = "処理時間"
    rw = rw + 1
    
    
    ' 【Step 1】CSVファイルをExcelシートに読み込む
    Dim fileName As String
    ' 読み込むCSVファイルのフルパスを指定
    ' 15,345kB、26531行、65列
    fileName = "C:\TEMP\重いファイル.csv"
    ' Power Queryを使用してCSVを"csvList"シートに読み込む
    Call csv_to_sheet_PowerQuery(fileName)
    
    
    ' 処理時間測定
    Sheet1.Cells(rw, clm) = (Timer - 開始時刻)
    rw = rw + 1
    
    
    ' 【Step 2】Excelシートのデータを配列に変換する
    Dim arr As Variant
    ' シート"csvList"からデータを配列へ格納する
    ' 第3引数に1を指定して1行目をスキップ（ヘッダー行を除外）
    Call sheet_to_array("csvList", arr, 1)
    
    
    ' 処理時間測定
    Sheet1.Cells(rw, clm) = (Timer - 開始時刻)
    rw = rw + 1
    
    
    ' 【Step 3】配列のデータを新しいCSVファイルに書き出す
    fileName = "C:\TEMP\サンプル出力PQ.csv"
    ' 配列のデータを指定されたパスにCSV形式で保存
    Call array_to_csv_Excel_r1(arr, fileName)
    
    
    ' 処理時間測定
    Sheet1.Cells(rw, clm) = (Timer - 開始時刻)
    rw = rw + 1
    
End Sub