使用vba通过POST请求发送csv文件

Sub SendCSVFile()
    Dim url As String
    Dim filePath As String
    Dim httpRequest As Object
    Dim fileSystem As Object
    Dim fileStream As Object
    Dim fileContent As String
    
    ' 设置URL和CSV文件路径
    url = "https://example.com/upload"
    filePath = "C:\path\to\file.csv"
    
    ' 创建WinHttpRequest对象
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' 创建FileSystemObject对象
    Set fileSystem = CreateObject("Scripting.FileSystemObject")
    
    ' 打开CSV文件并读取内容
    Set fileStream = fileSystem.OpenTextFile(filePath, 1)
    fileContent = fileStream.ReadAll
    fileStream.Close
    
    ' 设置请求头和请求体
    httpRequest.Open "POST", url, False
    httpRequest.setRequestHeader "Content-Type", "text/csv"
    httpRequest.send fileContent
    
    ' 处理响应
    MsgBox httpRequest.responseText
    
    ' 释放对象
    Set httpRequest = Nothing
    Set fileSystem = Nothing
End Sub