如何使用VBA登录采用Angular ng-model表单的内网网站

核心问题分析 #

目标页面基于AngularJS开发，这类框架的表单依赖双向数据绑定，直接通过VBA修改DOM元素的Value属性不会触发Angular的模型更新，导致登录按钮保持禁用；另外你之前用getElementById无效，是因为输入框未设置id属性，需通过其他方式定位元素。

可行实现步骤 #

1. 定位输入框元素：通过元素的ng-model属性筛选，用户名输入框对应ng-model="id"，密码输入框对应ng-model="pass"
2. 触发Angular模型更新：修改输入值后，需触发input事件或调用Angular的$apply方法，让框架感知数据变化
3. 执行登录操作：可直接点击登录按钮，或调用Angular内置的login()方法

完整VBA代码示例 #

假设已手动打开IE并导航到目标页面，在Excel命令按钮的Click事件中添加以下代码：

Private Sub CommandButton1_Click()
    Dim IE As Object
    Dim userNameInput As Object
    Dim passInput As Object
    Dim loginBtn As Object
    
    ' 获取当前打开的IE窗口
    Set IE = GetObject(, "InternetExplorer.Application")
    
    ' 等待页面及Angular框架初始化完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    Application.Wait Now + TimeValue("00:00:02") ' 额外等待2秒确保Angular加载完毕
    
    ' 定位用户名输入框并填充
    Set userNameInput = IE.Document.querySelector("input[ng-model='id']")
    If Not userNameInput Is Nothing Then
        userNameInput.Value = "你的用户名"
        ' 触发input事件通知Angular更新模型
        Call IE.Document.parentWindow.execScript("angular.element(document.querySelector('input[ng-model=''id'']')).triggerHandler('input');", "JavaScript")
    End If
    
    ' 定位密码输入框并填充
    Set passInput = IE.Document.querySelector("input[ng-model='pass']")
    If Not passInput Is Nothing Then
        passInput.Value = "你的密码"
        Call IE.Document.parentWindow.execScript("angular.element(document.querySelector('input[ng-model=''pass'']')).triggerHandler('input');", "JavaScript")
    End If
    
    ' 执行登录操作
    Set loginBtn = IE.Document.querySelector("button[ng-click='login()']")
    If Not loginBtn Is Nothing Then
        If Not loginBtn.disabled Then
            loginBtn.Click
        Else
            ' 按钮仍禁用时，直接调用Angular的登录方法
            Call IE.Document.parentWindow.execScript("angular.element(document.querySelector('form[name=''loginForm'']')).scope().login();", "JavaScript")
        End If
    End If
    
    ' 释放对象
    Set IE = Nothing
    Set userNameInput = Nothing
    Set passInput = Nothing
    Set loginBtn = Nothing
End Sub

兼容旧IE版本的替代方案 #

如果你的IE版本不支持querySelector，可改用遍历元素的方式定位：

' 旧IE版本定位用户名输入框示例
Dim inputs As Object
Dim i As Integer
Set inputs = IE.Document.getElementsByTagName("input")
For i = 0 To inputs.Length - 1
    If inputs(i).getAttribute("ng-model") = "id" Then
        Set userNameInput = inputs(i)
        Exit For
    End If
Next i

内容的提问来源于stack exchange，提问作者Matt Russell