VBA 从 Web 服务器导入 UTF-8 CSV 文件

VBA 从 Web 服务器导入 UTF-8 CSV 文件

vba
Sub ImportCSVFromWeb()
    Dim url As String
    Dim http As Object
    Dim data As String
    Dim ff As Integer
    
    ' 设置URL
    url = "http://example.com/csvfile.csv"
    
    ' 创建HTTP请求对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    http.Open "GET", url, False
    http.send
    
    ' 获取响应数据
    data = http.responseText
    
    ' 创建文件并写入数据
    ff = FreeFile
    Open "C:\path\to\output.csv" For Output As #ff
    Print #ff, data
    Close #ff
    
    MsgBox "CSV文件已成功导入。"
End Sub