Excel打印及；保存宏文件命名

我有一个excel文档，工作人员必须填写该信息。之后，我制作了一个宏，将文件保存在两个不同的文件夹中并打印出来。我的问题是文件的命名。例如，如何使其命名文件

QualityReportN，其中N是一个数字或精确日期\时间（以秒为单位）

以下是迄今为止的代码：

`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`

您可以使用

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库以了解其他格式

哇，谢谢你，这工作非常完美，而且thx的格式链接非常有用。我能做我想做的。当然有很多！很高兴为您提供帮助，如果您的答案正确，请将其标记为已回答，以便结束此操作。另外，最好在代码中检查错误，以防任何位置发生变化，“新文件夹”让我有点害怕；可能会添加一个提示，询问用户“新文件夹”在哪里，以防万一？

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