フォルダ内の対象となるデータ名の個数

質問

フォルダ内にある任意のデータ名の個数を数える
エクセルのマクロを使って作成したいと思っています
任意のデータ名はA1セルに入力されている名前を使おうと思っています
以下にワイルドカードを使った場合のコードを貼っておきます。
Sub Sample2()

Dim FolderPath As String
Dim FileName As String
Dim FileInt As Long
Dim SetPath As String

FolderPath = "C:\Users\ユーザ名\Desktop\データ" 'フォルダのパスを指定する
FileName = "*.xlsm" 'ファイル名をワイルドカードと拡張を指定する

FileInt = 0 'ファイル数を一度0にする

'指定したフォルダパスとファイル名をセットする
SetPath = Dir(FolderPath & "\" & FileName)

Do While SetPath <> "" 'ファイル名が取得出来なくなるまでループ
FileInt = FileInt + 1
SetPath = Dir()
Loop

MsgBox FileInt

End Sub

回答No.2

kkkkkm

検索データ名の
202004
がA1にあるのでしたら　
FileName = Sheets("Sheet1").Range("A1").Value & "*.xlsm"
小出しせずに最初からやりたいことを質問しましょう。時間の無駄ですよ。

回答No.1

kkkkkm

任意のデータ名がファイル名でしたら
FileName = Sheets("Sheet1").Range("A1").Value

お礼

ご回答ありがとうございました。
任意のデータ名で検索することができました

補足コメントに最終的なマクロの完成状態を記載させていただきました
大雑把で申し訳ないですが、わかりましたらご教授の程、お願いします。

補足

最終的にはフォルダ内にあるデータを作成した日付毎に個数を数えるようなマクロに
したいと思っています。
例：データはフォルダ内
データ(1)：20200412＿データ1
データ(2)：20200413＿データ2
データ(3)：20200612＿データ3

検索データ名：202004　　
出力結果：　2

大雑把で申し訳ないですが、わかりましたら
ご教授していただいてもよろしいでしょうか。