下標越界時，使用在不同的Excel查找文件

Question

當我嘗試運行，我創建它給這個錯誤這個小宏「運行時錯誤‘9’：下標越界」

Sub Escala() 

ActiveCell.Value = Workbooks("C:\Users\ASUS\Documents\File test.xlsm").Worksheets("2016").Range("A:AJ").Find("Julho") 

End Sub 

嘗試檢查其他人的類似錯誤，但無法弄清楚爲什麼......希望你們可以提供幫助。

在此先感謝

Answer 1

找不到封閉的工作簿。如果工作簿已打開，那麼只需使用工作簿的名稱在Workbooks集合中引用它即可。在嘗試引用它之前，您應該測試以查看是否通過Find方法找到單元格。

Sub Escala() 
    Dim Target As range 
    Set Target = Workbooks("File test.xlsm").Worksheets("2016").range("A:AJ").Find("Julho") 

    If Not Target Is Nothing Then 
     ActiveCell.Value = Target.Value 
    End If 

End Sub