Excel VBA“End Sub”行返回错误“代码执行…”

我正在使用Excel VBA中的插件/参考。 在加载项的顶部，我想把一个function，备份和保存加载项。 我编写了以下代码，但在“End Sub”行不断发生“代码执行已被中断”错误：

Sub SaveEditsToAddIn() DateAndTime = Format(Now, "yyyymmdd-hhmmss") Dim xlobj As Object Set xlobj = CreateObject("Scripting.FileSystemObject") xlobj.CopyFile "c:\File.xlam", "c:\backup\File " & DateAndTime & ".xlam", True Set xlobj = Nothing ThisWorkbook.Save End Sub