修改工作薄名称相同，不提示，直接覆盖修改

shenzhenyang · 发表于 2023-3-8 12:29

Sub 修改工作薄命名()
Dim NM
On Error Resume Next
NM = ThisWorkbook.Name
ThisWorkbook.SaveAs ThisWorkbook.Path & "" & ThisWorkbook.Sheets(1).Range("A1") & ".xlsm"
Kill ThisWorkbook.Path & "" & NM
End Sub

复制代码

请老师帮忙，当修改工作薄名称相同的时候，加那个代码，可以不提示，直接覆盖修改。谢谢

shenzhenyang · 发表于 2023-3-8 14:45

Application.DisplayAlerts = False
不加这个弹窗提示，还有没有其他方法，可以不提示直接覆盖修改工作簿名

ykcbf1100 · 发表于 2023-3-8 15:24

加Application.DisplayAlerts = False代码就会直接覆盖保存了。

shenzhenyang · 发表于 2023-3-8 17:20

ykcbf1100 发表于 2023-3-8 15:24
加Application.DisplayAlerts = False代码就会直接覆盖保存了。

除了加加Application.DisplayAlerts = False，还有没有其他方法

gwjkkkkk · 发表于 2023-3-8 20:59

Sub 修改工作薄命名()
Dim NM

On Error Resume Next

strfilename = ThisWorkbook.Path & "" & ThisWorkbook.Sheets(1).Range("A1") & ".xlsm"

If Dir(strfilename) = "" Then Kill strfilename

ThisWorkbook.SaveAs ThisWorkbook.Path & "" & ThisWorkbook.Sheets(1).Range("A1") & ".xlsm"

End Sub

		自动登录	找回密码
密码			免费注册

[求助] 修改工作薄名称相同，不提示，直接覆盖修改

评分