如何使用 vba 将 excel 里的数据录入网页

在VBA（Visual Basic for Applications）中，你可以使用MSXML6对象库来处理网页请求并提交数据到HTML表单。以下是基本步骤：

1. 引入必要的模块：

Sub PostDataToWeb()
    Dim xmlDoc As MSXML2.DOMDocument60
    Dim httpReq As MSXML2.XMLHTTP60
    Set xmlDoc = New MSXML2.DOMDocument60
    Set httpReq = New MSXML2.XMLHTTP60

2. 创建XML文档，并模拟表单数据：

    '假设数据在Excel工作表A1:B2中
    Dim dataRange As Range
    Set dataRange = ThisWorkbook.Sheets("Sheet1").Range("A1:B2")
    
    Dim formData As String
    formData = "<form action='http://example.com/upload'>" & _
              " <input type='text' name='field1' value='" & dataRange(1, 1) & "'><br>" & _
              " <input type='text' name='field2' value='" & dataRange(1, 2) & "'></form>"
    xmlDoc.async = False '同步请求，便于调试
    xmlDoc.LoadXML formData

3. 发送POST请求：

    httpReq.Open "POST", xmlDoc.SelectSingleNode("//form/@action").Text, False '设置请求URL和方法
    httpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '设置请求头
    httpReq.send xmlDoc.documentElement.outerXml '发送数据

4. 检查响应并处理结果：

    If httpReq.Status = 200 Then
        MsgBox "数据已成功提交：" & vbCrLf & httpReq.responseText '如果状态码为200，表示成功
    Else
        MsgBox "提交失败，错误信息：" & httpReq.statusText
    End If
End Sub