用单元格A1的内容作为文件名保存当前工作簿的宏，并且保存时遇到重名时提醒

来源：百度知道 编辑：UC知道 时间：2024/05/25 19:21:16
用单元格A1的内容作为文件名保存当前工作簿的宏，并且保存时遇到重名时提醒。前者代码为 Sub b()
ActiveWorkbook.SaveCopyAs Range("A1") + ".xls"
End Sub
如何把后者加上 谢谢

Sub b()
Dim doSave As Boolean
If Dir(Range("A1") + ".xls") = "" Then
doSave = True
Else
If MsgBox("文件：" & Range("A1") + ".xls 已经存在，是否要覆盖？" & vbCrLf & "选择【是】覆盖，选择【否】不做任何操作！", vbQuestion + vbYesNo) = vbYes Then
doSave = True
End If
End If
If doSave = True Then ActiveWorkbook.SaveCopyAs Range("A1") + ".xls"
End Sub

dim s as string
s=Range("A1") + ".xls"
if len(dir(s))>0 then
msgbox "重名"
exit sub
else

ActiveWorkbook.SaveCopyAs Range("A1") + ".xls"
end if
End Sub