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

我得到运行时错误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. 包含macros（wb1）的工作簿
2. 由macros（wb2）打开的工作簿

一旦wb2被打开，它就成为Active工作簿和行：

 Sheets("In-Transit").Select 

只有在该工作表在wb2中才有效 。 如果工作表位于原始工作簿（wb1）中 ，则必须重新激活该工作簿，才能选中该工作表。 还要确保在图纸名称中没有多余的空格。