VBA錯誤運行時錯誤9下標超出范圍

Question

我收到運行時錯誤9

Sub Conway()
Dim aRng As Range
Dim Data As Range, c As Collection
Dim v As String, i As Long, ary
Set c = New Collection
    Path = "D:\InTransit DR Report\"
    RawFile = Application.GetOpenFilename(, , "Please Select InTransit Raw WorkBook:")
    Application.DisplayAlerts = False
    If RawFile = "False" Then
        MsgBox "Please select appropriate Final Output file", vbCritical, "Nike InTransit DR Automation"
        Exit Sub
    Else
        Workbooks.Open RawFile, True, False
    Application.Wait (10)
    Application.Visible = False
    Application.Visible = True
    Application.WindowState = xlMaximized
    ActiveWindow.WindowState = xlMaximized
    End If
    Sheets("In-Transit").Select 'Getting error here

Answer 1

我們正在處理兩個工作簿：

1. 包含宏（wb1）的工作簿
2. 宏（wb2）打開的工作簿

一旦打開了wb2 ，它將成為Active工作簿和以下行：

Sheets("In-Transit").Select

僅在該工作表在wb2中時才有效 。 如果工作表在原始工作簿（wb1）中 ，則必須重新激活該工作簿，然后才能Selected 。 還要確保工作表名稱中沒有多余的空格。