
VBAでIEを制御しリンク(アンカー)<a href="***">を新しいタブで開くようにしたいのですが可能でしょうか?
仮にグーグルのトップページ(http://www.google.co.jp/)の『検索オプション』(http://www.google.co.jp/advanced_search?hl=ja)を新しいタブで開くとします
実際に開きたいリンクのURLは固定ではないためURLの指定では開けませんが、飛びたいリンクの文言(『検索オプション』)は固定です
リンクに飛ぶ前に飛ぶ先のURLを取得する仕方か、Shift+Ctrl+クリックのようにリンクを新しいタブで開く方法を教えてください
一度普通にリンクに飛んでからURLを取得し、戻ってから新しいタブで開くぐらいしかできないのでしょうか?
Sub 新しいタブで開く()
Dim objIE As Object
Dim objShell
Dim URL As String
Set objShell = CreateObject("Shell.Application")
For n = objShell.Windows.Count To 1 Step -1
Set objIE = objShell.Windows(n - 1)
If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then
objIE.Navigate "http://www.google.co.jp/"
Exit For
End If
Next
Set objShell = Nothing
objIE.Visible = True
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
For Each Obj In objIE.Document.getElementsByTagName("a")
If Obj.innerText = "検索オプション" Then
Obj.Click
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
URL = objIE.Document.URL
objIE.GoBack
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Navigate URL, CLng(&H800)
Exit For
End If
Next
End Sub
よろしくお願いいたします
No.1ベストアンサー
- 回答日時:
ino34さん こんにちは。
検索オプションのURLを取得すれば良いのですよね?
For Each obj In objIE… 以下を次のように変更すれば良いかと思います。
For Each obj In objIE.Document.getElementsByTagName("a")
If obj.innerText = "検索オプション" Then
objIE.Navigate obj.href, CLng(&H800)
Exit For
End If
Next
注)次の部分のみ変更し、不必要なステートメントは削除しています。
objIE.Navigate URL, CLng(&H800)
↓
objIE.Navigate obj.href, CLng(&H800)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Chrome】タスクマネージャー...
-
【至急】パワーポイントで表の...
-
windowsでgooglechromeを開いた...
-
Microsoft Edge のウインドウの...
-
Access VBAでタブコントロール...
-
【Google Chrome】「新しいタブ...
-
Windows Media Player で「取り...
-
Wordの図形の書式タブが表示さ...
-
新しいタブについて
-
GOOGLE CHROMEにて画面を...
-
任意のタブのページをアクティ...
-
ウインドウの複製
-
Google Chromeのブラウザ(PC)...
-
Eclipseでソースを縦に2つ表示...
-
クロームをIEのエクスプロー...
-
クリック先のURLをコピーする c...
-
いつの間にか「新しいタブ」、...
-
Firefox:中クリックでタブを閉...
-
Edgeで新しいタブページがカス...
-
firefoxでダウンロードせずにpd...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Chrome】タスクマネージャー...
-
【Google Chrome】「新しいタブ...
-
windowsでgooglechromeを開いた...
-
Edgeで新しいタブページがカス...
-
Access VBAでタブコントロール...
-
【至急】パワーポイントで表の...
-
現在アクティブなタブのページ...
-
Wordの図形の書式タブが表示さ...
-
新しいタブについて
-
Google chromeでクリックができ...
-
Windows Media Player で「取り...
-
いつの間にか「新しいタブ」、...
-
Eclipseでソースを縦に2つ表示...
-
ウインドウの複製
-
Chromeのタブ上でホイールクリ...
-
任意のタブのページをアクティ...
-
ChromeでAdblockを使用すると、...
-
ブラウザアプリで、ブックマー...
-
Microsoft Edge のウインドウの...
-
Google Chromeのブラウザ(PC)...
おすすめ情報