![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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でレイアウトが左...
-
動く顔文字はブラウザ選びますか?
-
Macで見るとページが崩れます。
-
PerlでIEの制御と自動入力
-
スマホでページ内リンクができない
-
主要ポータルサイトの多くがス...
-
doc As HTMLdocumentのコンパイ...
-
webページの有効期限が切れてい...
-
HTMLのバージョンの確認方法は?
-
Webサイトの制作で主流は?
-
色々なネット環境の人にも対応...
-
HP作成後の各種ブラウザ表示チ...
-
NN6.2での初期表示中央揃...
-
AfterEffectsでイージーイーズ...
-
XMLを作成してもタグしか表示さ...
-
H1タグに改行の<br>を使う
-
テキストエリア内の改行禁止
-
テーブルの幅を固定するとnowra...
-
Eclipseの空白が変な...
-
liタグの自動改行をやめたい!
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
GoogleChromeでレイアウトが左...
-
doc As HTMLdocumentのコンパイ...
-
Macで見るとページが崩れます。
-
プルダウン(リストボックス)の...
-
WindowsとMacでのChromeのスタ...
-
<IMG>のALIGN属性値「absmiddle...
-
VBA オブジェクトが必要です
-
起動済みのIEをハンドルから操...
-
WEBページからのメッセージをVBAで
-
tabキーによるfocusの当たり方...
-
HTMLのバージョンの確認方法は?
-
スマホでページ内リンクができない
-
DOCTYPE宣言はしなくていいの?
-
VBAでgetElementByTagName
-
IE3.02 ,IE4 , IE5 ,IE6 すべて...
-
エクセルのシートをブラウザに...
-
Flashは2020年にサポートが終了...
-
HTMLとXHTML
-
CSSハックについて・・・
-
webページの有効期限が切れてい...
おすすめ情報