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