Vb脚本获取超时错误

一些背景第一个解决scheme:我已经构build了一个使用文本数据源导入所需数据的Excel解决scheme。 我select了这个方法作为发送数据的URL将发送一个csv文件。 一旦收到数据,许多过程和条件必须应用于此。

关注的原因:这需要大量的时间来获取数据超过6分钟。 这导致Excel挂起。

在我的第二个类似的解决scheme: – 我已经select从Excel中调用VB脚本来做数据的下载。 这对这个解决scheme非常有效。 现在,我想为第一个解决scheme实现这个方法。

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

错误: – C:\ Users-user id- \ Desktop \ script \ download_moni.vbs(15,1)msxml6.dll:操作超时

我的VB脚本代码: –

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") 

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

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

我不熟悉你正在使用的MSXML2.ServerXMLHTTP库,但是Google显示有一个setTimeouts方法 ,它可以用来增加你的库的各种超时。