如何将WinHTTPRequest.5.1下载的Excel转为当前工作簿的工作表？

我来帮你调整这段代码，实现把下载的Excel内容直接导入到当前运行代码的主工作簿里，不用生成额外的本地文件，步骤和修改后的代码如下：

核心思路 #

• 保留你原来用WinHTTP获取Excel二进制内容的逻辑，这部分没问题
• 不再将流保存到本地文件，而是让Excel直接从ADODB.Stream中加载这份Excel内容，生成一个临时工作簿
• 将临时工作簿中的目标工作表（或全部工作表）复制到你的主工作簿（ThisWorkbook）
• 最后关闭临时工作簿，避免残留临时文件

修改后的完整代码 #

Sub DownloadExcelToMainWorkbook()
    Dim WHTTP As Object
    Dim oStream As Object
    Dim tempWB As Workbook
    Dim targetWS As Worksheet
    
    ' 初始化WinHTTP请求对象
    Set WHTTP = CreateObject("WinHTTP.WinHTTPRequest.5.1")
    
    ' 执行POST请求（保留你原有的URL和POST参数）
    WHTTP.Open "POST", fileUrl_XLSResult, False
    WHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    WHTTP.send POSTData_1
    
    ' 检查请求是否成功返回
    If WHTTP.Status = 200 Then
        ' 初始化ADODB流处理二进制内容
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1 ' 设置为二进制模式
        oStream.Write WHTTP.responseBody
        oStream.Position = 0 ' 重置流指针到开头，方便Excel读取
        
        ' 从流中直接打开Excel文件，生成临时工作簿
        Set tempWB = Workbooks.Open(oStream)
        
        ' 选择临时工作簿中的第一个工作表（可改为指定名称，比如tempWB.Worksheets("报表数据")）
        Set targetWS = tempWB.Worksheets(1)
        
        ' 将目标工作表复制到主工作簿的最后位置
        targetWS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        
        ' 给新导入的工作表重命名（可选，根据需求调整命名规则）
        ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "下载数据_" & Format(Now(), "YYYYMMDDHHMMSS")
        
        ' 关闭临时工作簿，不保存任何更改
        tempWB.Close SaveChanges:=False
        
        ' 清理对象释放内存
        oStream.Close
        Set oStream = Nothing
        Set tempWB = Nothing
        Set WHTTP = Nothing
        
        MsgBox "数据已成功导入到主工作簿！"
    Else
        MsgBox "请求失败，返回状态码：" & WHTTP.Status
        Set WHTTP = Nothing
    End If
End Sub

额外说明 #

• 如果下载的Excel包含多个工作表，你可以通过循环tempWB.Worksheets集合，把每个工作表都复制到主工作簿
• 如果你不需要保留原工作表的格式、公式，只需要数据，也可以改用CopyFromRecordset的方式导入，但上面的方法会完整保留原Excel的所有格式设置
• 确保fileUrl_XLSResult和POSTData_1这两个变量在你的代码中已经正确定义并赋值
• 如果遇到请求失败的情况，建议检查请求头是否完整，或者目标网站是否有反爬机制限制

内容的提问来源于stack exchange，提问作者Shoaib Mohamed