尝试使用今天的date更新Excel电子表格时出现VBScriipt错误
不是一个vbscript专家，我开始怀疑我是否记得任何一个。
我只是想获得今天的date，而不会产生“Microsoft VBScript运行时错误：所需对象：'（21,1）”处的'aqDateTime'“。 我知道这对某个人来说显而易见，对我来说也可能是显而易见的。
我正在使用一个Excel电子表格，这个电子表格需要用另一个date来更新单元格，而不pipe今天的date如何。 取得今天的date是我的问题。
以下是相关的代码。 代码段结尾处的行“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) ..... 要获取当前date，请使用方法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)