VBA：2つのCSVファイルを開きたいです。
エクセル2010のVBAにてCSVファイルを開き結合させるプログラムを組もうとしているのですが、2つ目のCSVファイルを開こうとすると、何故かエラーが出てしまいます。
--------------------------------------------------------------------------------
1つ目
Sub mobile_FileSearch(Path As String)
'test.csvのデータを検索して開く
Dim FSO As Object, Folder As Variant, File As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Folder In FSO.GetFolder(Path).SubFolders
Call mobile_FileSearch(Folder.Path)
Next Folder
For Each File In FSO.GetFolder(Path).Files
If File.Name = "test.csv" Then
Workbooks.Open ("test.csv")
End If
Next File
End Sub
----------------------------------------------------------------------------
2つ目
Sub local_FileSearch(Path As String)
'bbb.csvのデータを検索して開く
Dim FSO As Object, Folder As Variant, File As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Folder In FSO.GetFolder(Path).SubFolders
Call local_FileSearch(Folder.Path)
Next Folder
For Each File In FSO.GetFolder(Path).Files
If File.Name = "bbb.csv" Then
Workbooks.Open ("bbb.csv")'←ここでエラー
End If
Next File
End Sub
------------------------------------------------------------------------
まったく同じプログラムで、csvファイル名だけ変えただけで実行時エラー1004が出てしまいます。
一体全体何が問題なのでしょうか？
お礼
ありがとうございました。