excelVBAにて開くフォルダを指定

質問

エクセル上にボタンを作成し、押下するとファイルを選択するダイアログが開き、ファイル(csv)を指定して読み込みエクセルに貼り付けていくというのをつくったのですが、これをフォルダを指定してそのフォルダ内のファイルをすべてループさせて読み込ませたいのですが、フォルダの指定がよくわかりません。参考になるＨＰなどありましたらご紹介下さい。宜しくお願いいたします。

回答No.2

tux_the_penguin · ベストアンサー

こんな感じで良いでしょうか？
Sub bar()
'''
Dim pathname As String
Dim fileext As String
Dim file2get As String
''' ここではこの２つの変数を書いてしまってますが
'''　本来はコマンドボタンのほうのコードから渡される値ですよね？
pathname = "C:\directory\"
fileext = "cvs"
'''
file2get = Dir(pathname + "*."+fileext)
Do While file2get <> ""
''' この下の行は各cvsをそれぞれ１bookとして開きます　'''
Workbooks.Open Filename:=file2get
　　'''　なのでこの部分はお好みに置き換えてください　　'''
file2get = Dir
Loop
End Sub

要は最初のDir()では最初に見つかったファイル名を取得して、
その次のファイルは　Loop直前の引数なしの　Dir　で取得　ってことです

回答No.1

picklse

こちらが参考になると思います。
モーグ->即効テクニック集->ExcelVBA->フォルダ内のファイル名を取得する
http://www.moug.net/tech/exvba/0060001.htm