|
ooisi さん、こんばんわ。
>>いろいろテストした結果下記コードが希望に一番近いのですが
>>フォルダを指定できませんか "D:\OfficeII\ISO書類関連"
>デフォルトの[ファイル]→[開く]のようなファイルの種類は
>指定できないのでしょうか?よろしくお願いします。
話の流れから、指定したフォルダからファイルを選択したいという意味に見えたので。
Sub test()
Dim Pdat1 As String, Pdat2 As String
Dim Ifile As Variant
'
Pdat1 = CurDir '現在のカレントフォルダ
Pdat2 = "D:\OfficeII\ISO書類関連" '読み込むフォルダ
If Dir(Pdat2, vbDirectory) = "" Then
MsgBox Pdat2, vbExclamation, "フォルダなし"
Else
ChDrive Pdat2 'カレントドライブ変更
ChDir Pdat2 'カレントフォルダ変更
'
Ifile = Application.GetOpenFilename("設定ファイル (*.xls), *.xls")
If TypeName(Ifile) = "Boolean" Then
MsgBox "中断", vbExclamation
Else
MsgBox Ifile, vbInformation, "ファイル"
End If
'
ChDrive Pdat1 'カレントドライブ戻す
ChDir Pdat1 'カレントフォルダ戻す
End If
End Sub
|
|