|
▼りん さん:
ありがとうございます。
説明が下手ですみません
指定フォルダを開きそのまま選択して必要なbookがあれば
開きたいのですがよろしくお願いします。
尚、下記コードだとフォルダは開いたままなのですが
book選択し開いた場合フォルダは閉じたいのですが?
Sub 開く2()
Const MyPath As String = "D:\OfficeII\ISO書類関連"
Shell "Explorer.exe " & MyPath, 1
End Sub
>>>いろいろテストした結果下記コードが希望に一番近いのですが
>>>フォルダを指定できませんか "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
|
|