运行VBA来提取文件（不带Internet Explorer）

这仍然是我必须在Excel中征服的唯一的东西，希望我能得到一些帮助。 我正在尝试在Excel中的以下VBA脚本从Dropbox帐户中提取数据。 正如目前给出的，我删除了URL，以使通用脚本更容易遵循：

Sub DownloadFile() Dim myURL As String myURL = "Some URL HEre" Dim WinHttpReq As Object Set WinHttpReq = CreateObject("Microsoft.XMLHTTP") WinHttpReq.Open "GET", myURL, False, "username", "password" WinHttpReq.send myURL = WinHttpReq.responseBody If WinHttpReq.Status = 200 Then Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.Write WinHttpReq.responseBody oStream.SaveToFile "C:\Users\Eric\Downloads\Miami.txt", 2 ' 1 = no overwrite, 2 = overwrite oStream.Close End If End Sub 

我使用的原始URL是Dropbox URL，它包含子目录（…. / …. / somefile.txt）中的文本文件。 此外，即时通讯不完全确定如何做的用户名和密码的选项，并离开这些原始运行时我最初的文件。

当我运行这个文件时，我已经成功了，但是我有大量的HTML代码，而不是下载的文本文件。 任何帮助将是伟大的，并提前感谢您，因为我快速学习VBA！

埃里克