【发布时间】:2019-06-17 20:10:00
【问题描述】:
以下代码给出错误“下标超出范围”:
Sub Workbooks2(str)
Workbooks.Open (ThisWorkbook.path & "\" & str)
Workbooks(ThisWorkbook.path & "\" & str).Close ' <<<<< subscript out of range error
End Sub
【问题讨论】:
以下代码给出错误“下标超出范围”:
Sub Workbooks2(str)
Workbooks.Open (ThisWorkbook.path & "\" & str)
Workbooks(ThisWorkbook.path & "\" & str).Close ' <<<<< subscript out of range error
End Sub
【问题讨论】:
以下工作(在关闭命令中删除了文件的路径):
Sub Workbooks2(str)
Workbooks.Open (ThisWorkbook.path & "\" & str)
Workbooks(str).Close
End Sub
【讨论】: