问一下 Find函数

在程序是里面找“样品”单元格，今年表格中有文字为“样品”的单元格
Set xlApp = CreateObject("Excel.Application") '
xlApp.Workbooks.Open sDir + FilesArray(i)
sWorker2 = ""
On Error Resume Next
'With Worksheets(1).Range("a1:au200")
With xlApp.Workbooks(FilesArray(i)).Worksheets(1).Range("a1:au200")
Set c = .Find("样品")
....
end with
为什么find结果为nothing？
说明，这程序一直用得好好的， 13号后就不正常了