VBAでIE操作ー GetElementByTagName("a")でa要素の取得ができるサイトとできないサイトがある

<VBAでIE操作ー GetElementByTagName("a")でa要素の取得ができるサイトとできないサイトがある>

VBA超初心者です。

下記コードにて、社内イントラサイトのHTMLの
＜aタグ＞の数をイミディエイトウインドウに出力
させようとしています。

下記２つのサイトで検証したのですが、
サイトURL①については問題なく出力されますが、
サイトURL②で試した場合、a要素があるにもかかわらず
”０”と出力され、情報が取得できません。
考えられる原因は何でしょうか。

サイトURL①・・・社内システムへのログイン画面
サイトURL②・・・社内のディレクトリ情報（個人情報）を掲載しているページ

参考として、両サイトのHTMLのa要素の１例を下記に記載します。

②は、セキュリティ上、HTMLが取得できない制限のようなものが
かけられている可能性はありますでしょうか...

###VBA

Sub GetATagTest()

Dim ie As InternetExplorer
Dim HTMLDoc As HTMLDocument

Set ie = New InternetExplorerMedium

ie.Visible = True
ie.navigate "社内イントラサイトURL"

Do While ie.Busy = True Or ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop

Set HTMLDoc = ie.document

Debug.Print HTMLDoc.getElementsByTagName("a").Length

End Sub

サイトURL①のa要素１例

<td>
<a href=".....">....</a>
</td>

サイトURL②のa要素１例

<div class="collapsible-body" style="display: block;">
<a class="..." href="..." target="..." data-tooltip="..." data-tooltip-id="...">...</a>
</div>

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

回答2件

ベストアンサー

②は、セキュリティ上、HTMLが取得できない制限のようなものが

かけられている可能性はありますでしょうか...

「（個人情報）を掲載しているページ」とのことなの、その可能性はあります。
社内イントラサイトなら、システム担当者に問い合わせることになるでしょう。

あと、考えらる原因としては、個人情報はデータベースから、スクリプトで動的に呼び出してHTMLを出力している可能性があります。
その場合は、API のSleep関数で適当な時間（読み込み/出力が終わるまで）待機させるようにしてみてはどうでしょうか。

コード例

vba
1Set HTMLDoc = ie.document
2
3Dim i As Long, aTag
4For i = 1 to 20
5    Sleep 200 '0.2秒待機
6    Set aTag = HTMLDoc.getElementsByTagName("a")
7    If aTag.Length > 0 Then Exit For
8Next
9
10If aTag.Length = 0 Then
11    Msgbox "リンクは見つかりませんでした。"
12Else
13    Debug.Print aTag.Length
14End If

投稿2020/06/04 01:22

編集2020/06/04 01:32

hatena19

総合スコア33795

koyamashinji

2020/06/04 02:01

ご回答ありがとうございます。ご提示頂いた例を参考に、下記コードにて実行したところ、やはり"見つかりませんでした”と出力されてしまいました。 APIを使用するためのdeclareステートメントも記述しましたが、Sleep関数の呼び出し方法が間違っているのでしょうか、、、「スクリプトで動的に呼び出してHTMLを出力している」というのは初めて知りました。当該サイトのHTMLを改めて確認すると、というコメントが入っており、こちらの記述は何か関係しているのでしょうか。 ``` Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim i As Long, aTag As IHTMElementCollection For i = 1 To 20 Sleep 200 Set aTag = HTMLDoc.getElementByTagName("a") if aTag.Length > 0 Then Exit for End if Next i If aTag.Length = 0 Then Debug.Print "見つかりませんでした” Else Debug.Print aTag.Length End If ```

hatena19

2020/06/04 03:27

コード的には問題ないと思います。エラーとか出てませんか。他に考えられる原因としては、フレームを使っていて、子ウィンドウの方にaリンクがあるとか、、、どちらにしても、自分としてはこれ以上のアドバイスは難しいです。セキュリティ上簡単に取得できないようにしている可能性もありますので。やはり、システム担当に問い合わせるのが本筋ではないでしょうか。

koyamashinji

2020/06/04 03:53 編集

＞他に考えられる原因としては、フレームを使っていて、子ウィンドウの方にaリンクがあるとか、、、おっしゃる通り、HTMLを確認すると下記のように、フレームが使用されているようです... フレームを使用している場合は、aタグの取得方法が異なるのでしょうか。取得しようとしているaタグは■の部分です。 <frameset> <frame name = "..." src = "..." scrolling="..."> <html> <head></head> <body> <form> <div class ="..."> <ul class="..."> <li class = "..."> <a class ="...", href="...".....>...</a>■ </li> </ul> </div> </form> <script src = "..." type ="text/javascript"></script> </body> </frameset> コメント蘭ではマークダウン記法が効かず、読みにくくすみません。

hatena19

2020/06/04 04:03

frame の src のURLで直接フレームのページが開くなら、そのURLでアクセスすればいいでしょう。ダメな場合は、「framesオブジェクト」を使ってアクセスします。「VBA スクレイピングフレーム」をキーワードに検索すれば参考リンクが見つかるので研究してみてください。

koyamashinji

2020/06/04 04:33

ありがとうございます！もっと勉強してみます。

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