フォルダを開く

質問

VBAで"ファイルを開く"のようなダイアロボックスを表示し選択されたフォルダの名前と、そのフォルダの中のすべてのファイル名を取得することは出来ますか?

回答No.3

WWolf

DrPh = "c:\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(DrPh)
Set fc = f.Files
For Each f1 In fc
s = f1.Name
st = st + s
Next
MsgBox st
End Sub

上記はCドライブのルート配下のファイル名をｓｔに羅列代入しています。参考にどうぞ

回答No.2

miwaki

フォルダ名じゃなく、ファイル選択の画面を出し、選択されたファイル名を以下で取得することならできます。
If Application.FindFile = True Then
FNAM = ActiveWorkbook.Name

選択するとそのファイルがオープンされます。上記では、オープンしたファイル名をFNAMに保存しています。

回答No.1

happypoint

VBAで"ファイルを開く"のようなダイアロボックスを表示

Sub Test()

Dim varFilePath As Variant
varFilePath = Application.GetOpenFilename

MsgBox varFilePath
End Sub

このやり方ではフォルダではなく、ファイル（のパス）を取得します。
でもフォルダは簡単に取得できますから（ファイル名を削る）何とかできるのでは。
あとは任せた！