Excel打印并保存macros文件命名

我有一个工作人员必须填写信息的Excel文件。 之后，我做了一个macros，将文件保存在2个不同的文件夹中并打印出来。 我的问题是文件的命名。 我怎样才能让它命名文件为例

QualityReportN其中N是数字或确切的date_time（以秒为单位）

这是迄今为止的代码：

`Sub PrintSave() ' ' PrintSave Macro ' ' Print on default printer save ' Save in two place: ' 1.Specific folder on desktop (named quality cards) ' 2.Network server (location eg. \\HOMEGROUP\QualityCards\) ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Logical\Desktop\EXEL\QualityReprotN.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False ChDir "C:\Users\Logical\Desktop\New folder" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Logical\Desktop\Network\QualityReportN2.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False End Sub` 

Answer 1

您可以使用Now()函数

 Sub PrintSave() ' ' PrintSave Macro ' ' Print on default printer save ' Save in two place: ' 1.Specific folder on desktop (named quality cards) ' 2.Network server (location eg. \\HOMEGROUP\QualityCards\) ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Logical\Desktop\EXEL\QualityReprotN" & format(now(),"yyddmm_hhmmss") & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False ChDir "C:\Users\Logical\Desktop\New folder" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Logical\Desktop\Network\QualityReportN2" & format(now(),"yyddmm_hhmmss") & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False End Sub 

编辑：

看看VBA库的其他格式！ 链接

Answer 2

 ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Logical\Desktop\Network\QualityReportN" & format(now(),"yyddmm_hhmmss") & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False