2016-04-28 72 views
0

一些背景 第一种解决方案:我已经构建了一个使用文本数据源导入所需数据的Excel解决方案。 我选择了这个方法作为发送数据的URL将发送一个csv文件。一旦收到数据,许多过程和条件必须应用于此。Vb脚本获取超时错误

引起关注的原因:这需要花费很多时间才能获得超过6分钟的数据。这导致Excel挂起。

在我的第二个类似的解决方案中: - 我选择了从Excel中调用VB脚本来完成数据的下载。这对这个解决方案非常有效。 现在,我想为第一个解决方案实现此方法。

我的主要问题:在第二个解决方案中使用的VB脚本失败,出现以下错误。

错误: - C:\用户用户ID- \桌面\脚本\ download_moni.vbs(15,1)msxml6.dll:操作超时

我给VB Script代码: -

Set args = WScript.Arguments 
Url = "url given here" 
dim xHttp: Set xHttp = createobject("MSXML2.ServerXMLHTTP.6.0") 
dim bStrm: Set bStrm = createobject("Adodb.Stream") 
xHttp.Open "GET", Url, False 'Open socket to get the website 
xHttp.Send 'send request 
with bStrm 
.type = 1 '//binary 
.open 
.write xHttp.responseBody 
.savetofile "C:\Ticket\Monitoring.csv", 2 '//overwrite 
end with 
wscript.echo("Download complete") 

请让我知道如何解决超时错误。

+0

VBScript IsNot VB.NET –

+0

我知道这一点。但是,你的意思是? –

+0

你已经用'vb.net'标记了,尽管这与VB.NET无关。顺便说一下,我删除了该标签。 –

回答

1

你说“需要花费很多时间才能获得超过6分钟的数据。”然而,您正在使用的磁带库的默认超时时间似乎是30秒(source)。

我不熟悉您正在使用的MSXML2.ServerXMLHTTP库,但Google reveals有一个setTimeouts method,它可用于增加库的各种超时。

+0

@Downvoter:反馈表示赞赏。 – Heinzi

+0

你有一个很好的观点。 –