当文件存储在网络驱动器上时,复制工作表会冻结 Excel



我有以下一段代码将工作表从一个文件复制到另一个文件:

Dim wbMaster As Workbook
Set wbMaster = Workbooks("UniversalQuoteProposal.xlsb")
Dim vSheetNames As Variant
vSheetNames = wsConfig.Range("SheetExportGeneralLiability")
Dim i As Integer
For i = LBound(vSheetNames) To UBound(vSheetNames)
    If vSheetNames(i, 2) = "X" Then ThisWorkbook.Worksheets(vSheetNames(i, 1)).Copy Before:=wbMaster.Worksheets(1)
Next

此代码在我的本地计算机上运行出色,但是当我在网络上保存文件时运行它时,.Copy方法会冻结 Excel(在第一个工作表上)。

现在,工作表有几个公式,大多数都对文件中其他地方的表进行了结构化引用,还有一些更复杂的(但没什么太疯狂的)...... SUMIF等等。但是,这在我的本地机器中工作流畅且快速。

在复制操作之前将计算设置为手动不起作用。移动工作表(与复制它相反)也没有。

我怀疑这是因为复制的工作表必须创建指向共享驱动器的链接并且它挂起了。我无法展平公式,因为它们会受到下游用户输入的影响。

任何线索如何让它在网络驱动器或我应该注意的事情中工作?

由于在工作表上的"命名区域"中使用EVALUATE公式而出现问题。当我删除它时,工作表被适当地复制了。

相关内容

最新更新