Excel VBA入門サイト。ここではFileSystemObjectオブジェクトを使用してフォルダを取得する方法を解説します。GetFolderメソッドの使用方法・・・。Digital Life Note（デジタルライフノート）。賢く合理的に、かつ経験に裏打ちされた快適なデジタルライフを送るための記録 Sub Sample2() Dim myFolder As Variant With Application.FileDialog(msoFileDialogFolderPicker) If .Show <> 0 Then myFolder = .SelectedItems(1) End If End With MsgBox myFolder End Sub 2.指定フォルダ内のサブフォルダをすべて取得する Dim MyFolder As String With Application.FileDialog(msoFileDialogFolderPicker).Show MyFolder = .SelectedItems(1) End With MsgBox MyFolder End Sub GetOpenFilenameのことを仰っている感じがしますが、確かにAPI関数でも同様のものがありますが、エクセルVBAにも実装されています。だから宣言は …