Excel 宏 - 运行时错误“9”：下标超出范围（在要复制的 For 循环内）

Question

这是一个简单的宏代码，用于从一个工作簿复制范围A2直到最后一行，并将其粘贴到另一个工作簿中。我是一个新手，用谷歌搜索了很多页面，但未能帮助自己。代码粘贴如下-

'

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

'

结果-调试后，发现代码成功复制粘贴A2值。然而，它引发了运行时错误9:Subscript超出范围。当工作表（“Config”）.Range（“A”）

Answer 1

需要提及的几点。

首先 - Excel 工作簿可以包含数百万行 - 但您的代码仅限于 32，768 行，因为您将 FinalRow 和 X 定义为整数。请改用长整数（将 X 调暗为长，最后一行为长），以防您打开的工作簿之一超过 32，000 行。

现在谈谈错误的原因。当您通过For-Next循环第二次运行代码时，系统挂起，因为就它而言，活动工作簿是bFile，并且因为配置选项卡在bFile上不存在（它在aFile上），它会崩溃，并出现无益的错误消息（因为它找不到正确的选项卡，因为它在错误的地方查找）。

顺便说一句，每次For… Next循环触发时，您的代码都会尝试打开（bFile）。每次都需要打开文件吗？当然，这只是将详细信息从一个工作表复制到下一个工作表的情况？

您还应该有一些错误处理。如果 aFile 不包含“配置”选项卡，或者 bFile 不包含“测试用例”选项卡，则代码将崩溃。我强烈建议您进行一些错误处理来处理这些实例。

Answer 2

您尚未将行号分配给FinalRow变量。尝试：

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

Answer 3

这样更好吗？我将您的工作簿分配给工作簿变量，并取出了选择和复制方法。我还添加了.行，正如其他人也建议的那样

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