VBAで取得済みIEのHTMLを取得する

前提・実現したいこと

VBAで取得済みIEのHTMLを取得すること

発生している問題・エラーメッセージ

＜HTMLの取得について＞

Call tagClick(objIE, "a", "文字列１")
はうまくいくのですが、

Debug.PrintobjIE.document.all(0).outerHTML
Call tagClick(objIE, "a", "文字列２")
がうまくいきません。エラーは出ませんが、リンクをクリックできません。

該当のソースコード

VBA
1
2
3'-----------------------Main------------------------
4Sub Main()
5    Dim objIE As InternetExplorer
6    Dim objLink As Object
7    
8    Call ieView(objIE, "ログイン画面のURL")
9
10    objIE.document.getElementsByName("IDのHTML")(0).Value = "ID"
11    objIE.document.getElementsByName("PASSのHTML")(0).Value = "PASS"
12    objIE.document.getelementbyid("ログインボタンのHTML").Click
13        
14    Set objIE = 最新画面
15    Call ieCheck(objIE)
16    Call tagClick(objIE, "a", "文字列１")
17
18    Set objIE = 最新画面
19    Call ieCheck(objIE)
20    
21
22
23'以下問題個所　↓>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
24
25
26
27    Debug.Print "  URL:" & objIE.document.Url
28    Debug.Print objIE.document.all(0).outerHTML
29    
30    Call tagClick(objIE, "a", "文字列２")
31
32'問題点_______________________________________________
33Call tagClick(objIE, "a", "文字列１")
34はうまくいくのですが、
35
36Debug.PrintobjIE.document.all(0).outerHTML
37Call tagClick(objIE, "a", "文字列２")
38がうまくいきません。
39
40IEオブジェクトを紛失していると思い、再取得のコードを付け加えた（最新画面）のですが、うまくいきませんでした。Debug.Print "  URL:" & objIE.document.Url
41で操作したいIEオブジェクト(objIE)を掴んでいることは確認済みです。しかし、そのIEオブジェクトのHTMLが一切操作できません。機密性の問題でしょうか？ 
42'_________________________________________________
43
44
45
46
47'以上問題個所　↑>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
48
49
50    
51    
52End Sub
53'-----------------ieView----------------------
54Sub ieView(objIE As InternetExplorer, urlName As String, Optional viewFlg As Boolean = True)
55    Debug.Print ">>> ieView"
56    Set objIE = CreateObject("InternetExplorer.Application")
57
58    objIE.Visible = viewFlg
59
60    objIE.navigate urlName
61
62    Call ieCheck(objIE)
63End Sub
64'-----------------ieCheck-------------------
65Sub ieCheck(objIE As InternetExplorer)
66    Debug.Print ">>> ieCheck"
67    Dim timeOut As Date
68    timeOut = Now + TimeSerial(0, 0, 20)
69    Do While objIE.Busy = True Or objIE.readyState <> 4
70        DoEvents
71        If Now > timeOut Then
72            objIE.Refresh
73               timeOut = Now + TimeSerial(0, 0, 20)
74        End If
75    Loop
76    timeOut = Now + TimeSerial(0, 0, 20)
77    Do While objIE.document.readyState <> "complete"
78        DoEvents
79        If Now > timeOut Then
80            objIE.Refresh
81            timeOut = Now + TimeSerial(0, 0, 20)
82        End If
83    Loop
84End Sub
85'---------------------tagclick------------------
86Sub tagClick(objIE As InternetExplorer, tagName As String, tagStr As String)
87    Debug.Print ">>> tagclick"
88
89    Dim objTag As Object
90
91    For Each objTag In objIE.document.getElementsByTagName(tagName)
92        Debug.Print "      L___ " & objTag.innerHTML
93        If InStr(objTag.outerHTML, tagStr) > 0 Then
94            objTag.Click
95            Call ieCheck(objIE)
96            Exit For
97        End If
98    Next
99End Sub
100'--------------------最新画面-----------------
101Function 最新画面() As Object
102    Debug.Print ">>> 最新画面"
103    Dim objShell As Object, n As Long
104    Set objShell = CreateObject("Shell.Application")
105    For n = objShell.Windows.Count To 1 Step -1
106        If TypeName(objShell.Windows(n - 1).document) = "HTMLDocument" Then
107            Set 最新画面 = objShell.Windows(n - 1)
108            Exit For
109        End If
110    Next n
111    Debug.Print "      L___ Title: " & 最新画面.document.Title
112    Set objShell = Nothing
113    
114    
115 
116    
117End Function
118'----------------------getLink-------------------
119Sub goLink(objIE As InternetExplorer, str As String)
120    Debug.Print ">>> goLink: " & str
121    For Each Tag In objIE.document.getElementsByTagName("a")
122        If InStr(Tag.innerHTML, str) > 0 Then
123            Tag.Click
124            Call ieCheck(objIE)
125            Exit For
126        End If
127    Next
128End Sub
129
130
131

