Excel Macro-Laufzeitfehler '9': Index außerhalb des Bereichs (innerhalb von For Loop)

Question

Dies ist ein einfacher Makrocode, um den Bereich A2 bis zur letzten Zeile aus einer Arbeitsmappe zu kopieren und in eine andere Arbeitsmappe einzufügen. Ich bin ein Neuling und googelte viele Seiten, konnte aber nicht selbst helfen. Der Code wird eingefügt unten-

`

Sub TC_Creation_Sample() 
Dim aPath As String, aFile As String, bFile As String 
Dim FinalRow As Integer, x As Integer 

With Application 
    .ScreenUpdating = False 
    .DisplayAlerts = False 
End With 

aPath = "C:\temp\" 
aFile = aPath & "Config" 
bFile = aPath & "TC_Template" 
Workbooks.Open (aFile) 
Sheets("Config").Activate 
'FinalRow = Cells(Rows.Count, "A").End(xlUp).Row 
FinalRow = Worksheets("Config").Range("A2").End(xlDown) 

For x = 2 To FinalRow 
      Worksheets("Config").Range("A" & x).Select 
      Selection.Copy 
      Workbooks.Open (bFile) 
      Worksheets("TestCases").Range("A" & x).Select 
      ActiveSheet.Paste 
Next x  
End Sub 

`

Daraus resultierende Beim Debuggen, wird es festgestellt, dass der Code erfolgreich kopieren Einfügen A2-Wert. Es wirft jedoch Laufzeitfehler 9: Index außerhalb des Bereichs. Und der Fehler tritt auf, wenn Arbeitsblätter ("Config"). Bereich ("A" & x). Auswahl wird zum zweiten Mal nach Next x ausgeführt. Ich bin mir nicht sicher, was diesen Fehler wirklich verursacht. Freundlicher Hinweis.

Answer 1

Ist das besser? Ich habe Ihre workbooks zu workbook variables zugewiesen und select und copy Methoden herausgenommen. Ich habe auch .Row wie andere auch

vorgeschlagen haben

Sub TC_Creation_Sample() 
    Dim aPath As String, aFile As String, bFile As String 
    Dim FinalRow As Long, x As Long 
    Dim wbA As Workbook, wbB As Workbook 

    With Application 
     .ScreenUpdating = False 
     .DisplayAlerts = False 
    End With 

    aPath = "C:\temp\" 
    aFile = aPath & "Config" 
    bFile = aPath & "TC_Template" 

    Set wbA = Workbook.Open(aFile) 
    Set wbB = Workbooks.Open(bFile) 

    FinalRow = wbA.Worksheets("Config").Range("A2").End(xlDown).Row 
    'FinalRow = wbA.Worksheets("Config").Cells(Rows.Count, "A").End(xlUp).Row 

    For x = 2 To FinalRow 
     wbB.Worksheets("TestCases").Range("A" & x).Value = wbA.Worksheets("Config").Range("A" & x) 
    Next x 
End Sub 

Answer 2

Sie haben FinalRow Variable keine Zeilennummer zugewiesen. Versuchen Sie:

FinalRow = Worksheets("Config").Range("A2").End(xlDown).Row 

Answer 3

eine Reihe von Punkten zu nennen.

Erste - Eine Excel-Arbeitsmappe viele Millionen von Zeilen enthalten können - aber der Code wird auf nur 32.768 Zeilen beschränkt, da Sie beide definieren FinalRow und X als Ganze Zahlen. Verwenden Sie stattdessen Lange Ganzzahlen (Dim X als Long, FinalRow als Long), falls eine der geöffneten Arbeitsmappen mehr als 32.000 Zeilen enthält.

Jetzt auf die Ursache des Fehlers. Wenn Sie den Code zum zweiten Mal über die For-Next-Schleife ausführen, hängt das System, da die aktive Arbeitsmappe bFile ist und die Registerkarte Config in der Datei bFile nicht vorhanden ist (sie befindet sich in aFile) stürzt mit der nicht hilfreichen Fehlermeldung ab, die Sie erhalten (weil es die richtige Registerkarte nicht finden kann, weil es an der falschen Stelle sucht).

Übrigens wird Ihr Code versuchen, jedes Mal, wenn For..Next loop ausgelöst wird, (bFile) zu öffnen. Müssen Sie die Datei jedes Mal öffnen? Sicherlich ist es nur ein Fall, die Details von einem Blatt zum nächsten zu kopieren.

Sie sollten auch einige Fehlerbehandlung haben. Wenn entweder aFile keine Registerkarte Config enthält oder bFile die Registerkarte TestCases nicht enthält, stürzt der Code ab. Ich würde dringend empfehlen, dass Sie einige Fehler behandeln, um diese Instanzen zu behandeln.