エラー 53 ファイルが見つからないエラー

Question

お世話になります。
定期的に発生するtab区切りテキストファイルをcsvファイルにし、
それを一つのcsvにまとめようとしています。
元のテキストファイルは半角英数字と"_"(アンダーバー)のみです。

後半の結合部分はこちらのサイトから拝借しました。
Filecopyで動作が終了しエラー53が返ってくるのですが、考えられる原因はなんでしょうか。

拝借したVBA個別であれば無論問題なく作動します。
wpath, wfile双方の内容は拝借分と変わらないことを確認しました。
また個別のcsvファイルを作成した後、5秒間動作を止めてから実行してみましたが、結果に変わりはありませんでした。

どうぞよろしくお願いいたします。

Sub table_to_merged_csv()

Dim table_name As String
Dim myfile As Variant
Dim target As Variant
Dim name As String, wpath As String

    myfile = Application.GetOpenFilename( _
         FileFilter:="table  ファイル (*.Table),*.Table", _
         MultiSelect:=True)


If IsArray(myfile) Then

Application.ScreenUpdating = False

For Each target In myfile
 Workbooks.OpenText Filename:=target, DataType:=xlDelimited, Comma:=True
 table_name = ActiveWorkbook.name
 table_name = Left(table_name, Len(table_name) - 6)
 table_name = table_name & ".csv"
 ActiveSheet.Range("A1").CurrentRegion.EntireColumn.AutoFit
 ActiveWorkbook.SaveAs Filename:=table_name, FileFormat:=xlCSV
 Workbooks(table_name).Close True
name = Dir(target)
wpath = Replace(target, name, "")
Next target
 
 Debug.Print (wpath)
 
wfile = Dir(wpath & "\")
Debug.Print (wfile)
flag = 0
Do While wfile <> ""
If InStr(wfile, ".csv") Then
flag = flag + 1
If flag = 1 Then
FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "output.csv"v"
Open ThisWorkbook.Path & "output.csv" For Output As #11
Close #1
End If
Open ThisWorkbook.Path & "output.csv" For Append As #11
Open wpath & "\" & wfile For Input As #22
Do Until EOF(2)
Line Input #2, w_str
Print #1, w_str
Loop
Close #2
Close #1
End If
wfile = Dir()
Loop

Kill wpath & "*.csv"

Application.ScreenUpdating = True

End If

End Sub

Answer 1

以下２箇所について、修正してはどうでしょうか。

FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "\" & "output.csv"
'FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "output.csv"v"

Open ThisWorkbook.Path & "\" & "output.csv" For Append As #11
'Open ThisWorkbook.Path & "output.csv" For Append As #11

Comments

[TD0]

回答ありがとうございます。
ご指摘の通り\を挟みましたが、変わらずエラー53です…

[TanakaHiroaki]

そうですか。以下の修正も行ってみてください。
If InStr(wfile, ".csv") > 0 Then
'If InStr(wfile, ".csv") Then
そして、変更内容を質問に反映すると他の方からもアドバイスが得やすいと思います。

[TD0]

素早くお返事いただきありがとうございます。
エラーは解消されましたが、output.csvが生成されません。
（flagの数字は作られたcsvの数に合わせて上昇しています。）

[TanakaHiroaki]

関係ないかもしれませんが、以下のように修正し、csvファイルだけを読み込むようにしてはどうでしょうか。
wfile = Dir(wpath & "\" & ”*.csv”)
’wfile = Dir(wpath & "\")

[TD0]

お付き合いいただきありがとうございます。
残念ですが、変化ありませんでした。

[TanakaHiroaki]

お役に立てず申し訳ありません。
質問のコードを最新の内容とし、解決したいことを「output.csv生成」との記載を追加しておくと良いと思います。

[TanakaHiroaki]

それから、OpenとCloseの番号が一致していないのが気になりますね。

[TD0]

ありがとうございます、改めてスレ立てします。

[TD0]

どちらの番号について言及されていますか？

[TanakaHiroaki]

どちらもです。引用元のサイトと番号が変わっています。
Open ThisWorkbook.Path & "\" & "output.csv" For Output As #11
Open wpath & "\" & wfile For Input As #22

[TD0]

気づけば他にも誤字がありますが、Editor上では正しく記載しています。おさわがせしました。