将参数从VBA发布到PHP

Sub SendDataToPHP()
    Dim http As Object
    Dim url As String
    Dim payload As String
    
    url = "http://yourserver.com/receive_data.php"
    payload = "param1=value1&param2=value2" ' 参数格式化为URL编码
    
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.Send payload
    
    If http.Status = 200 Then
        MsgBox "Data sent successfully!"
    Else
        MsgBox "Failed to send data."
    End If
End Sub

<?php
if ($_SERVER['REQUEST_METHOD'] === 'POST') {
    $param1 = $_POST['param1'];
    $param2 = $_POST['param2'];
    
    // 处理接收到的数据
    file_put_contents('received_data.txt', "Param1: $param1\nParam2: $param2");
    
    echo "Data received and saved.";
} else {
    echo "Invalid request method.";
}
?>

header("Access-Control-Allow-Origin: *");
header("Access-Control-Allow-Methods: POST");
header("Access-Control-Allow-Headers: Content-Type");