Chrome　ページ内のリンク先URLを全て取得したい

お世話になります。

以前にも質問し、回答をいただいたのですが
やはり上手くいかず、解決に至っておりませんので再度質問失礼しますm(__)m
（以前回答者様、ありがとうございました！）

Chromeにて指定ページ内にある全リンク先の中から、指定文字を含むURLのみを取得したいです。

下記のように、操作対象がIEの場合はイミディエイトウィンドウにて取得を確認出来るのですが
Chromeの場合だと取得が出来ない状態です。
エラーメッセージ等は出ておりません。

VBA
1
2Set objIE = CreateObject("InternetExplorer.Application")
3objIE.navigate "https://www.yahoo.co.jp/" 
4
5For Each anchor In objIE.Document.Links
6
7      '指定文字を含むURLのみ取得
8       If anchor.href Like "*/ここに検索対象文字列/*" Then
9
10          Debug.Print anchor.href
11'         ws1.Range("AE4").Value = anchor.href
12 
13       End If
14
15Next
16

どなたかお力添えをいただけないでしょうかm(__)m
宜しくお願い致します。

開発環境
Excel2010/Selenium
chrome 80.0.3987.1000/chromedriver 80.0.3987.16

行動規範の内容に同意します

回答1件

ベストアンサー

そのソースをchrome WebDriverで置き換えるとこんな感じですね。
Windows10/Excel2013/chrome80.0.3987.149で動作確認しました。
開発環境に書かれてるので大丈夫だとは思いますが、
SeleniumBasicのインストールと参照設定が必要です。

VBA
1Dim Driver As New Selenium.WebDriver
2Driver.Start "chrome"
3Driver.Get "https://www.yahoo.co.jp/"
4
5For Each anchor In Driver.FindElementsByTag("a").Attribute("href")
6
7    '指定文字を含むURLのみ取得
8     If anchor Like "*/ここに検索対象文字列/*" Then
9    
10        Debug.Print anchor
11'        ws1.Range("AE4").Value = anchor
12    
13     End If
14
15Next
16
17Driver.Close
18Set Driver = Nothing

投稿2020/03/19 13:09

編集2020/03/19 13:28

yureighost

総合スコア2183

__Me__

2020/03/24 06:04

回答ありがとうございます！確認が遅れてしまい申し訳ございません… 試してみた所、作動はしますがURLの抽出が上手くいきませんでした；； Ifで対象条件を指定せず、全URLを抽出だと上手くいきます；；

yureighost

2020/03/24 06:16

抽出のみ上手く行かないということは後は単純にLIKE演算子の指定の仕方の問題ですね。ここの部分は説明文の書き方を流用させてもらったのでこの形式ですが、例えば"yahoo"の文字を含むURLを取得したいなら If anchor Like "*yahoo*" Then という指定の仕方になると思います。

__Me__

2020/03/25 03:46

どうやらケアレスミスだったようで解決しました！ご丁寧なご回答ありがとうございました！^^

行動規範の内容に同意します