使用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