VBA：访问加载了 AngularJS 的 div 中的元素

Question

我卡住了，在 VBA 中我想访问使用 AngularJS 的页面上的 HTML 元素，

所有这些元素“存在”，因为我在使用 IE 调试器工具时看到了它们。它们都在一个名为“cont”的父 div 中。

问题：

当我查看网站的源代码时，这个 div 是空的。我只能看到结构，即：

 <div 
        class="cont"
        data-ng-controller=".."
        ..
        data-ng-init="initApplication()">
</div>

但里面什么都没有。它可能是在 angular 之后加载的。

因此，当我尝试访问此 div 内的按钮时，例如：

Set IE = CreateObject("InternetExplorer.Application")
IE.document.getElementsById("submitBtn").click

然后我收到一条错误消息，指出该对象不存在..

所以我尝试在之前添加：

' wait until IE and the page are ready
Do While .Busy Or Not .readyState = 4: DoEvents: Loop
' wait until the DOM is ready
Do Until .document.readyState = "complete": DoEvents: Loop

但是没有任何效果，我完全不明白，是否可以访问此 div 中的 HTML 元素？为什么我在调试器工具中看到 evthg？

有什么想法吗？？

---

更新

我发现 div 的内容位于一个 .js 文件中，那里有数百万个东西但是有：

angular.module("cont").factory("applicationService",["$rootScope","ngDialog","webService",
function(a,b,c){
    "use strict";
     var d={},
     e="home";
     d.initApplication=function(){
          return c.initContact()
     }

还有：

angular.module("cont").run(["$templateCache",function(a){"use     strict";
a.put("Application",'ALL THE CONTENT IS HERE (with an HTLM element I would like to click)!!!!!'

Answer 1

源代码中不存在这些元素，因为它们尚未由 javascript 创建。您可以通过 F12 看到它们，因为当您在页面上使用调试器工具时，javascript 已经运行并创建了元素。

考虑一下这个javascript sn-p：

var btn = document.createElement("BUTTON");

在 javascript 运行之前，该页面不会有按钮。代码运行后，元素存在并且您将能够与其交互。我怀疑您的代码试图获取submitBtn 是在创建该按钮的javascript 运行之前运行的。

没有看到创建按钮的脚本，我最好的建议是像你已经做的那样Do While .Busy Or Not .readyState = 4: DoEvents: Loop，然后像这样开始测试按钮的存在（诚然不雅的方法）：

'Declare Sleep at the top of you code module
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long)

Sub mySub()
    Dim objButton as Object
    'Code creating nd automating IE here
    Do While .Busy Or Not .readyState = 4: DoEvents: Loop
    'May possibly need On Error Resume Next here
:TryAgain
    Set objButton = IE.document.getElementsById("submitBtn")
    If objButton Is Nothing Then 
        Sleep 1000 'Wait for 1 second
        GoTo TryAgain
    End If
    'On Error GoTo 0 if you needed resume next
    'At this point objButton is something, so let's try clicking it
    objButton.Click
End Sub

不幸的是，当 javascript 运行时没有触发事件，所以我们几乎必须等待它完成。

如果除非您执行某些操作（例如，单击、移动鼠标​​、按键等），否则 javascript 不会运行，您可以使用.execScript 强制脚本无规则运行。有关更多信息，请参阅此 SO 帖子：How to call javascript function in VBA