使用vbscript捕获DataFeedConnection错误

时间:2018-04-17 13:21:24

标签: excel vbscript odata

我在Excel中有数据Feed连接。我正在尝试使用vbscript刷新数据馈送连接。这是我尝试刷新连接的方式。

Set oWorkbook = oExcel.Workbooks.Open('<excel file name/path>')
oWorkbook.Connections(1).Refresh

数据Feed(OData)返回的记录总数实际上很大,并且连接不稳定。因此,我经常在尝试手动刷新excel连接时收到错误,指出“连接已关闭”。以下错误的快照。每当我收到此错误时,我会尝试再次刷新连接,这会导致大部分时间都成功刷新。

enter image description here

我想在vbscript中也获得相同的结果。当我使用vbscript刷新连接时,我得到相同的错误,我的脚本停止运行,因为它无法捕获并处理错误。

在文档中,我看到我只能在OLEDBErrorODBCError时捕获错误。我无法找到捕获DataFeedConnection错误的类似方法。有没有办法捕获DataFeedConnection错误?

修改:要使用 vbscript 的更多信息更新您,脚本会从当前文件夹中获取多个文件,刷新第一个或第二个连接取决于文件命名然后比较刷新前后的某些值,以确保刷新已成功发生,然后根据比较结果决定保存或关闭文件。比较的原因是有些时候刷新只带来部分数据。

1 个答案:

答案 0 :(得分:0)

以下内容如何添加&#34; On Error GoTo&#34;然后使用msgbox显示错误描述:

Sub Foo()
On Error GoTo WhatHappened

    'Your code here

WhatHappened:
    MsgBox Err.Description
End Sub