通过VBA在Excel中保存多个文件会导致问题

Question

我有一个执行以下操作的代码： 打开模板文件 复制该文件中的相关信息 将文件另存为Uniquekey_templatefile.xlsm

我有一个循环创建了一个循环，该循环针对100个唯一键/ TempId执行此活动。基本上，为每个唯一键创建和保存不同的文件。

该代码可以正常工作，但是在保存10-15个文件之后，看起来代码在生成少量文件后就停止了。

Workbooks("Template.xlsm").Worksheets("Data").Activate
    ActiveWorkbook.SaveAs filepath & TemplID & "_Template.xlsm"
    Application.Wait (Now + TimeValue("00:00:01"))
    ActiveWorkbook.Close

也没有数据丢失。当我单击“取消”时，它将移至保存下一个文件。

因此，我需要做的就是对我的代码进行改进，如果15秒钟后此消息仍未消失，则单击取消。