Excelの印刷と保存マクロファイルの名前付け

Question

私は、作業者が情報を記入しなければならないという秀逸な文書を持っています。その後、2つの異なるフォルダにファイルを保存して印刷するマクロを作成しました。私の問題は、ファイルの命名です。私はそれを行うことができますどのようにそれの名前たとえば、ファイルNは（秒で）数や正確なDATE_TIMEここ

は、これまでのコードである

QualityReportN：

`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

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

Answer 2

あなたは

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 

に

EDITをNow()機能を使用することができます。

他のフォーマットについては、VBAライブラリをご覧ください。 Link