如何提交表格数据excel vba

Sub SubmitData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    Dim postData As String
    Dim response As String
    Dim targetURL As String
    
    ' 设置目标URL
    targetURL = "http://example.com/submit" ' 替换为实际的目标URL
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取表格数据的范围
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set dataRange = ws.Range("A1:B" & lastRow) ' 替换为实际的数据范围
    
    ' 构造要提交的数据
    postData = ""
    For Each cell In dataRange
        postData = postData & cell.Value & ","
    Next cell
    postData = Left(postData, Len(postData) - 1) ' 去除最后一个逗号
    
    ' 发送HTTP POST请求
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    objHTTP.Open "POST", targetURL, False
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.send "data=" & postData
    
    ' 获取响应结果
    response = objHTTP.responseText
    
    ' 处理响应结果
    If response = "success" Then
        MsgBox "数据提交成功！"
    Else
        MsgBox "数据提交失败！"
    End If
End Sub