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號后就不正常了
uj5u.com熱心網友回復：
跟蹤除錯，看看nothing的是哪個檔案，然后再手工打開看看...uj5u.com熱心網友回復：
("實收金額")單元格在一些檔案中不存在，被改寫了？檢查所有涉及的檔案
uj5u.com熱心網友回復：
加個if 判斷一下么。uj5u.com熱心網友回復：
跟蹤一下，看一看是不是("實收金額")不在你查找的范圍內，所以沒找到轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130477.html
標籤：VBA
上一篇：怎么在VB實作這個界面