VBA Dir関数 繰り返し処理

Question

下記内容で、フォルダ内にある各ブックに同じ処理を行いたく、Dir関数でファイル名を順次取得したものを、Workbooks.Openのファイル名のところに変数として代入しているつもりなのですが、エラー1004　ファイルが見つかりませんとエラーがでます。
どのようにしたらファイル名を順次代入することが可能でしょうか。

お手数おかけしますがご教授お願いいたします。

Sub tesu()
Dim a As String
Dim wb As Object
Dim aa As String
Dim i As Long
Dim b As String
Dim file As String


file = Dir("C:¥Users¥OneDrive¥デスクトップ¥kakou¥21¥")

Do While file <> ""
Set wb = Workbooks.Open(Filename:="C:¥User¥OneDrive¥デスクトップ¥kakou¥21¥&file")
b = Worksheets.Count               'シート数をカウントし数値を取得
    For i = 1 To b
        aa = wb.Sheets(i).Name     'シート名取得
        aa = Replace(aa, " ", "")  '半角スペースを削除
        aa = Replace(aa, "　", "") '全角スペースを削除
        aa = StrConv(aa, vbNarrow) '全角を半角へ変換
        aa = UCase(aa)             '小文字を大文字へ変換
        wb.Sheets(i).Name = aa     '変換した名前を再度代入
    Next i
file = Dir()
Loop


End Sub

Answer 1

Set wb = Workbooks.Open(Filename:="C:¥User¥OneDrive¥デスクトップ¥kakou¥21¥" & file)

ではどうでしょう

Comments

[退会済みユーザー]

ｙ_waiwai様
ご返信ありがとうございます。
実行したところ、解決しました。

ダブルクォーテーションは最後につけるのでなくなぜこの位置になるのでしょうか？
このようなものと覚えておけばいいような内容でしょうか？

お手数おかけしますがご教授お願いいたします。

[y_waiwai]

文字列を２つ結合するには、 文字列１ & 文字列２　とする必要があります
"C:¥User¥OneDrive¥デスクトップ¥kakou¥21¥"　と file を結合させるなら、
"C:¥User¥OneDrive¥デスクトップ¥kakou¥21¥" & file
という式となります