我正在尝试创建一个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
谢谢您的帮助!
最佳答案
WHAT_TO_FIND1返回类似于＃14/10/2014＃的值。因此，请使用WHAT_TO_FIND1 = Replace(WHAT_TO_FIND，“＃”，“Nothing”)将＃替换为空。
替换后，上面的代码将起作用
关于date - VBScript中的Excel.Find函数出现错误，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/17588693/