date - VBScript中的Excel.Find函数出现错误

Question

我正在尝试创建一个VB脚本，该脚本搜索一列日期并返回具有今天日期的单元格的地址。
由于某种原因，我一直收到“需要对象:'FoundCell'”错误。
有人可以看看我的代码并纠正我吗？
我可以使用WScript.Echo读出日期，但是一旦在find函数中使用它，就会立即出现错误。

Set oExcel = CreateObject("Excel.Application")
Set wshShell = CreateObject("Wscript.Shell")

File_Path = "D:\Work\Personal Timemanagement\test.xlsx"


Set oData = oExcel.Workbooks.Open(File_Path)

WHAT_TO_FIND = Date()
WScript.Echo WHAT_TO_FIND

Set FoundCell = oData.Worksheets("tst2").Range("A1:A40").Find(WHAT_TO_FIND)
oExcel.Cells(4,4) = FoundCell.Address


oExcel.ActiveWorkbook.SaveAs "D:\Work\Personal Timemanagement\test2.xlsx"
oExcel.ActiveWorkbook.Close

oExcel.Application.Quit

WScript.Quit

谢谢您的帮助!

Answer 1

WHAT_TO_FIND1返回类似于＃14/10/2014＃的值。因此，请使用WHAT_TO_FIND1 = Replace(WHAT_TO_FIND，“＃”，“Nothing”)将＃替换为空。

替换后，上面的代码将起作用