Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8117 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【35141】コマンドボタンよりフォルダを開きたい タンメン 06/2/22(水) 11:33 質問[未読]
【35142】Re:コマンドボタンよりフォルダを開きたい Statis 06/2/22(水) 11:38 発言[未読]
【35146】Re:コマンドボタンよりフォルダを開きたい タンメン 06/2/22(水) 12:46 発言[未読]
【35143】Re:コマンドボタンよりフォルダを開きたい Blue 06/2/22(水) 11:41 質問[未読]
【35147】Re:コマンドボタンよりフォルダを開きたい タンメン 06/2/22(水) 12:47 発言[未読]
【35148】Re:コマンドボタンよりフォルダを開きたい やっちん 06/2/22(水) 12:52 発言[未読]
【35151】Re:コマンドボタンよりフォルダを開きたい タンメン 06/2/22(水) 13:24 お礼[未読]
【35149】Re:コマンドボタンよりフォルダを開きたい Blue 06/2/22(水) 13:06 発言[未読]
【35150】Re:コマンドボタンよりフォルダを開きたい タンメン 06/2/22(水) 13:23 お礼[未読]
【35156】Re:コマンドボタンよりフォルダを開きたい Kein 06/2/22(水) 15:23 発言[未読]
【35166】Re:コマンドボタンよりフォルダを開きたい タンメン 06/2/22(水) 17:36 お礼[未読]
【35141】コマンドボタンよりフォルダを開きたい
質問  タンメン  - 06/2/22(水) 11:33 -
引用なし
パスワード
   すみません。もう1つ別件で質問させてください。

フォームに備え付けたコマンドボタンをクリックすることで、
ある指定したフォルダを開きたいのですが、
よい方法があったら教えてください。よろしくお願いします。

＊Office：2000
【35142】Re:コマンドボタンよりフォルダを開きたい
発言  Statis  - 06/2/22(水) 11:38 -
引用なし
パスワード
   こんにちは

GetOpenFilename メソッドを調べてみてください。
【35143】Re:コマンドボタンよりフォルダを開きたい
質問  Blue  - 06/2/22(水) 11:41 -
引用なし
パスワード
   > ある指定したフォルダを開きたいのですが、
フォルダを開くとは？
エクスプローラを立ち上げたいのでしょうか？
【35146】Re:コマンドボタンよりフォルダを開きたい
発言  タンメン  - 06/2/22(水) 12:46 -
引用なし
パスワード
   Statis さん

ありがとうございます。
当初はこちらで対応させるつもりでしたが、
ユーザーの要望で、直に指定したフォルダを開いた
状態にして欲しいとのことでした。
しかし、そういう方法が思いつかなかったので…。
もしご存知でしたらよろしくお願いいたします。
【35147】Re:コマンドボタンよりフォルダを開きたい
発言  タンメン  - 06/2/22(水) 12:47 -
引用なし
パスワード
   Blueさん

>エクスプローラを立ち上げたいのでしょうか？

すみません。言葉不足でした。
BrowseForFolderでコモンダイアログを開くのではなく、
指定のフォルダが"C:\Windows\"だとしたら、
そのフォルダの中身がOpenされた状態にしたいのです。
もしそういった方法があったら教えてください。
よろしくお願いいたします。
【35148】Re:コマンドボタンよりフォルダを開きたい
発言  やっちん  - 06/2/22(水) 12:52 -
引用なし
パスワード
   ▼タンメン さん：
こんにちは。
C:\WINDOWSはこれで開きます。

　　Dim RETVAL
　　RETVAL = Shell("Explorer.exe " & "C:\WINDOWS", vbNormalFocus)
【35149】Re:コマンドボタンよりフォルダを開きたい
発言  Blue  - 06/2/22(水) 13:06 -
引用なし
パスワード
   > BrowseForFolder
とは Shell.Application でしょうか？

WSHでも開くことができます。

Dim objShell As Object

Set objShell = CreateObject("Shell.Application")
objShell.Explore "C:\Windows\"
'objShell.Open "C:\Windows\"

Set objShell = Nothing
【35150】Re:コマンドボタンよりフォルダを開きたい
お礼  タンメン  - 06/2/22(水) 13:23 -
引用なし
パスワード
   Blue さん

>WSHでも開くことができます。
WSHでも動作確認して、無事できました。
ありがとうございます!!
【35151】Re:コマンドボタンよりフォルダを開きたい
お礼  タンメン  - 06/2/22(水) 13:24 -
引用なし
パスワード
   やっちんさん

Shellの使い方があまり理解できていなかったので、
参考にさせていただきました。
動作確認をしまして、無事できました。
ありがとうございます!!
【35156】Re:コマンドボタンよりフォルダを開きたい
発言  Kein  - 06/2/22(水) 15:23 -
引用なし
パスワード
   解決されたようですが、参考までに。

Sub MyFolder_Open()
　 Dim ff　As Object
　 Dim MyFol As String
　　　
　 Set ff = CreateObject("Shell.Application"). _
　 BrowseForFolder(0, "フォルダを選択してください", 0)
　 If ff Is Nothing Then Exit Sub
　 MyFol = ff.Items.Item.Path: Set ff = Nothing
　 If InStr(1, MyFol, Chr(32)) > 0 Then
　　　MyFol = CreateObject("Scripting.FileSystemObject") _
　　　.GetFolder(MyFol).ShortPath
　 End If
　 CreateObject("WScript.Shell").Run MyFol
End Sub
【35166】Re:コマンドボタンよりフォルダを開きたい
お礼  タンメン  - 06/2/22(水) 17:36 -
引用なし
パスワード
   Keinさん

最終的には、直接特定のフォルダをOpenするようにしました。
ダイアログに関しては今後出てくる場面も多々あると思われるので、
参考にさせていただきます。
ありがとうございました!!
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8117 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free