运行时错误'9'-下标超出范围

Question

When running my macro, I keep getting a run-time error stating the subscript is out of range. Anyone have any pointers? The line that is not working is the Application.Workbooks(3).Activate

Below is the macro..

Sub Macro1()
'
' Macro1 Macro
'

'
  ActiveSheet.Unprotect
  ActiveSheet.Name = "M-YTD"
    Range("E16:H16").Select
    Selection.MergeCells = False
    Columns("B:G").Select
    Range("G11").Activate
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    ActiveSheet.Name = "VarianceRpt"
    Rows("1:10").Select
    Range("A10").Activate
    Selection.EntireRow.Hidden = True
    Columns("G:G").ColumnWidth = 50
    Range("G18").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Variance Notes"
    Range("F19").Select
    Selection.Copy
    Range("G18:G19").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("D16:F16").Select
    Selection.MergeCells = True
    ActiveSheet.Previous.Select
    Range("E16:H16").Select
    Selection.MergeCells = True
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Transfers"
    Windows("Var Template.xls").Activate
    Range("A1:M37").Select
    Selection.Copy
    Application.Workbooks(3).Activate
    ActiveSheet.Paste
    Sheets("VarianceRpt").Select
    Sheets("VarianceRpt").Move Before:=Sheets(1)
End Sub

Answer 1

This is essentially a typo. a Subscript out of Range error always means that you're trying to index an array/collection with an invalid index parameter, in other words, the index you're asking for doesn't exist because it's outside the bounds of the sequence.

Application.Workbooks(3) means the third Workbook object belonging to the current Application instance. If the current Application instance contains 2 or fewer Workbooks , then any index value greater than or equal to 3 will raise the error. Likewise, an index of 0 will raise the same error.

The same is true for any Collection type, the index parameter must be greater than 0, and less than or equal to the length of the collection. So:

• ThisWorkbook.Worksheets(0) will fail since 0 is not a valid index
• ThisWorkbook.Worksheets(13) will fail if there are 12 or fewer Worksheets
• ActiveSheet.ListObjects(1) will fail if there aren't at least one ListObject on the worksheet

Arrays are usually base-zero, which means that their indices begin at 0, as a result their upper bound is 1 less than their length, so an array like:

Dim myArray
myArray = Array("A", "B", "C", "D")

Will have an upper bound of 3, and a lower bound of 0. Valid indices are therefore within the range of 0 to 3, so:

• myArray(4) will raise the error
• myArray(0) will return the value "A"

One sort-of exception is the Range.Cells collection, which actually works differently:

• ActiveSheet.Range("A1").Cells(2) refers to cell "A2"

Answer 2

用人类语言，此错误将是“您要我（Excel或应用程序）转到第三个打开的​​工作簿并激活它。但是我的工作簿少于3个。因此，我向您显示此丑陋的错误。对不起:(“