基于VBA实现Excel抓取内网数据：需用户完成含硬令牌的登录验证

嘿，这个需求我刚好踩过坑，给你整理了一套靠谱的VBA方案，完全匹配你要的「调用IE让用户手动完成全流程登录，之后自动抓数填充Excel」的需求：

因为硬令牌的二次验证没法通过代码自动模拟（毕竟涉及物理令牌，安全性要求高），所以核心思路就是：

1. 用VBA启动IE并打开目标内网页面（会自动跳转到登录页）
2. 暂停代码执行，让用户手动完成用户名/密码输入+硬令牌验证的全登录流程
3. 用户确认登录完成后，VBA接管已登录的IE会话，开始抓取数据并写入Excel

直接把这段代码贴到Excel的VBA模块里就行，记得根据你的实际情况修改URL和数据抓取逻辑：

Sub 内网数据抓取()
    Dim ie As Object
    Dim targetURL As String
    Dim userConfirm As VbMsgBoxResult
    
    ' 1. 初始化IE对象
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True ' 让IE可见，方便用户操作登录
    
    ' 2. 设置目标内网页面URL（会自动跳转到登录页）
    targetURL = "你的公司内网目标页面URL"
    ie.Navigate targetURL
    
    ' 3. 等待页面加载完成（跳转到登录页）
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 4. 提示用户手动完成登录，确认后继续
    userConfirm = MsgBox("请在弹出的IE窗口中完成登录（包括硬令牌验证），登录完成后点击「确定」继续数据抓取", vbOKCancel + vbInformation, "等待登录")
    If userConfirm = vbCancel Then
        ie.Quit
        Set ie = Nothing
        MsgBox "操作已取消", vbExclamation
        Exit Sub
    End If
    
    ' 5. 确认登录后，再次等待页面加载到目标数据页
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' --------------------------
    ' 这里开始写你的数据抓取逻辑
    ' 示例：抓取页面中某个表格的数据到Excel
    ' --------------------------
    Dim table As Object
    Dim row As Object
    Dim cell As Object
    Dim excelRow As Integer
    
    excelRow = 2 ' 从Excel第2行开始写入（第1行留作表头）
    
    ' 假设目标数据在页面的第一个表格里，根据实际情况修改定位方式
    Set table = ie.Document.getElementsByTagName("table")(0)
    
    ' 遍历表格行
    For Each row In table.Rows
        ' 遍历行内单元格
        For Each cell In row.Cells
            ' 写入Excel对应单元格
            Cells(excelRow, cell.Index + 1).Value = cell.innerText
        Next cell
        excelRow = excelRow + 1
    Next row
    
    ' 6. 清理资源
    ie.Quit
    Set ie = Nothing
    MsgBox "数据抓取完成！", vbInformation
End Sub

• IE兼容性：如果你的系统默认用Edge，需要确保IE模式已启用（可以在Edge设置里开启「允许在IE模式下重新加载网站」），不然CreateObject可能会启动Edge而不是IE。
• 元素定位：数据抓取部分的表格定位（getElementsByTagName("table")(0)）只是示例，你需要根据内网页面的实际HTML结构，用getElementById、getElementsByClassName或者XPath来精准定位目标元素。
• 登录等待：一定要让用户完全完成登录并进入到数据页面后再点击「确定」，不然代码会在未登录的状态下执行抓数，肯定会失败。
• 错误处理：如果需要更健壮的代码，可以加上On Error Resume Next或者错误捕获逻辑，避免因为页面加载慢、元素找不到等情况导致程序崩溃。

内容的提问来源于stack exchange，提问作者Ryan William Noon