Excel打印并保存宏文件命名

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

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`

来源

2017-10-17 JamesScult

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

来源

2017-10-17 22:24:14 KacireeSoftware

您可以使用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库的其他格式！ Link

来源

2017-10-17 22:24:47 Maldred

哇谢谢你这完美的工作，也thx的格式链接非常有用。我可以按照自己的意愿制作。 ty很多 – JamesScult

当然！很高兴提供帮助，如果答案对您是正确的，请标记为已回答，以便可以关闭。此外，如果在任何位置可能更改的情况下在代码中进行错误检查可能会很好，但“新建文件夹”有点让我害怕;也许会添加一个提示来询问用户“新文件夹”在哪里以防万一？ – Maldred

Excel打印并保存宏文件命名

回答

相关问题