目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

216 / 277

←次へ　｜　前へ→

【70】フォルダ選択<FileDialog使用>

BOTTA - 04/8/23(月) 19:32 -


	引用なし

	パスワード

'<FileDialog使用>
'Excel2002以降、FileDialogオブジェクトが使えるようになった
'引数「fileDialogType」にmsoFileDialogFolderPickerを指定
'従って、Excel2002以降限定
'個人的にはDialogの形がFile選択と同じであまり好きではない
Sub f選択03()
　　With Application.FileDialog(msoFileDialogFolderPicker)
　　　　If .Show = -1 Then
　　　　　　MsgBox .SelectedItems(1), 64, "選択されたフォルダ"
　　　　End If
　　End With
End Sub

9,114 hits