23歳OLです。
会社でマクロを組んでいるのですが、
できないところがあったのでご相談させてください。
▼やりたいこと
・フォルダを自分で指定して、選択したファイルの名前をシートに書き込む
1.txt 2.log 3.xls とフォルダに入っていたら
1.txt
2.log
3.xls
とシートに名前を書き込んでほしいです。
・ファイルの種類はいろいろある。(txt.logなど)
▼現在書いてみたコード
Sub Sample1()
Dim buf As String, cnt As Long
Const Path As String = ""
buf = Dir(Path & ".")
Do While buf <> ""
cnt = cnt + 1
Cells(cnt, 1) = buf
buf = Dir()
Loop
End Sub
========================
これだと、初めから指定したフォルダしか取得することができないらしいです。
そもそもConst Path As String = "このぶぶん"
このぶぶんにフォルダを指定しても動きませんでした。?
どこが原因なのでしょうか?
ご教示お願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。