vbscript与UFT

这是我试图在HP-UFT上执行的代码片段。这只是为了获取日期为今天日期的行的电子邮件ID

---

它没有进入“如果”为什么？

即使它进入了“如果”条件，也会给您带来一个错误。您没有使用“Redim”使用新维度重新定义阵列。If条件中的第一行应该是：Redim preserve myarray（j）excel中存储的日期格式是什么？是年/月/日还是年/月/日？只有年/月/日。我试着同意所给的建议。另一件事是我尝试使用aqDateTime.Compare（Date1，Date2）来代替上面的比较。它说物体应该存在。这是什么意思？不太清楚这个物体。只需尝试使用msgbox获取FormatDateTime（worker.cells（2，13）.value，2）的值。在此处发布值。这是2017年5月30日的值

dim ExcelObj, WorkBook, WorkSheet, Value, i, j,d,  myarray()
j=0

set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Visible = true
set WorkBook = ExcelObj.Workbooks.Open ("\\calbcdata.molina.mhc\IS\OM\Test Automation\Chaitanya\response.xls")
set WorkSheet = WorkBook.Worksheets ("response")


For i= 2 to 5

If FormatDateTime(Worksheet.cells(i, 13).value, 2)=date() then
myarray(j)=Worksheet.cells(i, 6).value
j=j+1
msgbox myarray(j)

End If

Next