Excelマクロ実行時エラー '9'：範囲外の（Forループ内コピー）

Question

これは、範囲A2を最後の行まで1つのブックからコピーし、別のブックに貼り付けるための単純なマクロコードです。私は初心者で、たくさんのページをグーグルで見つけましたが、自己を助けることに失敗しました。コードをデバッグする際

`

Result-

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 

` below-貼り付けられ、コードが正常で貼り付けA2値をコピーすることがわかっています。ただし、実行時エラー9がスローされます：添字が範囲外です。ワークシート（ "Config"）。Range（ "A" & x）.SelectがNext xの後に2回目に実行されているときにエラーが発生します。私は本当にこのエラーを引き起こしているのか分かりません。親切なアドバイス。

Answer 1

これはもっと良いですか？ workbooksをworkbook variablesに割り当て、selectとcopyの方法を取り出しました。他にも提案したように.Rowを追加しました。

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

行番号をFinalRow変数に割り当てていません。試してください：

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

Answer 3

多くの点が言及されています。

ファースト - Excelワークブックには、行の数百万を含めることができます - しかし、あなたは整数としてFinalRowとXの両方を定義しているので、あなたのコードは、のみ32,768行に制限されています。開いているワークブックの1つに32,000を超える行がある場合は、Long Integersを代わりに使用します（Dim XはLong、FinalRowはLong）。

エラーの原因になりました。 2番目のForループを使用してコードを実行すると、アクティブなブックがbFileであり、bFile（aFile上にある）にConfigタブが存在しないため、システムがハングします。 （間違った場所を探しているため、正しいタブが見つからないため）エラーメッセージが表示されてクラッシュします。

ちなみに、あなたのコードは、For..Nextループがトリガーするたびに（bFile）開こうとします。毎回ファイルを開く必要がありますか？確かに、1つのシートから次のシートに詳細をコピーするのは単なるケースですか？

エラー処理も必要です。 aFileに[構成]タブがない場合、またはbFileに[テストケース]タブがない場合、コードがクラッシュします。これらのインスタンスを処理する際にエラー処理を行うことを強くお勧めします。