IE自动化：通过VBA刮取<iframe>

Question

我正在尝试通过VBA自动化IE来点击嵌入在“iframe”中的按钮，如下面的屏幕截图所示（最后一行中的图片）：

＆＃xA;＆＃xA;

＆＃xA;＆＃xA;

但是我的代码在引用按钮时不成功（最后一行不打印任何值）：

＆＃xA;＆＃xA;

  Sub intercept（）＆＃xA;＆＃xA; Dim my_title As String＆＃xA; my_title =“Accounting”＆＃xA;＆＃xA; marker = 0＆＃xA;设置objShell = CreateObject（“Shell.Application”）＆＃xA; IE_count = objShell.Windows.Count＆＃xA;对于x = 0 To（IE_count  -  1）＆＃xA; On Error Resume Next'有时会计算更多的网页而不是打开＆＃xA; page_url = objShell.Windows（x）.Document.Location＆＃xA; page_title = objShell.Windows（x）.Document.Title＆＃xA;＆＃xA;如果page_title喜欢my_title＆amp; “*”然后'比较以查找所需的网页是否已打开＆＃xA;设置IE = objShell.Windows（x）＆＃xA; marker = 1＆＃xA;退出＆＃xA;否则＆＃XA;结束如果＆＃xA;下一个＆＃xA;＆＃xA;如果marker = 0那么＆＃xA; MsgBox（“未找到匹配的网页”）＆＃xA; Else＆＃xA; MsgBox（“找到匹配的网页”）＆＃xA;结束如果＆＃xA;＆＃xA;设置mytable = IE.Document.frames（1）.Document.tables（1）＆＃xA;＆＃xA; Debug .Print mytable.getElementsByTagName（“td”）。Length＆＃xA;＆＃xA; End Sub＆＃xA;  

＆＃xA;＆＃xA;

我也试过： IE.Document.frames（0）.Document.tables（0）。

＆＃xA;＆＃xA;

有关如何点击此元素的任何帮助表示赞赏。

＆＃XA;