【ExcelVBA】csvが増えるとエラーになる

【ExcelVBA】
複数のcsvファイルを結合するコードについて、結合対象のcsvファイルが増えるとエラーメッセージが出ます。

【発生エラー】
エラー55 ファイルは既に開かれています。

【コード】
Sub csvmerge()
Application.ScreenUpdating = False
wpath = Range("B3")
wfile = Dir(wpath & "")
flag = 0
Do While wfile <> ""
If InStr(wfile, ".csv") Then
flag = flag + 1
If flag = 1 Then
FileCopy wpath & "" & wfile, ThisWorkbook.Path & "\output.csv"
Open ThisWorkbook.Path & "\output.csv" For Output As #1
Close #1
End If
Open ThisWorkbook.Path & "\output.csv" For Append As #1
Open wpath & "" & wfile For Input As #2
Do Until EOF(2)
Line Input #2, w_str
Print #1, w_str
Loop
Close #2
Close #1
End If
wfile = Dir()
Loop

MsgBox "完了！", vbInformation

Open wpath & "" & wfile For Input As #2
デバック画面にてここが対象となっていました。

ファイル数があまりなければエラーも出ず正常に結合済みファイル（output.csv）が作成されますが、
大体csvファイルが22個を超えるとエラーが出てしまいます。
また、エラーが出ても結合済みファイルは作成されるため『エラーを出さないようにする』コードを新たに追加した方がよいかもしれないとも悩んでおります。

ネットで「エラー55」や「csv」「csv 大量」等で調べましたが、このような事象と対処法が見つからず悩んでおります。
初心者故わかりづらい文章で申し訳ございません。
よろしくお願い致します。

tatsu99

2020/04/15 10:25

wpath = Range("B3")のwpathと ThisWorkbook.Pathが同じ場合はエラーになる可能性があります。このマクロをもつexcelファイルが格納されているフォルダは、wpathと異なっていますか？

momogorira

2020/04/15 11:43 編集

追記・修正のご依頼を頂きありがとうございます。このマクロをもつexcelファイルを格納しているフォルダとwpathは同一のフォルダです。（このマクロをもつExcelファイルもcsvファイルも同一フォルダに格納しています）

tatsu99

2020/04/15 11:44

それだとえらーになります。違うようにしてください。そのほうが判らない場合は、再度質問してください。その場合は、具体的なB3の値、このマクロをもつexcelファイルのフォルダ名も提示してください。

momogorira

2020/04/15 11:53

同一フォルダ内だと Open ThisWorkbook.Path & "\output.csv" For Append As #1 Open wpath & "\" & wfile For Input As #2 ここで既に開いているフォルダをまた開こうとするのでエラーとなる、というイメージですね。かしこまりました。職場で使用しているExcelの為、明日違うフォルダに移して試してみます。迅速でわかりやすいご回答を頂きましてありがとうございました！

momogorira

2020/04/16 00:48

tatsu99様違うフォルダに移したところ、ファイル数が増えても正常に処理完了できました。大変助かりました。ありがとうございました！