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行以＆amp;结束。您必须以下划线（如此：＆amp; _）结束以继续下一行。

同样是第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

使用VBScript以今天的日期保存Excel文件

1 个答案: