VBA ファイル名取得

ネットで調べて下記のVBAでファイル名が取得できるみたいなんですができません。何か間違っているところありますか？いろいろ調べて他のコードも試したのですができません。そもそもガイル名を取得するさいになにか特殊な設定等ありますか？
Sub GetFileName()
Dim FileName As String
Dim Path As String
Dim i As Long

' このファイルがあるフォルダーのパスを取得
Path = ThisWorkbook.Path


' フォルダ内のエクセルファイル名を取得して貼り付ける
FileName = Dir(Panh & "\ファイル\" & "*.xlsx")

'ファイル名を各行の初期値を設定
i = 2

'該当するファイルがなくなるまでループ
Do While FileName <> ""

'ファイル名をセルに入力
Cells(i, 1) = FileName

'次のファイルを取得
FileName = Dir()

'iをカウントアップ
i = i + 1

Loop

End Sub

No.3 回答者： little_experience000 回答日時： 2024/02/18 14:30

Path = ThisWorkbook.Path

を
Panth = ThisWorkbook.Path

かな

現状
FileName = Dir(Panh & "\ファイル\" & "*.xlsx")
Panthは何も入ってません

この回答へのお礼

返信ありがとうございました。入力ミスでした。変更後できました

お礼日時：2024/02/18 15:48

No.2 回答者： fujillin 回答日時： 2024/02/18 14:04

こんにちは

＞FileName = Dir(Panh & "\ファイル\" & "*.xlsx")
の指定パスは意図通りなのでしょうか・・

少なくとも、Panh は Path のタイポのような気がしますけれど・・
ご質問文の説明からすると、「\ファイル\」ってのも不明ですけれど・・

この回答へのお礼

お礼日時：2024/02/18 15:48

No.1 回答者： かわごえ 回答日時： 2024/02/18 14:00

このコードは何をしているんですかね

指定したフォルダ内のエクセルファイルの一覧を作りたいように思えますが。。。


Panhはおかしいでしょ
所々msgboxで中身を確認すると分かりやすいかもです。

この回答へのお礼

お礼日時：2024/02/18 15:48