みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

フォルダ内にあるファイルを取得したい

エクセル2010を使用しています。
VBA(マクロ)で以下の作業を実行したいと考えていますが、
初心者につき、ご教示いただけますでしょうか。

「マクロ」ファイルにある「実行」Sheetというにある「実行」ボタンで
L2に入力したパス内にあるファイル(.xlsや.xlsmや.xlsbが混在しますが、基本的には全てエクセルファイル)のファイル名を
K8から下へ取得したいのですが・・
参考にしたコードでは うまく動作しませんでした。

以下では、L2のパスを参照するのも組めていないため、コード内に直接パスを書き込んでいますが
実際は、パスを変動させて使いたいので、L2を参照できるようになると助かります。
※パスは、質問用に仮置きで「パス」としています。

Sub Sample()
Dim buf As String, cnt As Long
Const Path As String = "パス"
buf = Dir(Path & "*.*")
Do While buf <> ""
cnt = cnt + 8
Cells(cnt, 11) = buf
buf = Dir()
Loop
End Sub

また、このコードでは
マクロを実行するファイル自体のファイル名も取得してしまうようなので、
自身のファイル名以外のものを取得することは可能でしょうか。

ご指導のほど、よろしくお願い致します。

投稿日時 - 2016-11-14 11:13:57

QNo.9255478

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

ファイルを取得なのか、ファイル名を取得なのか???

投稿日時 - 2016-11-14 11:29:38

補足

書き直して、改めて質問し直したいと思います。
失礼しました。

投稿日時 - 2016-11-14 11:43:56

あなたにオススメの質問