VBScriptを使用して今日の日付のExcelファイルを保存する

Question

VBScriptを使用して今日の日付のExcelファイルを保存しようとしています。ブックを開きますが、Excelファイルには日付は保存されません。

Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open "C:\Tes\Book1.xlsm") 
objExcel.Application.Visible = True 
objExcel.Activeworkbook.SaveAs "C:\Test\Report\Book1" & 
format Date   (), "yyyymmdd") & ".xlsm" 
objExcel.Activeworkbook.Close 
objExcel.Quit 
WScript.Quit 

Answer 1

まず - あなたの構文が壊れていると、パスがライン2上の第二

不完全である - ライン4は、&で終了されています。ここに私が持っているものです。次の行に進むには、アンダースコア（例：& _）で終わらなければなりません。

また、5行目では、bash、php、perlのように日付を書式設定することもできません。使用可能な関数を使用する必要がありますが、これはかなり簡単です。

'Will Create a date format yyyymmdd 
'Due to unintended line-break in stack overflow this - I've split to 2 lines. 
MyDateFormat = Year(now) & Right("0" & Month(Now), 2) & _ 
    Right("0" & Day(now), 2) 
Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open("C:\test\Book1.xlsm") 
objExcel.Application.Visible = True 
objExcel.Activeworkbook.SaveAs "C:\test\Reports\Book1_" & _ 
    MyDateFormat & ".xlsm" 'You must append _ to continue to another line. 
objExcel.Activeworkbook.Close 
objExcel.Quit 
WScript.Quit