NEW ARTICLE
Oracle Database ユーザーにロールを付与する
  1. HOME
  2. vba
  3. VBA ダイヤログでフォルダを選択する

VBA ダイヤログでフォルダを選択する

  • 作成日 2022.07.11
  • vba
VBA ダイヤログでフォルダを選択する

VBAで、ダイヤログでフォルダを選択する表示コードを記述してます。

目次

環境

  • OS windows10 64bit

ダイヤログでフォルダを選択

ダイヤログでフォルダを選択するには、「Application.FileDialog」で「msoFileDialogFolderPicker」を指定します。

実際に適当なボタンを用意して、ダイヤログで選択したフォルダをセルに表示する
以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    With Application.FileDialog(msoFileDialogFolderPicker)
    
        ' 複数選択不可
        .AllowMultiSelect = False
    
        If .Show <> 0 Then
        
            Cells(2, 2).Value = .SelectedItems(1)
        
        End If
    
    End With

End Sub

実行してみます。

フォルダパスが表示されていることが確認できます。