从网站打开/保存文件的宏

如何解决从网站打开/保存文件的宏

我正在尝试在VBA中创建一个宏，该宏将打开或保存来自网站的.docx文件。作为示例，我正在使用以下网站：https://www.duxburysystems.com/documentation/dbt12.4/samples/word/samples.htm

我想打开或保存例如文件albanian-sq.docx。

这是我创建的代码，但是不起作用：

Sub test()


Dim myURL As String
myURL = "https://www.duxburysystems.com/documentation/dbt12.4/samples/word/samples.htm/albanian.sq.docx"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET",myURL,False,"username","password"
WinHttpReq.send

If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SavetoFile "C:\Users\Arerox\Desktop\albanian.sq.docx",2 ' 1 = no overwrite,2 = overwrite
    oStream.Close
End If

End Sub

能请你指教吗？

仅打开文件就足够了。不需要保存。

谢谢