将输入文件从Excel VBA发送到Raspberry Pi而不更改内容

Sub SendFileToRaspberryPi()
    Dim filePath As String
    Dim url As String
    
    ' 设置文件路径和Raspberry Pi的URL
    filePath = "C:\Path\To\Your\File.xlsx"
    url = "http://raspberrypi/share/"
    
    ' 创建HTTP请求对象
    Dim httpRequest As Object
    Set httpRequest = CreateObject("WinHTTP.WinHTTPRequest.5.1")
    
    ' 打开文件
    Open filePath For Binary As #1
    
    ' 读取文件内容
    Dim fileContent As String
    fileContent = Space$(LOF(1))
    Get #1, , fileContent
    
    ' 关闭文件
    Close #1
    
    ' 发送文件内容到Raspberry Pi
    httpRequest.Open "POST", url, False
    httpRequest.setRequestHeader "Content-Type", "application/octet-stream"
    httpRequest.send fileContent
    
    ' 检查响应状态码
    If httpRequest.Status = 200 Then
        MsgBox "文件发送成功！"
    Else
        MsgBox "文件发送失败！"
    End If
End Sub

from flask import Flask, request

app = Flask(__name__)

@app.route('/share/', methods=['POST'])
def receive_file():
    file_content = request.data
    
    # 保存文件到指定路径
    file_path = '/path/to/save/file.xlsx'
    with open(file_path, 'wb') as file:
        file.write(file_content)
    
    return '文件接收成功！'

if __name__ == '__main__':
    app.run(host='0.0.0.0')