Excel VBA中的“下标超出范围”

Question

I am getting "subscript out of range" in excel vba at the line "Workbooks("source").Sheets("Sheet1").Activate"

Sub one()
    Dim target As Object
    Set target = ThisWorkbook

    source = Application.GetOpenFilename( _
        FileFilter:="Excel 2003 (*.xls),*.xls,Excel 2007 (*.xlsx),*.xlsx,Excel 2007 (*.xlsm),*.xlsm", _
        Title:="Select an the sdlc workbook", _
        MultiSelect:=File)
    If source = False Then
        Exit Sub
    Else
        Workbooks.Open Filename:=source
    End If
    Workbooks("source").Sheets("Sheet1").Activate
End Sub

Answer 1

It appears source is a variable, not the actual name of the workbook. It would be easier to use a Workbook variable rather than the name:

Sub one()
    Dim target As Excel.Workbook
    Set target = ThisWorkbook
    Dim wbSource as Excel.Workbook

    source = Application.GetOpenFilename( _
        FileFilter:="Excel 2003 (*.xls),*.xls,Excel 2007 (*.xlsx),*.xlsx,Excel 2007 (*.xlsm),*.xlsm", _
        Title:="Select an the sdlc workbook", _
        MultiSelect:=File)
    If source = False Then
        Exit Sub
    Else
        Set wbSource = Workbooks.Open(Filename:=source)
    End If
    wbSource.Sheets("Sheet1").Activate
End Sub