ヤフーのショートカットをブラウザに表示させる方法
- ヤフーのショートカットをブラウザに表示させる方法について知りたいです。ヤフーのアイコンをデスクトップに持って行けばショートカットが出来ると聞いたのですが、VBAで開くことも可能でしょうか?
- ショートカットをブラウザに表示させるためには、ヤフーのアイコンをデスクトップに持って行く方法があります。ただし、VBAで開くことには難しさがあるかもしれません。他のサイトのショートカットも一括で開けたら便利ですね。
- ヤフーのショートカットをブラウザに表示させる方法やVBAで開く方法について詳しく教えてください。他のサイトのショートカットも一括で開けると便利だと思います。
- ベストアンサー
ショートカットをブラウザに表示させたい
ブラウザにhttp://www.yahoo.co.jp/を表示させて ヤフーのアイコンをデスクトップにグイって持って行けば デスクトップにヤフーのショートカットが出来ますが このショートカットファイルをVBAで開くことは可能ですか? ショートカット名は「Yahoo! JAPAN」となっています。 Sub sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "Yahoo! JAPAN" Set objIE = Nothing End Sub と言うように立ち上げられたらと思うのですが ショートカットのURLを読み取る方法はありますか? Sub sample() Dim ファイル名 As String ファイル名 = "C:\Documents and Settings\◎◎\デスクトップ\Yahoo! JAPAN" CreateObject("Shell.Application").ShellExecute ファイル名 End Sub こっちの方法では、「見つかりません」 と言うエラーになってしまいました。 今回の例題はヤフーだからわかりやすいのですが 実はフォルダに色々なサイトのショートカットを貯めており、 それをVBAで開けたら便利だなと思っています。 お気に入りフォルダみたいな感じになっています。
- AXWNPWQTPCI
- お礼率100% (40/40)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
> ファイル名 = "C:\Documents and Settings\◎◎\デスクトップ\Yahoo! JAPAN" ファイル名が不完全です。 拡張子まで完全に書いてください。 ファイル名 = "C:\Documents and Settings\◎◎\デスクトップ\Yahoo! JAPAN.url"
その他の回答 (1)
- tsubuyuki
- ベストアンサー率45% (699/1545)
Sub sample() Dim ファイル名 As String ファイル名 = "フルパス&ファイル名&拡張子まで" CreateObject("Shell.Application").ShellExecute ファイル名 End Sub で出来ますよ。 例えば ファイル名 = "C:\Users\ユーザー名\Desktop\フォルダ名\ファイル名.url" など。 ただし、 > フォルダに色々なサイトのショートカットを貯めており、 > それをVBAで開けたら便利だな ショートカットの数だけコレを書くのであれば、便利かどうかは疑問です。 そもそも、一々エクセルなりワードなりを開いて、そこからブラウザを立ち上げるなら 逆に手間だと思うのですが、どうなんでしょう? 例えば、起動時に動くように Private Sub Workbook_Open() Dim myPath As String Dim mymyFile As String Range("A:A").Delete myPath = "フルパス" myfile = Dir(myPath & "*.*") i = 1 Do While myfile <> "" Cells(i, 1) = myfile i = i + 1 myfile = Dir Loop End Sub などとワークブックのモジュールに仕込んでおき、 起動時にシートにフォルダ内のファイル一覧を書き出し、 (好きな手法ではないですが)セルをダブルクリックするとブラウザが起動するように Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim ファイル名 As String ファイル名 = "フルパス" & Target.Value CreateObject("Shell.Application").ShellExecute ファイル名 End Sub をワークシートのモジュールに書いておく・・ と言うやり方は考えられなくはないですが。 どちらにしても、エクスプローラーでフォルダを開くか、 エクセルでブックを開くか、の違いですね。 多分、ですが、早いのは前者でしょう。
お礼
ありがとうございました。
関連するQ&A
- VBAでIE操作をするサンプル
VBAでIE操作をするサンプルをネットでいくつか見ているのですが Sub Sample1() Dim objShell As Object Dim objIE As New InternetExplorer Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing Set objShell = Nothing End Sub Sub Sample2() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub ではどちらを使った方がいいのでしょうか? 圧倒的にSample2の方がネットでは多いのですが Sample1のやり方もあることを知りました。 Sample1の方法でブラウザを開くメリットはあるのでしょうか?
- ベストアンサー
- Visual Basic
- ie 64bit 32bit どちらが開いてる?
Sub Sample() Dim objIE As InternetExplorer Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "http://www.yahoo.co.jp/" Set ObjIE = Nothing End Sub で、vbaからieを開いた場合、64bit 32bitのどちらで開かれるのでしょうか? 私の環境はwin7、IE9です。
- ベストアンサー
- オフィス系ソフト
- 複数のタブを開きたい IE
IE9を使っています。 画像のようにタブを二つ開くにはどうすればいいでしょうか? Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub だと一つのタブしか開けません。 Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub にしても Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate2 "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub にしても1つのタブしか開けないです。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- NavigateとNavigate2の違いは?
Sub Sample_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub Sub Sample_Navigate2() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate2 "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub 上記二つのサンプルをテストしてみましたが違いが判りません。 Navigate2のヘルプを見ようとしても キーワードが見つかりません。が見つかりませんになってしまいます。 この二つのメソッドの違いを教えていただけますか? オブジェクトブラウザの情報だと Navigateは Sub Navigate(URL As String, [Flags], [TargetFrameName], [PostData], [Headers]) SHDocVw.InternetExplorer のメンバー Navigates to a URL or file. Navigate2は Sub Navigate2(URL, [Flags], [TargetFrameName], [PostData], [Headers]) SHDocVw.InternetExplorer のメンバー Navigates to a URL or file or pidl. と書いてありました。 引数の数は一緒でした。
- ベストアンサー
- オフィス系ソフト
- NewはCreateObjectと同じ意味?
Sub test01() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True End Sub Sub test02() Dim objIE As New InternetExplorer objIE.Visible = True End Sub この二つのコードを比較した場合、 Dim objIE As New InternetExplorer で宣言すれば、 Set objIE = CreateObject("InternetExplorer.application") がなくても、 objIE.Visible = True をしてみるとブラウザが立ち上がっているのですが、 これは NewはCreateObjectと同じ意味という事でしょうか?
- ベストアンサー
- Excel(エクセル)
- IEではなくファイアフォックスを指定することは
VBAでブラウザを開く場合、 IEではなくファイアフォックスを指定することは可能ですか? 既定のブラウザはIEにしています。 Sub test1() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://www.ocn.ne.jp/" objIE.Visible = True Set objIE = Nothing End Sub の Set objIE = CreateObject("InternetExplorer.Application") の部分を Set objIE = CreateObject("firefox.exe") に変えてみたら、 【ActiveX コンポーネントはオブジェクトを作成できません。(Error 429)】 になりました。
- ベストアンサー
- Visual Basic
- MSXML2で、サイトのタイトルを取得したい
アクセスvbaです。 InternetExplorerの方法だと、 **************************************************** Sub Sample1() Dim ObjIE As InternetExplorer Set ObjIE = CreateObject("InternetExplorer.Application") ObjIE.Navigate "http://www.yahoo.co.jp/" ObjIE.Visible = True Do While ObjIE.Busy = True DoEvents Loop Do While ObjIE.Document.ReadyState <> "complete" DoEvents Loop Debug.Print ObjIE.Document.Title Debug.Print ObjIE.LocationName ' 同じ ObjIE.Quit Set ObjIE = Nothing End Sub **************************************************** で、該当のサイトのタイトルを取得できるのですが、 これではなく、 **************************************************** Sub Sample2() Dim objMSXML2 As Object Dim myObj As Object Dim myAll As Variant Set objMSXML2 = CreateObject("MSXML2.XMLHTTP") objMSXML2.Open "GET", "http://www.yahoo.co.jp/", False objMSXML2.Send myAll = objMSXML2.responseText 'ソースを抜き出す ’タイトル取得 Set objMSXML2 = Nothing End Sub **************************************************** の方法で、サイトのタイトルを取得したいのですが、 可能でしょうか? コードをご教授ください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでyahooをログアウトしたい
VBAでyahooにログインすることはできたのですが、 VBAでログアウトしたいです。 Sub yahoo() Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" ログアウトするコード ・ ・ ・ End Sub まではわかりました。自分なりには頑張りました。 IE9を使ってるのですが そもそもソースの見方がわかりません。 ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
- 二つ目のタブの情報をウォッチウインドウで確認するこ
一つのウインドウで二つのタブを開いたとき、 二つ目のタブの情報をウォッチウインドウで確認することはできないのですか? 例えば、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate2 "http://www.google.co.jp/", 2048 Set objIE = Nothing End Sub この状況でobjIEをウォッチウインドウで見た時に Set objIE = Nothingで処理を中断しても Navigate2で開いたhttp://www.google.co.jp/の情報はobjIEに格納されてないのでしょうか? ウォッチウインドウを見てもhttp://www.yahoo.co.jp/の情報しか見当たりません。
- ベストアンサー
- オフィス系ソフト
- メモ帳を好きな位置で開くには?
Sub Sample() Dim i As Long i = Shell("notepad.exe", vbNormalFocus) End Sub このコードだと、多分前回開いた時と同じ位置・大きさで開いてしまうのですが、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Top = 0 objIE.Left = 0 objIE.Width = 500 objIE.Height = 500 Set objIE = Nothing End Sub のように、サイズを指定して開く方法はありますか? メモ帳に限らず、Shell関数を使ってアプリケーションを開くときに サイズや位置を指定する方法を教えてください。
- ベストアンサー
- オフィス系ソフト
お礼
ショートカットの拡張子はurlだったのですね。 気付きませんでした。うまく開けました。