vba保存后复制表格

Question

我决定提出一个新问题，因为我的第一个问题并不清楚。

我想在保存原始工作表后将我的工作表复制到另一个地方。

我正在使用此代码：

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
If Success Then

'Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="I:\CGP\DEOPEX\01 - Supervisão\01 - Administrativo\06- ADM - Taís e Natalia\04 - Alocados - Equipes\TEC ALOCADOS" & " " & Format(Now(), "dd-mm-yyyy"), _
FileFormat:=51
'Application.DisplayAlerts = True

End If
End Sub

有点有效。当我保存文件并且SaveAs被触发时，它似乎就在循环中。

首先它再次问我是否真的想将新文件保存为无宏工作簿（因为我已经将FileFormat指定为51）已经是真的。

当我点击Yes时，它会创建文件，然后启动一个循环，它会不断通知我该文件已存在，以及是否要覆盖它。

如果我说是，它继续问我。 如果我说不，那么我得到：

  

运行时错误1004：方法SaveAs of Object _Workbook失败。

我试图插入Application.DisplayAlerts以查看它是否可以解决问题，但它什么都没改变，循环继续，现在我只是没有收到警报。

有什么建议吗？我真的需要新的表格上没有任何宏。