vba中控制html依次点击,在VBA中处理HTMLElement事件

最新推荐文章于 2021-06-29 11:42:25 发布

图多盖伦特

最新推荐文章于 2021-06-29 11:42:25 发布

阅读量577

点赞数

文章标签： vba中控制html依次点击

我使用SHDocVw.InternetExplorer来向用户显示一个本地html文件。该文件包含一个带有提交按钮的表单，我希望在点击按钮时运行我的vba函数。我做了以下处理InternetExplorer的onQuit事件。在VBA中处理HTMLElement事件

类模块 “CIE”

Public WithEvents ie As SHDocVw.InternetExplorer

Private Sub ie_onQuit()

Debug.Print "onQuit was fired"

End Sub

模块代码

Option Explicit

Public curCIE As CIE

Sub open_ie()

Dim CIEobj As CIE

Set CIEobj = New CIE

Dim ie As SHDocVw.InternetExplorer

Set ie = New SHDocVw.InternetExplorer

ie.Visible = True

ie.Navigate "C:\search.html"

Do While ie.Busy Or ie.readyState <> 4

DoEvents

Loop

Set CIEobj.ie = ie

Set curCIE = CIEobj

End Sub

其实我是想处理的

curCIE.ie.Document.getElementsByTagName("button").Item(0)

onclick事件，但我不知道如何着手。

声明一些通过'.execScript'方法在IE窗口对象中的'App'变量，为其指定Excel'Application'对象，然后在IE按钮的onclick事件处理程序代码中用'App.Run“MacroName”'调用Excel宏。 [此示例](https://stackoverflow.com/a/38134477/2165759)可能会有所帮助。 –