Index außerhalb des zulässigen Bereichs bei Verwendung von Auf einem anderen Excel-

Question

Datei Wenn ich versuche, dieses kleine Makro auszuführen, die ich erstellt es diesen Fehler „Laufzeitfehler‚9‘: Index außerhalb des zulässigen Bereichs“ gibt

Sub Escala() 

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

End Sub 

Habe versucht, einige andere mit einem ähnlichen Fehler zu überprüfen, kann aber nicht herausfinden, warum ... ich hoffe, ihr könnt mir helfen.

Vielen Dank im Voraus

Answer 1

Suche wird auf einer geschlossenen Arbeitsmappe nicht. Wenn die Arbeitsmappe geöffnet ist, verwenden Sie nur den Namen der Arbeitsmappe, um sie in der Workbooks-Auflistung zu referenzieren. Sie sollten testen, ob eine Zelle von der Find-Methode gefunden wird, bevor Sie versuchen, sie zu referenzieren.

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