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