excel - Excel VBA : Automated Excel Backup Stopped Working due to “Compile Error: Cannot find file or library”

Question

我有一个 list xls文件，其中包括办公室图。打开xls后，VBA会在进行任何更改之前自动备份文件。在过去的一年中一直如此。今天它坏了。

昨天文件运行正常。
1)我在xls工作表中添加了一些信息-没什么异常；我在过去一年中添加的同类信息。我没有编辑VBA。
2)我在办公室图的选项卡中添加了一些对象(形状-圆形，正方形等)。

今天，该文件无法正常工作。
1)VBA调试器在打开时给出错误:“编译错误:找不到文件或库。”
2)许多文本框/形状都已从图表的选项卡中消失。我没有删除它们。

更新1:我在图表上移动了一个形状，并重新出现了所有文本框。

任何解决此问题的建议表示赞赏。

'Saves an exact copy of the file upon opening it to the \Back_Tracker location and added today's date to the filename.
Private Sub Workbook_Open()
Dim WBPath As String, WBName As String, TimeStampStr As String, PassW As String

WBPath = ThisWorkbook.Path
WBName = ThisWorkbook.Name
'PassW = "something"

Const cstrBACKUP As String = "Backup_Tracker"

If InStr(1, WBPath, cstrBACKUP) = 0 Then        'prevent backups from making backups of themselves.

    TimeStampStr = Format(Now(), "YYYY-MM-DD_hh-mm_")

     'Application.StatusBar = "Saving backup..."
    ActiveWorkbook.SaveCopyAs Filename:=WBPath & Application.PathSeparator & cstrBACKUP & Application.PathSeparator & TimeStampStr & WBName
     'Application.DisplayStatusBar = False
     'Application.DisplayStatusBar = True
End If
End Sub

Answer 1

我对Excel VBA的经验是，打开代码有时可能会损坏。 Access曾经也是如此，但是我不确定这是否最终得以解决。

我的解决方案是在每次编辑后制作备份副本，或对Excel文件使用源代码控制。这是唯一可以肯定的方法。