尝试使用今天的日期更新电子表格时出现VBScriipt错误

Question

我不是vbscript专家，我开始怀疑我是否还记得这些。

我只想获得今天的日期，而不是生成"Microsoft : Object required：'aqDateTime‘at line (21,1)“。我知道这对这里的某个人来说是显而易见的，也许我也应该是显而易见的。

我正在处理一个Excel电子表格，它需要根据今天的日期将单元格更新为另一个日期。获取今天的日期对我来说是个问题。

以下是相关代码。代码段末尾的行"CurrentDate = aqDateTime.Today“是发生错误的地方。

不过，我并不只是在寻求代码方面的帮助。我也很感激了解它背后的原因。我忽略了什么？谢谢!

dim CurrentDate
dim objExcel, objWorkbook, objWorksheet, strCellValue

'Launch Excel
Set objExcel = CreateObject("Excel.Application")

'Make the spreadsheet visible
objExcel.Application.Visible = True

'Open the workbook
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\QA_Admin\Report\transactiontemplate.xls")

'Select a worksheet
Set objWorksheet = objWorkbook.Worksheets(1)

'Obtain the current date
CurrentDate = aqDateTime.Today

DayOfWeek = aqDateTime.GetDayOfWeek(CurrentDate)

.....

Answer 1

要获取当前日期，请使用Date方法；要获取星期几，请使用weekday方法，如下所示：

'Obtain the current date 
CurrentDate = Date 
DayOfWeek = Weekday(CurrentDate)     ' By default, the weekday returns 1 for a sunday, 2 for monday...7 for saturday.

如果您想获取当天的名称，可以使用WeekDayName方法，如下所示：

Dim strDayName
strDayName = WeekDayName(weekDay(date))      'Returns today's Name(like Friday)