如何用VBA提取Microsoft Form第二行文本并保存为本地TXT文件？

需求说明 #

需要提取Microsoft Form页面中的第二行文本（本次目标为20222），并将其保存到电脑桌面的TXT文件中。以下是对原代码的问题分析及修正方案：

原代码存在的问题 #

1. 未声明变量：strHTML变量未提前声明，违反VBA变量声明规则（建议开启Option Explicit强制声明变量）
2. 元素定位错误：原代码通过<header>标签查找内容，但Microsoft Form的标题文本实际不在该标签内，导致无法获取目标内容
3. 文件路径不符需求：原代码将文件保存到Documents文件夹，而非用户要求的桌面，且消息提示框中的路径与实际保存路径不一致
4. 缺少必要请求头：直接请求可能被服务器拦截，返回空白或错误响应

修正后的VBA代码 #

Option Explicit ' 强制变量声明，避免语法错误

Sub ExtractFormTextToDesktopTXT()
    Dim objHTTP As New WinHttp.WinHttpRequest
    Dim objTextFile As Object
    Dim objHTML As MSHTML.HTMLDocument
    Dim strHTML As String
    Dim targetText As String
    Dim titleElement As Object
    Dim textLines() As String
    
    ' 设置请求头，模拟浏览器访问，避免被拦截
    objHTTP.Open "GET", "https://forms.office.com/Pages/ResponsePage.aspx?id=awcO9aWG80WHsD9NDsXpTtJCpW-P-dRKnllcB9VlAENUMEk4SU5PQ1BOSjZXM0lZREw0RjNRVFJRMy4u", False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36"
    objHTTP.Send
    
    ' 获取响应HTML
    strHTML = objHTTP.responseText
    
    ' 解析HTML
    Set objHTML = New MSHTML.HTMLDocument
    objHTML.body.innerHTML = strHTML
    
    ' 定位Form标题元素（Microsoft Form的标题通常在.ms-form-title类的元素中）
    Set titleElement = objHTML.getElementsByClassName("ms-form-title")(0)
    
    If Not titleElement Is Nothing Then
        ' 将标题文本按换行拆分，取第二行（数组索引从0开始，第二行对应索引1）
        textLines = Split(titleElement.innerText, vbCrLf)
        If UBound(textLines) >= 1 Then
            targetText = Trim(textLines(1)) ' 去除文本前后空格
        End If
    End If
    
    ' 保存到桌面TXT文件
    Dim desktopPath As String
    desktopPath = Environ("USERPROFILE") & "\Desktop\FormTargetText.txt"
    Set objTextFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(desktopPath, True)
    
    objTextFile.Write targetText
    objTextFile.Close
    
    ' 提示操作结果
    If targetText <> "" Then
        MsgBox "文本提取成功，已保存至：" & desktopPath, vbInformation
    Else
        MsgBox "未找到目标文本，请检查页面元素结构是否变更", vbExclamation
    End If
    
    ' 释放对象，避免内存泄漏
    Set objHTTP = Nothing
    Set objHTML = Nothing
    Set objTextFile = Nothing
    Set titleElement = Nothing
End Sub

代码说明 #

• Option Explicit：强制变量声明，提前发现未定义变量的语法错误
• 请求头设置：添加User-Agent模拟浏览器请求，避免服务器拒绝访问
• 精准元素定位：使用getElementsByClassName("ms-form-title")定位Form标题容器，这是Microsoft Form的标准类名
• 文本拆分：通过Split将标题文本按换行分割成数组，直接取第二行内容
• 路径修正：使用Environ("USERPROFILE") & "\Desktop"获取桌面路径，确保保存位置符合需求
• 对象释放：最后释放所有创建的对象，优化内存使用

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