現在開いているIEのタイトルを取得する方法
- VBAを使用して、現在開いているIEのタイトルを取得する方法について説明します。
- Shell.Applicationオブジェクトを使用して、現在開いているすべてのIEウィンドウを取得し、タイトルを取得することができます。
- ただし、LocationURLプロパティではなく、Document.Titleプロパティを使用する必要があります。Locationnameプロパティは存在しないため、エラーになります。
- ベストアンサー
現在開いてるIEのタイトルを取得するには？
Sub test() Dim shl As Object Dim wnd As Object Set shl = CreateObject("Shell.Application") For Each wnd In shl.Windows() Debug.Print wnd.LocationURL Next Set shl = Nothing End Sub ----------------------------------------- これを実行するとＩＥのＵＲＬは取得できますが 画像のようにタイトル部分の文字列を取得したいです。 LocationURLをLocationnameに変えたらエラーになりました。 ご教授よろしくお願いします。
- a983742qyuikj
- お礼率100% (142/142)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
これでいいのかな？ Dim shl As Object Dim wnd As Object Dim doc As Object Set shl = CreateObject("Shell.Application") For Each wnd In shl.Windows() If TypeName(wnd.document) = "HTMLDocument" Then 'オブジェクトを代入する Set doc = wnd.document Debug.Print doc.Title Set doc = Nothing End If Next Set shl = Nothing
関連するQ&A
- 現在開いている全てのIEのURLのタイトルを取得し
現在開いている全てのIEのURLのタイトルを取得したいのですが Sub test() Dim shl As Object Dim wnd As Object Dim doc As Object Dim frg As Boolean Set shl = CreateObject("Shell.Application") For Each wnd In shl.Windows() If TypeName(wnd.Document) = "HTMLDocument" Then Set doc = wnd.Document Debug.Print doc.Title Set doc = Nothing End If Next Set shl = Nothing End Sub このコードが If TypeName(wnd.Document) = "HTMLDocument" Then でエラーになる時とならない時があります。 エラーになる時は、 実行時エラー -2147467259 ’Document’メソッドは失敗しました：'IWebBrowser２'オブジェクト となります。 エラーが発生する時としない時の違いが分かりません。 そもそもどういう意味のエラーでしょうか？ IE11、オフィス２０１０です。
- ベストアンサー
- オフィス系ソフト
- LocationNameを取得するとアウトルックが
エクセルｖｂａ２０１０です。よろしくお願いします。 Sub Sample() Dim ie As Object For Each ie In CreateObject("Shell.Application").Windows() Debug.Print ie.LocationName Next End Sub このコードで、現在開いているＵＲＬ名を取得すると、 アウトルックを立ち上げてると outlook:%26%2321463・・・ と言うのが取得されるのですが、これは何のパスでしょうか？ メールは立ち上げていません。
- 締切済み
- Visual Basic
- MSXML2で、サイトのタイトルを取得したい
アクセスｖｂａです。 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で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
- ｉｅ操作 フレームのＵＲＬがあってるか取得したい
http://okwave.jp/qa/q8135136.html こちらのANo.2様のご意見を参考に、フレーム操作について調べているのですが、 サンプルを作ってみたのですが、うまくできません。 サンプルの内容としては、ＵＲＬの中のフレームのオブジェクトを変数に格納し、 その格納したオブジェクトのＵＲＬをメッセージボックスに表示し、 欲しいＵＲＬかどうかを目視で確認したいのですが Dim objIE As InternetExplorer Sub Sample001() Dim myObj As Object Dim objFr As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "http://masaboo.cside.com/new_html1/ht_sun/frame02.htm" Stop Set objFr = objIE.document.frames.Item(1) MsgBox objFr.document.frames.LocationURL Set objIE = Nothing End Sub MsgBox objFr.document.frames.LocationURL だと、実行時エラー438になります。 MsgBox objFr.document.LocationURLもMsgBox objFr.LocationURLもダメでした。 私は何か根本的に勘違いをしているような気がしますが、格納したフレームのＵＲＬを表示する方法があれば教えてください。 ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
- コードの意味が分からないので教えてください。
Sub Test1() Dim objShell As Object Dim objWin As Object Set objShell = CreateObject("Shell.Application") For Each objWin In objShell.Windows Debug.Print objWin Next End Sub のコードを実行すると、 ・Microsoft Internet Explorer ・Windows Internet Explorer が取得されるのですが、 これは何が取得されてるのでしょうか？ ＩＥブラウザとフォルダですか？ ＩＥブラウザは３つ フォルダは５つ 立ち上げてますが このコードを実行すると、 Microsoft Internet Explorer は、4つ Windows Internet Explorer は、3つ取得されます。 ＯＳはＸＰです。ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 現在表示されているURLを取得したいのですが
Sub test1() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://www.goo.ne.jp/" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop Debug.Print objIE.Navigate Set objIE = Nothing End Sub //////////////////////////////////////////////// をやろうとすると、 Debug.Print objIE.Navigate の部分で、「引数は省略できません。」とエラーになります。 どう修正すればいいか教えてください。 （"http://www.goo.ne.jp/"はダミーです）
- ベストアンサー
- オフィス系ソフト
- サイトタイトルを取得するマクロを最速化
下記のマクロは、サイトタイトルを取得するマクロです。 このマクロで、サイトタイトルを取得していましたが、 ５秒に１つくらいのペースなので、もっとスピードを上げたいと思っています。 最速化するには、どこか修正した方が良い箇所はあるでしょうか？ また、変更するべき設定などもあったりするでしょうか？ よろしくお願いいたします Sub sample() Dim Carea As Range Set Carea = Selection If Carea(1).Value = "" Then Exit Sub Dim Tcel As Range Dim ObjIE As Object Set ObjIE = CreateObject("InternetExplorer.Application") For Each Tcel In Carea ObjIE.Navigate Tcel.Value Do While ObjIE.Busy = True Or ObjIE.readyState <> 4 DoEvents Loop Tcel.Offset(, 1) = ObjIE.document.Title Next ObjIE.Quit Set ObjIE = Nothing End Sub
- 締切済み
- Visual Basic
- ｗｅｂページのみのＵＲＬを取得したい
Sub testa() Dim objIE Dim myStr Set objRE = CreateObject("VBScript.RegExp") For Each objIE In CreateObject("Shell.Application").Windows myStr = myStr & vbCrLf & objIE.LocationURL Next MsgBox myStr End Sub を実行するとフォルダのパスまで取得されてしまいますが ＷＥＢページのみ取得するにはどうすればいいですか？ 正規表現で”「ＨＴＭＬ」で終わる”と言う条件を付けくわえようとしましたが htmlで終わらないサイトもあるのでダメでした。
- ベストアンサー
- Visual Basic
- ＩＥではなくファイアフォックスを指定することは
ＶＢＡでブラウザを開く場合、 ＩＥではなくファイアフォックスを指定することは可能ですか？ 既定のブラウザはＩＥにしています。 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
お礼
出来ました！ありがとうございました。