試したこと

IEオブジェクトを紛失していると思い、再取得のコードを付け加えた（最新画面）のですが、うまくいきませんでした。
Debug.Print " URL:" & objIE.document.Url
で操作したいIEオブジェクト(objIE)を掴んでいることは確認済みです。
しかし、そのIEオブジェクトのHTMLが一切操作できません。機密性の問題でしょうか？

補足情報（FW/ツールのバージョンなど）

Excel 2016 32 bit
InternetExplorer　11
サイトの保護モードはすべて有効

Lhankor_Mhy

2020/02/14 07:55

普通に考えると <a>文字列２</a> が存在しないのではないかと思うのですが、ホワイトスペースのチェックなどはされていますか？ Debug.Print " L___ " & objTag.innerHTML の部分はどのようなログを得ましたか？

sinzou

2020/02/15 08:03

https://www.vba-ie.net/frame/subroutine-click.php Call frameTagClick も組み込んでは？

kuron_c

2020/02/17 12:48 編集

@Lhankor_Mhyさん返信が遅くなり申し訳ございません。 aタグ内の文字列はIEの要素の検査からコピペしたものなので正しいです。（IEで要素の検査ができるのに、VBAで操作できないのが謎です笑） Debug.Print " L___ " & objTag.innerHTML　には "文字列１"の際は、"文字列１"のリンクがクリックされるまでにFor文で調べられたaタグのinnerHTMLが出力されています。イミディエイト--------------------------------- tagclick L___"innerHTML1" L___"innerHTML２" L___"innerHTML３" ... L___"文字列１" ------------------------------------------------ "文字列2"の際は、何も出力されません。（エラーにはなりません。）イミディエイト--------------------------------- tagclick ------------------------------------------------

kuron_c

2020/02/17 13:18 編集

@sinzouさん返信が遅くなり申し訳ございません。 Call frameTagClick　の方を実装してみます。ご返信ありがとうございます。追記です。----------------------------------- Call frameTagClick　を試したところ、アクセス拒否のエラーが出ました。機密性の問題である可能性が高いと知ることができました。 objie.document.frames(i).document　において、i=0　でアクセス拒否されました。

Lhankor_Mhy

2020/02/18 00:43

Call tagClick(objIE, "a", "文字列１") のところで、ページ移動が起きている、などということはありませんか？

kuron_c

2020/02/23 05:27

ありません。

kuron_c

2020/02/23 06:04

目的はログインとHTMLに含まれるデータの取得なので、VBA以外の方法で実現する可能性がありましたら、ご教示願いたいです。

Lhankor_Mhy

2020/02/25 01:04

document.all(0) は、何を返すコードなのですか？ MSDNで検索してみましたが、それらしいものを見つけることができませんでした。ドキュメントなどがあれば教えてください。

Lhankor_Mhy

2020/02/25 01:09

ああ、すみません、勘違いです。

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

回答3件

きっちりとした回答ではないですが、当方で経験した事例です。

(1)保護モード
保護モードの違うページに移動することによって、DOM参照時にオートメーション
エラーが発生し、DOM配下が一切参照できなくなることがあります(その場合でも
document.titleや.urlは参照できる)。
【参考】
(デクノスティック)IE の保護モードの違いによって整合性レベルの切り替えの有無が変わりオートメーションの操作に影響が出る場合がある
http://dechnostick.hatenablog.com/entry/2015/01/27/032113
(Qiitaコミュニティ)Excel VBAでIE操作時にオートメーションエラーが出た時は、対象のURLが「信頼済みサイト」に登録されているからかもしれない
https://qiita.com/3mc/items/da045e86d25ef697ec43

※上記が原因ならばおそらく↓のdocument.all(0).outerHTMLでエラーが
出ます。今回はエラーが出ていないとのことですので該当しない
かもしれませんが…

