No.1ベストアンサー
- 回答日時:
とりあえず
Set ie = GetObject("", "InternetExplorer.Application")
Set ie = GetObject(, "InternetExplorer.Application")
のどちらかで取得できると思います。
Set ie = CreateObject("Shell.Application").Windows(0)
で取得する方法もあるらしいのですが、普通のフォルダもieとして認識してしまうため、純粋にieだけを取得する場合はチェックが必要だと思います。
取得したieでyahooで"おいしいラーメン"の検索結果の件数を表示します。
Sub sample()
Const READYSTATE_COMPLETE = 4
Dim ie As Object
Dim obj As Object
For Each obj In CreateObject("Shell.Application").Windows
If TypeName(obj.Document) = "HTMLDocument" Then
Set ie = obj
Exit For
End If
Next
If ie Is Nothing Then
MsgBox "ありません"
Exit Sub
End If
MsgBox "取得したieの情報" & vbCrLf & ie.LocationName & vbCrLf & ie.LocationURL & vbCrLf & TypeName(ie.Document)
ie.Navigate "www.yahoo.co.jp" 'yahooへ
Do While (ie.ReadyState <> READYSTATE_COMPLETE) Or ie.Busy: Loop '表示待ち
ie.Document.forms("sf1").elements("srchtxt").Value = "おいしいラーメン" '検索文字
ie.Document.forms("sf1").submit '検索
Do While (ie.ReadyState <> READYSTATE_COMPLETE) Or ie.Busy: Loop '表示待ち
If InStr(ie.Document.body.innertext, "に一致するウェブページは見つかりませんでした") > 0 Then
MsgBox "0件"
Else
MsgBox ie.Document.all("yschinfo").all(6).innertext & "件"
End If
Set ie = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- InternetExplorer(IE) Microsoft edgeのIEモードを解除したいのですが。 3 2023/04/09 13:51
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- Chrome(クローム) グーグルクロムをマイクロソフト・エッジに切り替える方法 2 2022/06/20 10:08
- Windows 10 パソコン初期化の件です 2 2022/06/05 11:05
- 株式市場・株価 HyperSBI 余力確認 ブラウザ 2 2022/06/19 09:17
- その他(パソコン・周辺機器) EXCELで「WEBオプションの対象ブラウザ」を変更する方法 2 2023/04/12 15:44
- フリーソフト TARGET frontier JVから起動するブラウザを変えたい 1 2022/10/09 12:08
- InternetExplorer(IE) 既定のブラウザーを変更した場合、付随して処理が必要なことはありますか? 2 2022/03/25 16:04
- HTML・CSS Chrome のキャッシュについて 3 2022/05/26 07:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
GoogleChromeでレイアウトが左...
-
HTML文書を上書き保存してもブ...
-
HTMLのimageをクリックする方法
-
CSSチェックをしたいのですが
-
HTMLとブラウザについて
-
dreamweaverでCSSのレイアウト...
-
起動済みのIEをハンドルから操...
-
WindowsとMacでのChromeのスタ...
-
IEの[新規作成(N)]→[ウィンドウ...
-
doc As HTMLdocumentのコンパイ...
-
WEBページからのメッセージをVBAで
-
エクセルでURLからタイトルのみ...
-
DOCTYPE宣言はしなくていいの?
-
VBAでgetElementByTagName
-
プルダウン(リストボックス)の...
-
HTML4.01のままの弊害
-
<IMG>のALIGN属性値「absmiddle...
-
XMLを作成してもタグしか表示さ...
-
テキストエリア内の改行禁止
-
\\n \\r \\t について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
GoogleChromeでレイアウトが左...
-
HTMLのバージョンの確認方法は?
-
Macで見るとページが崩れます。
-
WindowsとMacでのChromeのスタ...
-
<IMG>のALIGN属性値「absmiddle...
-
プルダウン(リストボックス)の...
-
エクセルのシートをブラウザに...
-
スマホでページ内リンクができない
-
doc As HTMLdocumentのコンパイ...
-
tabキーによるfocusの当たり方...
-
主要ポータルサイトの多くがス...
-
VBA オブジェクトが必要です
-
VBAでgetElementByTagName
-
起動済みのIEをハンドルから操...
-
HTML文書を上書き保存してもブ...
-
DOCTYPE宣言はしなくていいの?
-
Shift-JISでxml宣言するべき?
-
ブラウザのエンコード 自動選...
-
WEBページからのメッセージをVBAで
-
ブラウザ依存のレイアウト・・...
おすすめ情報