vba - 删除超链接性能

Question

我想通过 VBA 删除当前事件工作表上的所有超链接。

为此，我使用 ActiveSheet.Hyperlinks.Delete命令，它工作正常，几乎不需要任何时间......

所有这些直到我打开了两个包含超链接的工作簿 同时。在这种情况下，非常 相同的命令需要更多时间 (分钟)完成。它完成了它的工作，只从事件表中删除超链接，但时间更长。似乎其他带有超链接的工作表正在减慢速度。

我可以同时打开多个工作簿，但它们不能有任何超链接才能使宏快速工作。

有人可以帮我克服这个问题吗？

实际上，我经常需要同时打开两个超链接工作簿并运行删除超链接的宏。

Answer 1

这可能并不理想，但我会考虑通过检查是否在实例中打开其他工作簿以及是否保存事件工作簿来启动您的代码，打开一个新的 excel 实例并在新实例中重新打开工作簿。然后再次运行您的代码。

像这样打开新实例:

Sub BlahBlah
if morethan1 then
    CWb = ActiveWorkbook.name
    ActiveWorkbook.save
    Dim objXL
    Set objXL = CreateObject("Excel.Application")
    objXL.Visible = True
    application.displayalerts = false
        objXL.Workbooks.Open = CWb
    application.displayalerts = True
end if
End Sub

如果您隔离工作簿，您应该返回到正常运行时