宏丢失了，只有重新录制宏或编写代码了。其他没办法了，下一次修改宏时，建议将代码复制到一个安全地方再修改。

宏丢失了，只有重新录制宏或编写代码了。其他没办法了，下一次修改宏时，建议将代码复制到一个安全地方再修改。

Sub b()
If Dir(Range("A1") + ".xls") = "" Then '先用DIR函数检查是否文件已存在
ActiveWorkbook.SaveAs Range("A1") + ".xls" '若不存在就另存为,注意,这是SaveAs是另存,你问题中的是另存一个考贝
Else '如已存在,打开另存对话框
Application.FileDialog(msoFileDialogSaveAs).InitialView = msoFileDialogViewDetails
Application.FileDialog(msoFileDialogSaveAs).InitialFileName = "aaa.xls"
Application.FileDialog(msoFileDialogSaveAs).Show
End If
End Sub
另外,团IDC网上有许多产品团购,便宜有口碑