尝试使用workbooks.open打开工作簿后激活工作表

我卡住了。 我正在运行一个数组来打开选定的文件，打开它，但是一旦我开始尝试添加处理代码，我似乎无法激活我想要的工作表。 我尝试和debuggingstrShName和variables永远不会被填充，始终为空，但variablesExpRptFileName(N)确实填充完整的path和文件name.ext。 我想知道如果path应该被删除（我已经尝试了几个变化，但它失败），或者如果我使用的循环types挂我。

在下面的代码中，variablesExpRptID为空; 不从表格中提取数据……而variablesExpRptFileName（N）包含正确的path，文件名和文件分机。

代码如下：

 ExpRptFileNameInLoop = Right(ExpRptFileName(N), Len(ExpRptFileName(N)) - InStrRev(ExpRptFileName(N), Application.PathSeparator, , 1)) If bIsBookOpen(ExpRptFileNameInLoop) = False Then Set mybook = Nothing On Error Resume Next Set mybook = Workbooks.Open(ExpRptFileName(N)) On Error GoTo 0 If Not mybook Is Nothing Then Workbooks.Open ExpRptFileName(N) Dim ExpRptID As String ExpRptID = Sheets("Expense Report").Range("R3").Value Exit Sub Function bIsBookOpen(ByRef szBookName As String) As Boolean ' ************** Notes here On Error Resume Next bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing) End Function