スキルアップ・問題解決なら、モーグにおまかせ！

あるフォルダに格納された複数のエクセルファイル（同じ形式）をファイルを開かずに別ファイルに取り込み予定です。（取り込みファイルがパワークエリが使えないバージョンなのでVBAでのデータ取り込みを予定しています。
絶対パス参照すると�@のコードで可能なのですが、保存先フォルダが変わる可能性があるため、a2セルに記載したファイルパス内のエクセルファイルを指定した形式を考えており�Aのコードを作成しました。
しかし、フォルダ指定がうまく参照できません。
  
 �@
  read_folder = Range("a2").Value
  read_file = Dir(read_folder & "\")
 ‘ ファイルが見つからなくなるまで繰り返す
  Do While read_file <> ""
　　cnt = cnt + 1
　　Cells(cnt + 4, 1) = read_file
　　Cells(cnt + 4, 2) = "=+'D:\〇フォルダ\[" & read_file & "]data1'!B3"
　　cells(cnt + 4, 2) = Cells(cnt + 4, 2)
    read_file = Dir()
  Loop
  
 下記でa2セルのファイルパスを参照してデータを取得を試みるのですが、ファイルのありかを聞いてきます。どうやると指定できるでしょうか？
ちなみにa2セルには、D:\〇フォルダ　と入力されています。
�A
 read_folder = Range("a2").Value
  read_file = Dir(read_folder & "\")
  ’ファイルが見つからなくなるまで繰り返す
  Do While read_file <> ""
　　cnt = cnt + 1
　　Cells(cnt + 4, 1) = read_file
　　Cells(cnt + 4, 2) = "=+'read_folder [" & read_file & "]data1'!B3"
　　Cells(cnt + 4, 2) = Cells(cnt + 4, 2)
    read_file = Dir()
  Loop

動作確認は行っていませんが、
 
Cells(cnt + 4, 2) = "=+'read_folder [" & read_file & "]data1'!B3"
 
ではなく、
 
Cells(cnt + 4, 2) = "=+'" & read_folder & "[" & read_file & "]data1'!B3"
 
とか？
 
次回から、「どんなエラー」かも記載したほうがいいですよ。

ありがとうございます。
�Aのコードを動かすと、ファイル参照のウインドウが開いて参照先を指定するよう促してきます。
そこで該当ファイルを指定すると正しく転記されますが、一ファイル毎に実施が必要になってしまいます。
 
ファイル参照先を指定するよう促す画面のウインドウの左上には、
　値の更新：ファイル名date1　という標記がされています。
 
教えていただいたコードも同じような状態になってしまいます。。
 

うーん、こんな感じかな。
 

read_folder = Range("A2").Value
read_file = Dir(read_folder & "\")
' ファイルが見つからなくなるまで繰り返す
Do While read_file <> ""
    cnt = cnt + 1
    Cells(cnt + 4, 1) = read_file
    full_path = read_folder & "\" & read_file
    Cells(cnt + 4, 2) = "=+'" & full_path & "\[data1]'!B3"
    Cells(cnt + 4, 2) = Cells(cnt + 4, 2)
    read_file = Dir()
Loop

既に指摘があったとおりかと思いますが、再度念のため。
 

Cells(cnt + 4, 2) = "=+'read_folder [" & read_file & "]data1'!B3"  

Debug.Print "=+'read_folder [" & read_file & "]data1'!B3"

想定される手順は以下のようなものです。

1. マクロではなく、手作業で参照式を作成。
2. その式（文字列）を、変数を使って再現するコードを作成
3. 繰り返しのコードに反映する。

引用:
ちなみにa2セルには、D:\〇フォルダ　と入力されています。

こんなことになりませんか？

Sub test()
    Dim read_folder As String
    Dim read_file   As String
    Dim cnt         As Long
    Dim s           As String

    read_folder = Range("A2").Value & "\"
    read_file = Dir(read_folder)
    Do While read_file <> ""
        cnt = cnt + 1
        Cells(cnt + 4, 1) = read_file
        s = "='" & read_folder & "[" & read_file & "]data1'!B3"
        ''Debug.Print s
        Cells(cnt + 4, 2) = s
        Cells(cnt + 4, 2) = Cells(cnt + 4, 2)
        read_file = Dir()
    Loop
End Sub

できました。ありがとうございます。
もう一度よく確認して勉強します。お世話になりました。