ひとつのフォルダ内に集めた複数のエクセルファイルの内容を、自動で転記したい場合のエラー対処法について

Question

実現したいこと

・ひとつのフォルダ内に集めた複数のエクセルファイルの内容を、自動で転記したい。

前提

既に別のフォルダ内で問題なく動作確認ができている転記マクロを、別のフォルダに移動して起動させたところ、
以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

実行すると、以下のエラーメッセージが出現します。
「実行時エラー'52’:
ファイル名又は番号が不正です。」

また、デバッグしたところ
「 file = Dir(folder & "\*.xlsx")」のコードに問題があるようでした。

該当のソースコード

Sub tenki()
    Dim folder As String
    Dim file As String
    Dim book As Workbook
    Dim i As Integer
    i = 2
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            folder = .SelectedItems(1)
        End If
    End With
    
    file = Dir(folder & "\*.xlsx")
    
    Do While file <> ""
    
        Set book = Workbooks.Open(folder & "\" & file)
        
        ThisWorkbook.Worksheets("Sheet1").Range("A" & CStr(i)).Value = book.Worksheets("シート名").Range("E21").Value
        ThisWorkbook.Worksheets("Sheet1").Range("B" & CStr(i)).Value = book.Worksheets("シート名").Range("I23").Value
        ThisWorkbook.Worksheets("Sheet1").Range("C" & CStr(i)).Value = book.Worksheets("シート名").Range("M23").Value       
        
        file = Dir()
        i = i + 1
        
        book.Close
    Loop
    
End Sub

補足情報

見様見真似の初心者でして、初歩的な部分からわかっていないのかもしれません。
ご教示いただけますと幸いです。

Comments

[bebebe_]

可能性の一つとしてファイルパスに認識できない文字が使われている場合があります。

[otn]

> 「 file = Dir(folder & "\*.xlsx")」のコードに問題があるようでした。
何を見てそう判断しましたか？

[shimuaya]

ファイルパスですね。確認してみたいと思います。

＞> 「 file = Dir(folder & "\*.xlsx")」のコードに問題があるようでした。
＞何を見てそう判断しましたか？
エラー後、デバックしますか？のポップアップに「はい」と回答したところ、該当箇所がハイライトされたためでございます。（伝わりましたでしょうか？）

Answer 1

ご指摘いただいた通り、一部のフォルダパス上に「‗」が使われていることを発見しました。こちらを「_」に修正したところ解決いたしました。
アドバイスくださった方ありがとうございました。