|
すず さん、こんばんわ。
>エラーの出る個所は、
> Set WB = Workbooks.Open(FoundFiles(i))
>です。
kanabunさんの関数を試してみたら、
For i = 0 To UBound(FoundFiles)
Debug.Print i, FoundFiles(i)
Next
カウンタがUBound(FoundFiles)の時には常にFoundFiles(i)は空白文字になっていました。EOF(テキストファイルの最後を示す制御文字)のみの行があるみたいです。
なので、
For i = 0 To UBound(FoundFiles) - 1
> Set WB = Workbooks.Open(FoundFiles(i))
> For Each ws In WB.Worksheets
> Select Case ws.Name
> Case "東京", "大阪", "名古屋"
> このシートより転記 ws, WB0
> End Select
> Next
> WB.Close False
> Set WB = Nothing
> Next
> MsgBox "転記終了!"
>End Sub
ですかね。
|
|