つらつら Excel VBA

私の備忘録です。

Excel VBA ディレクトリ選択ダイアログ

'ディレクトリを選択するダイアログを表示。

Dim target_dir As String

With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
        target_dir = .SelectedItems(1)
    End If
End With

 

※選択されなかったら空文字が返る。

取得されるパスの最後にスプリット文字(¥や/)がつかない。