エクセルのCSV形式の複数ブックを一括でインポートしたい

質問

あるフォルダ内にある「複数ブック（CSV形式）」をエクセルに一括でインポートしたいのです。フォルダ内にある複数のエクセルブックの名前はばらばですが、形式だけが全て同じです。

Book1
A　B　C
1　1　1

Book2
A　B　C
2　2　2

Book3
A　B　C
3　3　3
↑　
2つブックがあって最終的には・・・・
Book5
A　B　C
1　1　1
2　2　2
3　3　3

↑
こうしたいです。複数ブックの一行目以下のデータ全てをひとつのものにまとめたいのです。（全ての複数のCSVブックは一行目は同じです。2行目以降を追加するみたいな感じです。）

いろいろと調べて作ってみたのですが、「デバック」？？で黄色くなって全く上手く行きません。

ご存知であれば是非教えてください。

・～・・～・・～・・～・・～・・～・・～・・～・・～・・～・

Sub フォルダ指定連結()
Dim myShell As Object
Dim myFS As Object, myFile As Object
Dim myName As String, myPath As String
Dim myLine As String, newStr As String
Set myShell = CreateObject("Wscript.Shell")
myPath = myShell.Specialfolders("Desktop") & "\aaa\"
Set myShell = Nothing
Set myFS = CreateObject("Scripting.FileSystemObject")
myName = Dir(myPath & "\*.csv\")
Do While myName <> ""
Set myFile = myFS.OpenTextFile(myPath & "\" & myName, 1)
myFile.ReadLine '1行目スキップ
Do Until myFile.AtEndOfStream
myLine = myFile.ReadLine
newStr = newStr & myLine & vbCrLf
Loop
myFile.Close
myName = Dir()
Loop
Set myFile = myFS.CreateTextFile("C:\test.csv\", True)
myFile.Write newStr
myFile.Close
Set myFS = Nothing
Set myFile = Nothing
End Sub
・～・・～・・～・・～・・～・・～・・～・・～・・～・・～・
これが教えていただいたり、自分で修正を加えたりしたぶんですが・・・。
環境はウィンドウズXPで2002です。

回答No.1

noah7150 · ベストアンサー

問題点。
\はドライブ名・フォルダー名の区切りを表すのでファイル名指定後の\は不要です

誤　myName = Dir(myPath & "\*.csv\")
正　myName = Dir(myPath & "\*.csv")

誤　Set myFile = myFS.CreateTextFile("C:\test.csv\", True)
正　Set myFile = myFS.CreateTextFile("C:\test.csv", True)

全ファイルのヘッダ行をスキップしてますので出力にはヘッダ行が出ません。

改良後の全文を載せておきます。
・～・・～・・～・・～・・～・・～・・～・・～・・～・・～・

Sub フォルダ指定連結()
Dim myShell As Object
Dim myFS As Object, myFile As Object
Dim myName As String, myPath As String
Dim myLine As String, newStr As String
Set myShell = CreateObject("Wscript.Shell")
myPath = myShell.Specialfolders("Desktop") & "\aaa\"
Set myShell = Nothing
Set myFS = CreateObject("Scripting.FileSystemObject")
myName = Dir(myPath & "\*.csv")
Do While myName <> ""
Set myFile = myFS.OpenTextFile(myPath & "\" & myName, 1)
if newStr = "" then
newStr = myFile.ReadLine 'ヘッダのセット
else
myFile.ReadLine '2個目以降のヘッダ行のスキップ
End If
Do Until myFile.AtEndOfStream
myLine = myFile.ReadLine
newStr = newStr & myLine & vbCrLf
Loop
myFile.Close
myName = Dir()
Loop
Set myFile = myFS.CreateTextFile("C:\test.csv", True)
myFile.Write newStr
myFile.Close
Set myFS = Nothing
Set myFile = Nothing
End Sub
・～・・～・・～・・～・・～・・～・・～・・～・・～・・～・

回答No.2

noah7150

間違ったヘッダ行の改行忘れた

誤　newStr = myFile.ReadLine 'ヘッダのセット
正　newStr = myFile.ReadLine & vbCrLf 'ヘッダのセット

補足

早速のご回答ありがとうございます。

ですが・・・・上手くいきませんでした。

もしかしたら、マクロの使い方が間違っているのでしょうか・・・。
「ツール」→【マクロ】→「マクロ名」→【作成】で基本のVB　Moduleを開いて、書き込んでいるのですが・・・。

もしよろしければ手順を教えていただけないでしょうか？
後、実は「Set myFile = myFS.CreateTextFile("C:\test.csv", True)」ここは教えていただいたところで意味がいまいちよくわかっていないんです。これの解釈もいただけると非常に助かります。

よろしくお願いいたします。