Открыть загруженный файл в Excel VBA

Question

Я использую следующий код для загрузки файла .xlsx из Интернета в Excel VBA.

Sub Download() 
     Const MYURL = "https://www.arembepe.net/temp/COMDINHEIRO_gabrielzancheta749999241.xlsx" 
     Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 
     objHTTP.Open "GET", MYURL, False 


    objHTTP.Send 

    Set oStream = CreateObject("ADODB.Stream") 
    oStream.Open 
    oStream.Type = 1 
    oStream.Write objHTTP.ResponseBody 
    oStream.SaveToFile ("C:\wamp\file.xlsx") 
    oStream.Close 
End Sub 

Код успешно загружен и сохраняет его в каталоге. Но вместо сохранения его мне хотелось бы открыть файл xlsx в Excel. Является ли это возможным?

Answer 1

Set wb = WorkBooks.open(_ 
    "https://www.arembepe.net/temp/COMDINHEIRO_gabrielzancheta749999241.xlsx") 

Answer 2

Итак, после некоторых исследований вместо того, чтобы пытаться открыть файл непосредственно из памяти, я только что сохранил его по умолчанию по умолчанию, а затем открыл его. Вот код:

Sub Download() 
    Const MYURL = "https://www.arembepe.net/temp/COMDINHEIRO_gabrielzancheta749999241.xlsx" 
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 
    objHTTP.Open "GET", MYURL, False 

    objHTTP.Send 

    Set oStream = CreateObject("ADODB.Stream") 
    oStream.Open 
    oStream.Type = 1 
    oStream.Write objHTTP.ResponseBody 
    oStream.SaveToFile (Environ("TEMP") & ".xlsx") 
    oStream.Close 

    Workbooks.Open Environ("TEMP") & ".xlsx" 

End Sub