フォルダ内の特定ファイル名表示

質問

excel のＶＢＡでmydoocumentの"abc"というフォルダの中にあるxls拡張子
付きのファイルを今開いているシートのＡ列にxxx.xlsと表示するマクロを書きたいのですが。教えてください。

回答No.2

imogasi · ベストアンサー

この課題はWEB照会すればすぐコードがてくるのです。
照会のキーワードは「フォルダ　ファイル名　書き出し」など
http://itpro.nikkeibp.co.jp/article/COLUMN/20060120/227645/
これはFSOを使う例ですが
http://pintxos.blog.bai.ne.jp/?eid=97178
はDir関数を使う方法です。
コードは真似をして自分の場合に修正してください。
こんな質問コーナーに質問する前に、キーワードを工夫してWEB照会して勉強するクセをつけること。

お礼

ずばり回答どうもありがとう。
これを探していました。

回答No.1

n-jun

http://hinekure.vba-soft.com/?cid=22310
の
フォルダ内のファイル一覧
が参考になるかもです。
でも、パスは直して下さい。

お礼

UserFormのLIstBoxに特定のフォルダ内のExcelBookをリスト表示し
選択したBookを削除します。
こちらの方ですね。

解決しました。ありがとございました。

補足

Sub Test()
Dim myFol As String
myFol = ThisWorkbook.Path & "\hoge\"
Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus
End Sub

フォルダの場所・名前は開きたいフォルダに変更して下さい。
　　↓
myFol = ThisWorkbook.Path & "\hoge\"
ということですよね