昨天工作中编写VBA模块时遇到的一些小问题

做成本会计的都知道，这个行当经常与数据打交道。昨天同事拿了300个工作簿（一个型号一个报告书）来找我，让我帮忙把里面链接都断开。让我帮他分担150个。我勒个去，我只能运用一下VBA的小知识了，直接将300个承包了下来。不过在编写VBA的过程中也遇到了一些问题还没有解决。我的代码如下：

'Links是个数组，用来接收所有链接的名字 Links = wbNew.LinkSources(xlExcelLinks) On Error Resume Next If Not IsEmpty(Links) Then For iii = 1 To UBound(Links) wbNew.BreakLink Name:=Links(iii),Type:=xlLinkTypeExcelLinks '断开excel链接。这段代码循环后容易出错，原因不明 Next End If On Error GoTo 0

上述代码虽然能够实现断开链接，但是如果工作簿中存在多个链接时，采用循环断开，1次可以执行，2次报错，现在还未找到原因。唉！

错误为：“自动化Automatic.......",或者直接关闭EXCEL程序。我用的是office2010。

Ps:这个代码是断开链接其他工作簿的数据，而不是断开工作表中的超级链接，网上很多帖子都是误导。