Excel VBA質問箱 IV

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

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


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

11825 / 76734

←次へ　｜　前へ→


	【70439】アドレスバー非表示他でエクスプローラを開きたい

充実野菜 - 11/11/16(水) 14:14 -


	引用なし

	パスワード

こんにちは　よろしくお願いいたします

アドレスバー非表示
フォルダペイン表示
タイトルバー非表示
でエクスプローラを開きたいです

Sub Macrotest1()

　　Dim objExplorer As Object

　　Set objExplorer = CreateObject("Wscript.Shell")
　　objExplorer.Run "explorer.exe /e,c:"

End Sub
では　アドレスバー非表示用のスイッチは無いようです

Sub Macrotest2()

　　Dim objExplorer As Object
　　Dim strWebSite As String

　　Set objExplorer = CreateObject("InternetExplorer.Application")
　　strWebSite = "c:"
　　objExplorer.Navigate strWebSite
　　objExplorer.StatusBar = False
　　objExplorer.AddressBar = False
　　objExplorer.Document.CurrentViewMode = 4　　 '詳細
　　objExplorer.Visible = 1

End Sub
では　ウインドウペインが表示されません

また、どちらもタイトルバーが表示されてしまいます

アドバイスよろしくお願いいたします

3 hits

▼

【70439】アドレスバー非表示他でエクスプローラを開きたい 充実野菜 11/11/16(水) 14:14

≪