Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35160 / 76738

←次へ　｜　前へ→


	【46780】Re:指定フォルダを開く

ooisi - 07/2/14(水) 22:56 -


	引用なし

	パスワード

▼りんさん：
ありがとうございます。
説明が下手ですみません
指定フォルダを開きそのまま選択して必要な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

0 hits

▼

【46759】指定フォルダを開く ooisi 07/2/14(水) 12:17