Debug.PrintobjIE.document.all(0).outerHTML
Call tagClick(objIE, "a", "文字列２")

(2)JavaScript
対象のaタグが単純なリンクではなくスクリプトやCSSで動作するように
なっている場合は、そのスクリプトを直接呼び出さないと動作しないことが
あります。

(3)そのほか原因不明
原因不明ですが、DOMにアクセスでき、aタグが参照できるのであれば
clickの代わりに、aタグのhref属性からURLを生成し、直接ナビゲーション
してしまうとうまくいくことがあります。
【サンプル】

  set objA=該当のAタグのオブジェクト
  objIE.navigate(objIE.document.Location.protocol & "//" & objIE.document.Location.host & objA.getAttribute("href"))

※↑ここではaタグのリンクが相対パスで書かれていると仮定してプロトコルとホストを補っていますが、絶対パスなら不要です。一度該当aタグの内容を
確認してください。

投稿2020/02/21 07:08

h.horikoshi

総合スコア505

kuron_c

2020/02/23 06:01

返信ありがとうございます。（１）Mediumで実行しましたが、出力は変更前と同様でした。（２）"文字列２"のリンクはjsで書かれていました。(doPostBackLink:）　　　　　"文字列１"もjsでかかれており、(enablePostBackLink:)でした。　　　　　ポストバックリンクが何か関係しているのかもしれません。　　　　　（jsについては勉強中です、、、）（３）frame取得時にアクセス拒否されたので、おそらくDOMを取得できていません。やはり、セキュリティーの都合上、HTMLを取得できない仕様になっているような気がしています、、、。

kuron_c

2020/02/23 06:05

目的はログインとHTMLに含まれるデータの取得なので、VBA以外の方法で実現する可能性がありましたら、ご教示願いたいです。

h.horikoshi

2020/02/26 01:39

>（２）"文字列２"のリンクはjsで書かれていました。(doPostBackLink:） >　　　"文字列１"もjsでかかれており、(enablePostBackLink:)でした。一度、Microsoft Script Control や、execScriptを使って上記のスクリプトを直接呼び出してみたらどうでしょうか? (PostBackの上、jsの内容がわからないため何とも言えませんが…)。 >VBA以外の方法で実現する可能性がありましたら、自動操作ツールを使ってIE画面を操作し、ログインからデータ取得まで行なうという方法が考えられます。手操作をシミュレーションするものですので、セキュリティの問題もないと思います。これにはかつてはUWSCというツールがありました。現在は更新が停止しているようですが、探せば他にも同様のツールがあると思います。 ※とりあえずUWSCで検索してみてください。

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

自己解決

おかげさまで解決しました。

目的はWEBの自動操作だったため、VBAにこだわらず、別の方法を模索しました。
最終的にはseleniumIDEで操作を記録して、pythonコードを書き出し、必要なコードを追加することで解決しました。

同じような経験をする方がいらっしゃると思うので、解決に至った経緯を以下に示します。

1.VBAでコーディング
無理だった。原因はフレームのアクセス拒否。おそらくマイクロソフトのパッチが問題だと思われる。
機密性の高いサイトではHTMLが要素の検査（検証）で確認できてもVBAで操作できない場合がある。

2.UWSCの存在を知る
画面直接操作は不安定なため、導入したが、断念。（一応成功した）

3.beautifulsoap（pythonのライブラリ）を使う
VBAはマイクロソフトのパッチが問題だと考えたため、別の言語ならできるかもしれないと考えた。
しかし、VBAと同じところで躓いたため、断念。

4.seleniumIDE（Chromeの拡張機能）を使う
beautifulsoapについて調べている時にやたらと目にかけていたので、導入したところ成功した。
seleniumIDEだけではできることに限りがあるので、seleniumをインストールし、エディタでコードを追加。（pythonで記述）

5.pythonファイルをexe化
誰にでも使えるようになった。

回答して下さった皆様、ありがとうございました。

投稿2020/03/19 01:31

kuron_c

総合スコア4

VBA
1'以下問題個所　↓>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2
3
4
5    Debug.Print "  URL:" & objIE.document.Url
6    Debug.Print objIE.document.all(0).outerHTML
7
8    Set objIE = 最新画面  ' これを 直前に追加してみては どうでしょうか？
9    Call tagClick(objIE, "a", "文字列２")