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

Question

我正在尝试使用VBA创建基于表单的界面。 我遇到了一个无法解决的问题。 因此，在我的代码中，我尝试创建一个新的工作簿，然后保存它。 之后，它将扫描复选框，并查看正在选择的复选框。 如果选择它，它将创建一个新的图纸并复制预制的模板。 用户将打开他们想要的另一个工作簿，它将信息从该工作簿复制到刚创建的工作簿。 这是用于检索数据的代码：

Sub mil10_data()

Dim NewWB As Workbook
Dim thisWB As Workbook
Dim wb As Workbook
Dim Ret

Set thisWB = ThisWorkbook
Set NewWB = ActiveWorkbook
With NewWB
    'Copy the pre-made template to new workbook
    thisWB.Sheets("Data 10").Range("A1:AZ3000").Copy NewWB.Sheets(ActiveSheet.Name).Range("A1:AZ3000")

    'Retriving the data
    Ret = Application.GetOpenFilename("Excel Files (*.CSV), *.CSV", Title:="Select File To Be Opened")
    If Ret = False Then Exit Sub
    Set wb = Workbooks.Open(Ret)
    **'This is where the error is show up
    wb.Sheets(ActiveSheet.Name).Range("E21:E2136").Copy NewWB.Sheets(ActiveSheet.Name).Range("C2:C2117")** 
    wb.Close SaveChanges:=False

    Set wb = Nothing
    Set NewWB = Nothing
    End With
End Sub

我认为可能是因为有三个工作簿处于打开状态，所以它不知道哪个是活动工作簿，但事实并非如此。 我使用MsgBox进行了测试，它显示了所需的正确工作簿和workheeet名称。 如果我将ActiveSheet.Name更改为实际的工作表名称，则可以，但是我不想使用该方法。 我需要创建不同的工作表，因此我更喜欢使用ActiveSheet.Name。 有人知道为什么它不起作用吗？ 我非常感谢您的帮助。 谢谢！

Answer 1

ActiveWorkbook和ActiveSheet是获取用户输入的笨拙方法。 您应该（尽快）将您感兴趣的属性保存在变量中，然后停止直接引用它们。

就您而言，代码可能看起来像

Sub mil10_data()

    Dim NewWB As Workbook
    Dim thisWB As Workbook
    Dim wb As Workbook
    Dim Ret

    Dim active_sheet_name  As String

    Set thisWB = ThisWorkbook
    Set NewWB = ActiveWorkbook
    Let active_sheet_name = Application.ActiveSheet.Name

    With NewWB
        'Copy the pre-made template to new workbook
        thisWB.Sheets("Data 10").Range("A1:AZ3000").Copy NewWB.Sheets(active_sheet_name).Range("A1:AZ3000")

        'Retrieving the data
        Ret = Application.GetOpenFilename("Excel Files (*.CSV), *.CSV", Title:="Select File To Be Opened")
        If Ret = False Then Exit Sub
        Set wb = Workbooks.Open(Ret)
        wb.Sheets(active_sheet_name).Range("E21:E2136").Copy NewWB.Sheets(active_sheet_name).Range("C2:C2117") 
        wb.Close SaveChanges:=False

        Set wb = Nothing
        Set NewWB = Nothing
    End With
End Sub

如果仍然出现“下标超出范围”错误，则意味着您或者在运行脚本之前未正确选择ActiveSheet ，或者工作表wb中不存在该工作表。