複数のcsvをそれぞれのシートに分けてExcelファイルとしてインポートする方法

結論から言うと

こちらの方法でできました www.excel.studio-kazu.jp ※ 65536行を超えるCSVファイルはエラーとなります。

手順

１．CSV達と新規BOOKを同じフォルダにいれる

２．標準モジュール（ALT＋F11）を開き以下のコードを適当にsheet1のあたりに入れて「実行」する

Sub CSV読み込み()
    Dim myFile As String
    Dim myPath As String
    Dim newWB As Workbook
    myPath = ThisWorkbook.Path & "\"
    myFile = Dir(myPath & "*.csv")
    Do Until myFile = ""
       Set newWB = Workbooks.Open(myPath & myFile)
       newWB.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
       newWB.Close False
       myFile = Dir()
    Loop
 End Sub

3.保存する

１ファイル１、２秒読み込みにかかった。これはデータ量などによりそう。 望みのものが出来上がった。