フォルダ選択画面表示
フォルダ選択画面表示
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