surveymonkey文件下载代码

Question

我有一个SurveyMonkey调查，用户上传文件。我正在使用MS-Access VBA提取所有调查问题的答案，但我无法在VBA中下载该文件。我一直收到身份验证错误。

Dim oStrm As Object
  Dim objSM As Object
  Set objSM = CreateObject("MSXML2.ServerXMLHTTP.6.0")

  With objSM
    .Open "GET", sURL, False, "{Username]", "{Password}"
    .send
    If .Status = 200 Then
        Set oStrm = CreateObject("ADODB.Stream")
        oStrm.Open
        oStrm.Type = 1
        oStrm.Write .responseBody
        oStrm.SaveToFile sFileName, 2 ' 1 = no overwrite, 2 = overwrite
        oStrm.Close
    End If
    DoEvents
  End With

sURl是为SM问题返回的网址。登录SM后，URL在浏览器中正常工作。有人知道如何使用代码下载SM文件吗？

提前致谢。

诺贝特