可以用宏实现 Dim path As StringDim a, b, c As Stringc = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())path = "E:\资料\文件\" & c & Cells(3, 5) & "资料单.xls"ActiveWorkbook.SaveAs Filename:=path, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False ...
|