在Microsoft Access中为WebBrowser控件的HTML事件绑定VBA处理程序

步骤1：创建事件处理类模块 #

1. 在Access中插入一个类模块，命名为clsHtmlEventHandler
2. 粘贴以下代码，实现IDispatch接口（这是WebBrowser控件attachEvent方法要求的COM接口，用于接收事件回调）：

Option Explicit

' 自定义事件，用于通知窗体处理表单提交
Public Event FormSubmitted()

' 核心方法：WebBrowser触发事件时会调用这个函数
Public Function Invoke(dispId As Long, riid As Variant, _
                      lcid As Long, wFlags As Long, _
                      pDispParams As Variant, pVarResult As Variant, _
                      pExcepInfo As Variant, puArgErr As Variant) As Long
    ' 触发自定义提交事件
    RaiseEvent FormSubmitted
    ' 返回0表示事件处理成功
    Invoke = 0&
End Function

' 以下为IDispatch接口的必填方法，无需实际逻辑，留空即可
Public Function GetTypeInfoCount(pctinfo As Long) As Long
    GetTypeInfoCount = 0&
End Function

Public Function GetTypeInfo(itinfo As Long, lcid As Long, pptinfo As Variant) As Long
    GetTypeInfo = 0&
End Function

Public Function GetIDsOfNames(riid As Variant, rgszNames As Variant, _
                            cNames As Long, lcid As Long, rgdispid As Variant) As Long
    GetIDsOfNames = 0&
End Function

步骤2：在窗体模块中绑定事件并处理逻辑 #

打开你的Access窗体模块，添加以下代码：

Option Explicit

' 声明类实例，必须用WithEvents才能捕获自定义事件
Private WithEvents htmlHandler As clsHtmlEventHandler

Private Sub Form_Load()
    Dim h As String
    Dim htmlForm As MSHTML.HtmlFormElement
    
    ' 初始化事件处理类
    Set htmlHandler = New clsHtmlEventHandler
    
    ' 动态生成HTML内容（注意给form加action="#"避免默认跳转）
    h = "<html><body>"
    h = h & "<form id='bf' action='#'>"
    h = h & "<input type='text' id='test' name='test'>"
    h = h & "<input type='submit' value='Submit'>"
    h = h & "</form>"
    h = h & "</body></html>"
    
    ' 写入WebBrowser并关闭文档流（必须调用Close才能正常访问DOM）
    Me.b.Object.Document.Write h
    Me.b.Object.Document.Close
    
    ' 获取表单对象，绑定onsubmit事件
    Set htmlForm = Me.b.Object.Document.getElementById("bf")
    htmlForm.attachEvent "onsubmit", htmlHandler
End Sub

' 捕获表单提交事件，在这里写你的业务逻辑
Private Sub htmlHandler_FormSubmitted()
    Dim inputContent As String
    
    ' 获取输入框的值
    inputContent = Me.b.Object.Document.getElementById("test").Value
    MsgBox "提交的内容：" & inputContent, vbInformation
    
    ' 阻止表单默认提交行为，避免页面刷新丢失内容
    Me.b.Object.Document.parentWindow.event.returnValue = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' 释放对象，避免内存泄漏
    Set htmlHandler = Nothing
End Sub

关键细节说明 #

• 为什么用类模块？因为attachEvent要求的pdisp参数必须是实现IDispatch接口的COM对象，VBA只能通过类模块来实现这个接口，让WebBrowser能把事件传递到VBA代码中。
• 必须调用Document.Close：动态写入HTML后，关闭文档流才能确保DOM元素被正确解析和访问。
• 阻止默认提交：如果不设置event.returnValue = False，表单提交会触发页面跳转，导致之前的内容丢失。

替代简化方案 #

如果觉得实现IDispatch太繁琐，可以直接在HTML中嵌入VBScript调用窗体的VBA函数：
修改动态生成的HTML部分，加入脚本：

h = "<html><body>"
h = h & "<form id='bf' onsubmit='return handleSubmit()'>"
h = h & "<input type='text' id='test' name='test'>"
h = h & "<input type='submit' value='Submit'>"
h = h & "</form>"
h = h & "<script type='text/vbscript'>"
h = h & "Function handleSubmit()"
h = h & "    ' 调用窗体的VBA处理函数"
h = h & "    Window.external.[你的窗体名称].HandleFormSubmit()"
h = h & "    handleSubmit = False ' 阻止默认提交"
h = h & "End Function"
h = h & "</script>"
h = h & "</body></html>"

然后在窗体模块中添加公共处理函数：

Public Sub HandleFormSubmit()
    Dim inputContent As String
    inputContent = Me.b.Object.Document.getElementById("test").Value
    MsgBox "提交的内容：" & inputContent, vbInformation
End Sub

这种方式更简单，但需要确保WebBrowser的安全设置允许脚本调用外部对象。

内容的提问来源于stack exchange，提问作者Aram Gharib