OS標準のファイル開くダイアログを表示します。
タイトル、ファイル選択のフィルタ、デフォルトファイル名は任意に設定が可能です。
「開く」クリック時にはファイル名を含むフルパスが返ります。
「キャンセル」クリック時には、Falseが返ります。
[Sample]
Function Puf_File_Open() As String
Dim strFileName As String
Puf_File_Open = ""
'*** デフォルトフォルダを指定します。
ChDrive "C"
'*** ファイル開くダイアログを表示します。
strFileName = Application.GetOpenFilename(, , " ファイル開く", False)
If strFileName = False Then
Exit Function
End If
Puf_File_Open = strFileName
End Function
|