Question

我有这个脚本文件。我试图使用XMLHTTP从报告服务下载。如果我在登录后将URL粘贴到浏览器中，则会弹出下载文件。但是，当运行下面的代码时，它不起作用（但代码确实可以用于下载直接文件链接＆＃34;

如何发布参数并从报表服务器下载文件？真的很感激这个家伙的帮助。这是我正在使用的代码：

myURL = "http://example.com/reportviewer.aspx?id=1&date=1/3/12&format=PDF"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "user", "pwd"
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:\file.pdf", 2 
    oStream.Close
 End If

顺便提一下返回的文件（File.pdf），如果我将其重命名为file.html并双击它。 Internet Explorer会自动弹出下载通知。我试图查看文件的来源，但它是一个带有唯一报告执行ID的链接，因此它只对那个报告有用。此外，其中的链接不是pdf文件，而是返回报表服务器。

Answer 1

网址必须100％正确。与浏览器不同，没有代码可以修复网址。

我的程序的目的是获取错误详细信息。

使用xmlhttp尝试这种方式。编辑网址等。如果它似乎工作注释if / end if转储信息，即使看起来工作。它的vbscript但vbscript在vb6中工作。

 On Error Resume Next
 Set File = WScript.CreateObject("Microsoft.XMLHTTP")
 File.Open "GET", "http://www.microsoft.com/en-au/default.aspx", False
 'This is IE 8 headers
 File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
 File.Send
 If err.number <> 0 then 
    line =""
    Line  = Line &  vbcrlf & "" 
    Line  = Line &  vbcrlf & "Error getting file" 
    Line  = Line &  vbcrlf & "==================" 
    Line  = Line &  vbcrlf & "" 
    Line  = Line &  vbcrlf & "Error " & err.number & "(0x" & hex(err.number) & ") " & err.description 
    Line  = Line &  vbcrlf & "Source " & err.source 
    Line  = Line &  vbcrlf & "" 
    Line  = Line &  vbcrlf & "HTTP Error " & File.Status & " " & File.StatusText
    Line  = Line &  vbcrlf &  File.getAllResponseHeaders
    wscript.echo Line
    Err.clear
    wscript.quit
 End If

On Error Goto 0

 Set BS = CreateObject("ADODB.Stream")
 BS.type = 1
 BS.open
 BS.Write File.ResponseBody
 BS.SaveToFile "c:\users\test.txt", 2

同时查看这些其他对象是否有效。

C:\Users>reg query hkcr /f xmlhttp

HKEY_CLASSES_ROOT\Microsoft.XMLHTTP
HKEY_CLASSES_ROOT\Microsoft.XMLHTTP.1.0
HKEY_CLASSES_ROOT\Msxml2.ServerXMLHTTP
HKEY_CLASSES_ROOT\Msxml2.ServerXMLHTTP.3.0
HKEY_CLASSES_ROOT\Msxml2.ServerXMLHTTP.4.0
HKEY_CLASSES_ROOT\Msxml2.ServerXMLHTTP.5.0
HKEY_CLASSES_ROOT\Msxml2.ServerXMLHTTP.6.0
HKEY_CLASSES_ROOT\Msxml2.XMLHTTP
HKEY_CLASSES_ROOT\Msxml2.XMLHTTP.3.0
HKEY_CLASSES_ROOT\Msxml2.XMLHTTP.4.0
HKEY_CLASSES_ROOT\Msxml2.XMLHTTP.5.0
HKEY_CLASSES_ROOT\Msxml2.XMLHTTP.6.0
End of search: 12 match(es) found.

另请注意，在发生锁定之前，您可以调用任何特定XMLHTTP对象的次数有限制。如果发生这种情况，并且在调试代码时会发生这种情况，只需更改为其他xmlhttp对象

即可

Answer 2

要传递参数并下载报告，您可以使用ReportExecutionService.Render类的ReportExecutionService方法。 Render方法链接在VB中有关于如何运行报告和下载结果的示例代码。您可能会发现这比您正在使用的XMLHTTP方法更灵活。

使用VBA从报告服务下载文件

2 个答案: