Question

请教高手excel通过VB代码复制当前工作表，另存为以今天的日期为名字的工作表，代码如下运行出现如图错误

把date当前日期也给当做保存路径了，求解决Private Sub CommandButton12_Click()Application.ScreenUpdating = FalseSheets(1).CopyActiveWorkbook.SaveAs Filename:="D:\VB工程\" & Date & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=FalseActiveWorkbook.CloseEnd Sub

Answer 1

文件名不能包含字符: "/", 而默认的 date 函数返回 2016/12/26 格式。
可以利用 format 函数转换一下格式
例如：Format(Date, "yyyy-mm-dd")