使用VBScript将Excel文件保存到今天'；日期

我正在尝试使用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

---

首先-第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

---

你能显示cscript执行的输出吗？你救了我。你的约会方式终于成功了！谢谢你，伙计！