参照するファイルをワイルドカードで指定したい

Question

参照するファイルが日付によって以下のようになるので
ワイルドカードを使って【東】があるファイルだけを選択したいのですが、うまくいきません。
分かる方ご教示お願いいたします。

ファイル名
【東】1
【東】2

Sub test()
Dim wb1, wb2 As Workbook
Dim ws1, ws2 As Worksheet
Dim fName As Variant
Dim mys As String
Dim i, j As Long

Application.ScreenUpdating = False
mys = Workbooks("参照.xlsm").Sheets("Sheet1").Range("A1").Value '検索値

fName = Application.GetOpenFilename("ブック,*.xlsb")
Workbooks.Open fName

Set wb2 = Workbooks("【東】,*.xlsb") '検索対象ファイル
wb2.Activate
ReDim dary(10, 5) '10件まで
n = 1
With wb2.Worksheets(1) '検索ファイルの左側シートのみ対象
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 2).Value Like mys And Cells(i, 3).Value = "1" Then
For j = 1 To 5
dary(n, j) = Cells(i, j + 1).Value
Next j
n = n + 1
If n > 10 Then Exit For
End If
Next i
End With

Set wb1 = Workbooks("参照.xlsm")
wb1.Activate
With wb1.Sheets("Sheet1")
For i = 1 To 10
For j = 1 To 5
.Cells(i + 2, j).Value = dary(i, j)
Next j
Next i
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

Answer 1

y_waiwaiさんが回答された dir関数　は、引数と戻り値を正しく理解する必要があります。
引数をワイルドカード指定し、ループしながらファイル検索する方法について勉強が必要です。
以下動画では初学者向けに説明されてますので参考にしてください。

(動画)【VBA】実務では必須のDir関数。あまり知られていない使い方をご紹介します

Comments

[be36]

非常に助かりました。
ありがとうございます。

Answer 2

dir関数にワイルドカードで指定して、ファイルリストを取得して、それをもとに処理しましょう