Question

不是vbscript专家，我开始怀疑自己是否记得任何一个。

我只想获取今天的日期，而不会生成，＃34; Microsoft VBScript运行时错误：需要对象：＆＃39; aqDateTime＆＃39;在线（21,1）和＃34;。我知道这里的人很明显，对我来说也应该是显而易见的。

我正在使用Excel电子表格，该电子表格需要根据今天的日期，根据其他日期更新单元格。获取今天的日期对我来说是个问题。

以下是相关代码。片段末尾附近的行，＆＃34; CurrentDate = aqDateTime.Today＆＃34;是发生错误的地方。

我不只是寻求代码方面的帮助。我也很感激了解背后的原因。我在俯瞰什么？谢谢！

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)

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

1 个答案: