excel - excel vba中的“下标超出范围”错误

Question

以下代码给出了错误“下标超出范围”：

Sub Workbooks2(str)
     Workbooks.Open (ThisWorkbook.path & "\" & str)
     Workbooks(ThisWorkbook.path & "\" & str).Close ' <<<<< subscript out of range error
End Sub

Answer 1

以下工作（在关闭命令中删除了文件的路径）：

Sub Workbooks2(str)
     Workbooks.Open (ThisWorkbook.path & "\" & str)
     Workbooks(str).Close 
End Sub