VBA:.copy 后编译错误

Question

如果有一个带有子的大型工作簿，则将特定工作表复制到新工作簿，然后将此工作表另存为 FileFormat51(不带宏的 xlsx)以删除包含的代码:

Public Sub savefile()
Dim WB As Workbook, WBtemp As Workbook
Dim path As String, antw As String, ext As String
Dim filetobesaved

path = ThisWorkbook.path
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = path & "\" & "standard name"
    Application.ScreenUpdating = True
    antw = .Show
    Application.ScreenUpdating = False
    If antw = -1 Then
        filetobesaved = .SelectedItems(1)
        ext = Right(filetobesaved, Len(filetobesaved) - InStrRev(filetobesaved, ".")) 'InStrRev() finds the first dot from the right and gives its position to Right() to write the file extension into ext
        If ext <> "xlsx" Then
            MsgBox "You chose ." & ext & " as filename extension. As this might cause problems during the current procedure I will change it to .xlsx."
            filetobesaved = Left(filetobesaved, InStrRev(filetobesaved, ".")) & "xlsx"
        End If    
    Else
        Exit Sub
    End If
End With

Set WB = ActiveWorkbook
TKontur.Copy
Set WBtemp = ActiveWorkbook

WBtemp.SaveAs Filename:=filetobesaved, FileFormat:=51  '51 = .xlsx     without macros
WBtemp.Close

End Sub

这种方法多年来一直运行良好，直到 Excel 在复制工作表后立即开始编译代码。工作簿的代码在复制任务之前编译得很好(调试->编译 VBAProject 工作正常)，但在复制语句之后，代码由于多种原因而无法编译，所有原因都包括工作表被复制到新工作簿中而没有所有它引用的其他工作表和模块。

目前，如果我重新启动电脑，然后打开工作簿并仅执行给定的子程序，则会收到上述错误。

奇怪的是，一开始我以为这是一个数据损坏错误并重建了整个东西(直到现在又多次重建)并且每次重建后一切都工作正常至少一次但最终相同的错误再次出现我不知道是什么导致它再次出现。

我还发现，删除任何模块(无论是哪一个)、保存工作簿然后重新打开工作簿都会导致错误至少一次不会发生(-> 一切正常)，无论我删除哪个模块。所以我认为可能是内存溢出的问题。但是当我用最基本的功能重写程序但一半代码和一半模块时，这工作正常两周，然后错误又出现了。事情变得更奇怪:我写了一个更基本的版本，版本号是 2.0在那两周里我对 2.5 版本做了一些修改大多数版本都曾使用过并且有效。但是当错误发生在 2.5 版本中时，所有回到 2.0 的版本都立即开始出现相同的错误，而以前没有这样的错误。

此外，如果错误至少发生一次，那么无论我更改什么，它每次都会发生，除非我删除对其他模块和工作表中的内容的许多引用而不是复制的引用。

还有一个非常相似的错误，恰好是一种不相关的错误(其中一个错误可能会在没有另一个错误的情况下发生，有时两者都会发生，有时两者都不发生)，但具有非常相似的属性:关闭工作簿时，有时 Excel 首先关闭 Excel 对象，然后编译模块并失败。当这种情况发生时，那么

ThisWorkbook.Saved = True
ActiveWorkbook.Close

通常有助于暂时忽略该错误，但随后(通常在一年左右)即使有这两行，它也会重新出现。编辑:此外，此解决方法似乎有 20% 的机会导致 Excel 崩溃，包括所有其他打开的工作簿。

最后一件事:一旦错误发生一次大多数情况下，它会发生在所有 PC 和笔记本电脑上，包括不同的更新状态、操作系统和 Office 版本。

Answer 1

作为解决方法，我在保存工作簿之前禁用了事件 (Application.EnableEvents = False)。它对我有用!

此外，为了更好的可读性，我更喜欢使用 Excel 常量名称而不是 Excel 常量值。例如。下面是主要格式，我使用 xlOpenXMLWorkbook 作为 xlsx，而不仅仅是 51。尽管这与您或我遇到的错误无关。

51 = xlOpenXMLWorkbook (without macro's in 2007-2016, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2016, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2016 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2016, xls)

以下是修改后的代码供引用:

Public Sub savefile()
Dim WB As Workbook, WBtemp As Workbook
Dim path As String, antw As String, ext As String
Dim filetobesaved

path = ThisWorkbook.path
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = path & "\" & "standard name"
    Application.ScreenUpdating = True
    antw = .Show
    Application.ScreenUpdating = False
    If antw = -1 Then
        filetobesaved = .SelectedItems(1)
        ext = Right(filetobesaved, Len(filetobesaved) - InStrRev(filetobesaved, ".")) 'InStrRev() finds the first dot from the right and gives its position to Right() to write the file extension into ext
        If ext <> "xlsx" Then
            MsgBox "You chose ." & ext & " as filename extension. As this might cause problems during the current procedure I will change it to .xlsx."
            filetobesaved = Left(filetobesaved, InStrRev(filetobesaved, ".")) & "xlsx"
        End If    
    Else
        Exit Sub
    End If
End With

Set WB = ActiveWorkbook
TKontur.Copy
Set WBtemp = ActiveWorkbook

Application.EnableEvents = False
    WBtemp.SaveAs Filename:=filetobesaved, FileFormat:=xlOpenXMLWorkbook ' = xlsx
    WBtemp.Close
Application.EnableEvents = True    
End Sub