Ｐａｇｅ 321 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォルダを開くダイアログ B-TYPE 02/11/10(日) 17:51 ┗Re:フォルダを開くダイアログ ぴかる 02/11/10(日) 19:27 ┗Re:フォルダを開くダイアログ B-TYPE 02/11/10(日) 19:51 ┗やっぱり・・・。 ぴかる 02/11/10(日) 20:10 ┣とりあえず、リンクだけ… ぴぎゃ!!(反省中) 02/11/10(日) 20:19 ┗Re:やっぱり・・・。 ハマゾウ 02/11/10(日) 20:22 ┗なるほど… ぴぎゃ!!(反省中) 02/11/11(月) 2:24 ┗わたしもなるほど… ぴかる 02/11/11(月) 8:03 ─────────────────────────────────────── ■題名 ： フォルダを開くダイアログ ■名前 ： B-TYPE ■日付 ： 02/11/10(日) 17:51 -------------------------------------------------------------------------
| フォルダを指定していたい処理があるのですが、 "フォルダを開く"ダイアログはどうすれば出てきますか？ ファイルを開くではなくてフォルダを指定するのがミソです。 |
| ▼B-TYPEさん、こんにちは。 >フォルダを指定していたい処理があるのですが、 >"フォルダを開く"ダイアログはどうすれば出てきますか？ >ファイルを開くではなくてフォルダを指定するのがミソです。 こんなんでどかな？。でも、ちゃうような気もする。 Sub Macro1() ChDir "C:\My Documents\B-TYPEさん専用" Application.Dialogs(xlDialogOpen).Show End Sub |
| ▼ぴかる さん： ちょっと違いますです。。 ファイルを開くダイアログじゃなくてフォルダを指定するダイアログが 出してみたいのですが、そんなものってありますか？ |
| ▼B-TYPE さん： >ちょっと違いますです。。 >ファイルを開くダイアログじゃなくてフォルダを指定するダイアログが >出してみたいのですが、そんなものってありますか？ そうですよね。エクスプローラを開くような事をされたいんですよね。 ていうことで、わたくしギッブアップします。ごめんなさい。APIでやるんかな？。 先生方、お助け下さい。お頼みします。 |
| B-TYPEさん、ぴかるさん、こんばんは。 ▼ぴかるさん 「趣味の世界ですが・・・。」ではお役に立てませんでしたね… 申し訳ありません。 ▼B-TYPEさん ↓の「フォルダ選択ダイアログ」をご覧ください (試してみたかったのですがこれから仕事が…申し訳ありません)。 http://www.bekkoame.ne.jp/~ilgg/VBMain/index.html それでは。 |
| ▼B-TYPE さん、ぴかる さん 以下のコードで、いかがでしょうか？ Sub test() Dim Folder As Object Set Folder = CreateObject("Shell.Application"). _ BrowseForFolder(0, "フォルダを選択してください", 0, "E:\\") If Not Folder Is Nothing Then MsgBox Folder.Items.Item.Path End If End Sub |
| ハマゾウさん、こんばんは。 Shellオブジェクトを利用すると、とても簡単に実現できますね(^^; 「デスクトップ」を選択するとエラーが発生しましたので、 勝手に一部変更しました… Sub test() Dim Folder As Object Set Folder = CreateObject("Shell.Application"). _ BrowseForFolder(0, "フォルダを選択してください", 0) If Not Folder Is Nothing Then MsgBox Folder.Self.Path End If Set Folder = Nothing End Sub それでは。 |
| ハマゾウさん、ぴぎゃ!!(反省中)さん、おはようございます。 お二方様、フォローありがとうございました。 >Shellオブジェクトを利用すると、とても簡単に実現できますね(^^; 朝来て、教えてもらったばかりのShell関数ならできそうだぞと思って挑戦しようとしたら、先生方からのお答えが・・・。でも、自分の考えも間違えじゃなくて良かったです。 間違いが非常に多い私なので、これからもフォローよろしくお願いいたします。 |