excel 自动另存 以某一单元格的内容命名,下面的代码添加提示表格名重复

Sub保存当前工作表()Application.ScreenUpdating=FalseApplication.Calculation=xlCalculationManu... Sub 保存当前工作表()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Dim ShtName As String, ShtPath As String, ResMsg As VbMsgBoxResult
If ActiveSheet.Range("a1").Value = "" Then MsgBox "当前工作表A1单元格为空白!" & Chr(10) & "请在A1单元格输入内容!", vbOKOnly + 16, "提示":exit sub
ShtName = ActiveSheet.Range("a1").Value
ShtPath = CStr(Application.InputBox("请输入工作表保存的路径", "确认路径", "F:/files", , , , , 2))
ResMsg = MsgBox("是否清楚表格中的内容" & Chr(10) & "选择是将保存表格" & Chr(10) & "选择否不保存表格", vbYesNo + 32, "提示")
Select Case ResMsg
Case vbYes
ActiveSheet.Copy
ActiveWorkbook.SaveAs ShtPath & "\" & ShtName
ActiveWorkbook.Close True
MsgBox "工作表已保存到" & ShtPath & "\" & ShtName, vbOKOnly, "提示"
Case vbNo
Exit Sub
End Select
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
展开
 我来答
可爱就是笑
2017-04-20 · TA获得超过1599个赞
知道大有可为答主
回答量:4011
采纳率:70%
帮助的人:621万
展开全部
可以在Case vbYes后加一句
DP=DIR(ShtPath & "\" & ShtName)
IF LEN(DP) THEN MSGBOX"表格名重复"
追问

不行哎 

还是照样保存了 没有提示

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式