Question

excel 宏命令另存工作表

我在网上看见一位大神提供的另存工作表到指定文件夹的宏命令，我是新手，这个命令为将工作表另存为"D:\数据备份\"中，命名方式为当前日期，那么问题来了，当天保存两次就会出现错误，提示文件名重复，所以在此请教大神如何让文件名称，在日期后面自动添加两位或者三位序列号？谢谢！

Sub 保存()
Application.ScreenUpdating = False
Sheets(1).Copy
ActiveWorkbook.SaveAs Filename:="D:\数据备份\" & Date & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
End Sub
或者文件命名为某一单元格内容

Answer 1

Sub 保存()
Application.ScreenUpdating = False
Sheets(1).Copy
b = Format(Time, "hh:mm")
ActiveWorkbook.SaveAs Filename:="D:\数据备份\" & Date & b & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
End Sub
你加个时间戳试试,看看可以满足你的需求吗

Answer 2

可以调用另存为窗口,会方便很多的,可以自定义文件名.
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If

Answer 3

您好，添加序号过于麻烦，建议通过增加随机数字、当前时间 来解决命名重复的情况。
"D:\数据备份\" & Date &Int(Rnd() * 10000)& ".xls",