在另一个excel文件上使用Find时，下标超出范围

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

“查找”将不适用于已关闭的工作簿。如果工作簿是打开的，那么只使用工作簿的名称在工作簿集合中引用它。在尝试引用某个单元格之前，您应该先进行测试，看看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