フォルダ選択画面表示

フォルダ選択画面表示

Dim dlg As FileDialog
Dim blAns As Boolean
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
dlg.ButtonName = "Folder Select"
dlg.Filters.Clear
dlg.InitialFileName = "C:\Users\"
dlg.InitialView = msoFileDialogViewLargeIcons
blAns = dlg.Show
If blAns Then
  Cells("10", "B").Value = dlg.SelectedItems(1)
End If

  • 最終更新:2019-09-05 22:14:16

このWIKIを編集するにはパスワード入力が必要です

認証パスワード