如果执行时间太长，则取消VBA代码

Question

我使用ActiveWorkbook.XmlImport方法提取必要的信息，子工作完全正常。问题是，当存在一些互联网连接问题（根本没有连接或超时）时，代码会挂起一段时间等待连接。我想介绍某种超时控制阈值，如果由于这些连接问题而执行时间过长会取消代码执行。 我知道通常使用内置的Timer函数，其代码如下：

sub threshold()
dim start
dim limit

start=Timer
limit=5

Do while Timer < start + limit
   doevents
   'my code
loop

end sub

我已经尝试将我的XmlImport方法代码放在循环中，但很快意识到它不会有帮助 - 更糟糕的是，会将代码挂起更长时间。 如果我能解决问题，我将不胜感激。