VBAでフォルダパスを取得する

VBAでApplicationオブジェクトのFileDialogを使用することで、フォルダの選択ダイアログボックスを
取得することができます。

Application.FileDialogでフォルダのパスを取得するコードは以下になります。

Function GetFolderPath() As String
'###################################################################################
'フォルダ選択ダイアログを開き、選択したフォルダの絶対パスの末尾に
'\を付加してリターンする
'-----------------------------------------------------------------------------------
'戻り値:選択したフォルダの絶対パスの末尾に\を付加したもの
'###################################################################################
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
      GetFolderPath = .SelectedItems(1) & "\"
    End If
  End With

End Function

Function GetFolderPath() As String

'###################################################################################

'フォルダ選択ダイアログを開き、選択したフォルダの絶対パスの末尾に

'\を付加してリターンする

'-----------------------------------------------------------------------------------

'戻り値:選択したフォルダの絶対パスの末尾に\を付加したもの

'###################################################################################

With Application.FileDialog(msoFileDialogFolderPicker)

If .Show Then

GetFolderPath = .SelectedItems(1) & "\"

End If

End With

End Function

GetFolderPath関数に対してテストを行ってみます。

Sub TestGetFolderPath()
  
  Dim folderPath As String
  folderPath = GetFolderPath
  MsgBox folderPath

End Sub

Sub TestGetFolderPath()

Dim folderPath As String

folderPath = GetFolderPath

MsgBox folderPath

End Sub

フォルダ選択画面が表示されるので、C:\GetFolderPathの中にあるfolderを選択してみます。

選択したフォルダのパスがメッセージボックスで表示されます。