使用ostream.SaveToFile时能否将下载的CSV存为现有工作簿的工作表

你当前的逻辑是先把CSV文件下载到本地磁盘，如果后续直接调用Workbooks.Open()打开本地CSV，默认会生成独立的新工作簿。要实现把CSV内容导入到当前工作簿的独立工作表，可选择以下两种方案：

方案1：不生成本地文件，直接解析响应写入新工作表（无冗余磁盘IO） #

该方案不需要把CSV落地到本地磁盘，直接解析HTTP请求返回的文本内容，写入当前工作簿新建的工作表中，执行效率更高。
注意：如果你的CSV内容包含被引号包裹、内部带逗号的字段，简单的文本拆分可能出现解析错误，这种场景优先选方案2。
完整参考代码：

Sub DownloadCsvToCurrentWorkbook()
    Dim WinHttpReq As Object, oStream As Object
    Dim myURL As String
    Dim newWs As Worksheet
    Dim csvText As String
    Dim csvLines As Variant, csvFields As Variant
    Dim i As Long, j As Long
    
    ' 替换为你的实际CSV下载链接
    myURL = "你的CSV下载地址"
    
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.Send
    
    If WinHttpReq.Status = 200 Then
        ' 在当前工作簿新建独立工作表
        Set newWs = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = "CSV导入数据" ' 可自定义工作表名
        
        ' 把响应字节流转为文本，根据你的CSV实际编码调整编码参数，这里默认用UTF-8
        With CreateObject("ADODB.Stream")
            .Charset = "utf-8"
            .Mode = 3
            .Type = 2
            .Open
            .WriteText WinHttpReq.ResponseText
            .Position = 0
            csvText = .ReadText
            .Close
        End With
        
        ' 拆分内容写入工作表
        csvLines = Split(csvText, vbLf)
        For i = LBound(csvLines) To UBound(csvLines)
            ' 去除换行符多余的回车符
            csvLines(i) = Replace(csvLines(i), vbCr, "")
            If Len(csvLines(i)) > 0 Then
                csvFields = Split(csvLines(i), ",")
                For j = LBound(csvFields) To UBound(csvFields)
                    ' 去除字段前后的引号
                    newWs.Cells(i + 1, j + 1) = Replace(csvFields(j), """", "")
                Next j
            End If
        Next i
    End If
End Sub

方案2：保留本地CSV文件，原生导入到当前工作簿 #

如果你需要在本地留存下载的CSV文件，不要用Workbooks.Open()方法打开CSV（该方法默认新建工作簿），改用原生的QueryTable连接导入CSV，会直接把数据加载到当前工作簿的指定工作表，不会生成新工作簿，且能正确处理带逗号、引号的复杂CSV格式。
完整参考代码：

Sub DownloadCsvToLocalAndImport()
    Dim WinHttpReq As Object, oStream As Object
    Dim myURL As String, savePath As String
    Dim newWs As Worksheet
    Dim qt As QueryTable
    
    myURL = "你的CSV下载地址"
    savePath = "C:\Users\ppppp\Downloads\file1.csv" ' 你的本地保存路径
    
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.Send
    
    If WinHttpReq.Status = 200 Then
        ' 先保存文件到本地（保留原来的下载逻辑，删除冗余的myURL赋值行）
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.ResponseBody
        oStream.SaveToFile savePath, 2
        oStream.Close
        
        ' 在当前工作簿新建工作表
        Set newWs = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = "CSV导入数据"
        
        ' 用QueryTable导入本地CSV到新工作表，不会生成新工作簿
        Set qt = newWs.QueryTables.Add( _
            Connection:="TEXT;" & savePath, _
            Destination:=newWs.Range("A1"))
        With qt
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True ' 按逗号分隔
            .Refresh ' 执行导入
            .Delete ' 导入后删除查询连接，仅保留静态数据，可选
        End With
    End If
End Sub

原有代码的冗余问题 #

你贴出的原代码中myURL = WinHttpReq.ResponseBody这行没有实际作用，会把原本存储下载链接的myURL变量覆盖为字节数组，直接删除即可。

内容的提问来源于stack exchange，提问作者Palav Patel