.xlsファイルが存在するパスを表示させたい

質問

エクセルマクロ初心者です。
.xlsファイルをサブフォルダも含め検索し、A列にファイル名、B列にファイルが存在するパスを表示させるにはどうしたらいいでしょうか？検索するベースのディレクトリは決まっている”C:\temp”のでtemp以下、.xlsがどこに存在するのかを検索するマクロを組もうとしています。

いろんな書き込みを探し、サブフォルダを含め、ファイル名を取得するものは発見できたので組み込んでみましたが、、パスの表示方法がわかりません。

cnt = 0
Call Sample3("C:\temp")

Callでサブルーチンsample3に渡し、ファイル名を取得しています。

　Dim cnt As Long

Sub Sample3(Path As String)
Dim buf As String, f As Object
buf = Dir(Path & "\*.xls")
Do While buf <> ""
cnt = cnt + 1
Cells(cnt, 1) = buf
buf = Dir()
Loop
With CreateObject("Scripting.FileSystemObject")
For Each f In .GetFolder(Path).SubFolders
Call Sample3(f.Path)
Next f
End With

End Sub

あとは、どのように書けばいいのでしょうか？
宜しくお願い致します。

回答No.1

sora1515 · ベストアンサー

カテゴリはエクセルで質問するといいですよ。
（デジタルライフ　→　ソフトウェア　→　エクセル）

Cells(cnt, 1) = buf
Cells(cnt, 2) = Path

回答はたった一行追加ですが、問題は
自分で提示したソースを理解してなさすぎだと思います、
vba ステップ実行 変数値
などのキーワードでぐぐりましょう。

お礼

sora1515さん。ありがとうございます。一発解決です。

>自分で提示したソースを理解してなさすぎだと思います
まさにおっしゃるとおりで、使えそうな部分のネットからのコピペで、自身で書いて勉強する事がもっと必要だと思っています。

>キーワードでぐぐり
ここもポイントと思っています。検索のポイント、絞り方ももっとトライして、そのカン・コツをつかまないといけないと思っています。

ありがとうございました。