在networking驱动器上存储文件时复制工作表冻结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 

这个代码在我的本地机器上出色地工作,但是当我在networking上保存文件时运行它, .Copy方法冻结了Excel(在第一个工作表上)。

现在,工作表有几个公式,大多数结构化引用文件中的其他位置的表和一些更复杂(但没有太疯狂)… SUMIF等。 但是,这在我的本地机器上运行平稳而快速。

在复制操作不起作用之前将计算器设置为手动。 没有移动工作表(而不是复制它)。

我怀疑它,因为复制的工作表必须创build链接到共享驱动器,它挂起来。 我不能将这些公式弄平,因为它们将受到用户input下游的影响。

任何线索我怎么能得到这个工作在networking驱动器或我应该寻找的东西?

由于在工作表上命名范围中使用EVALUATE公式,发生该问题。 当我删除这个工作表正确复制。