问题遇到的现象和发生背景 :
2016版本EXCEL运行到以下这两句时候,就会提示下标越界,怎么调试?
Workbooks("2022年一季度集团测试指标模板-集团测试分析需求5G(宏).xlsm").Activate
Workbooks(WBCurrent).Close
一开始我用的是WINDOWS,可以在2019版本正常运行。
问题相关代码,请勿粘贴截图
Sub 新测网格数据导入汇总()
'地市的发出的表格Sheet名称需要统一命名,严禁更改
'历史数据的Sheet需要自动更新,不设变化
Dim WBName As String '设定汇总宏工作簿名称
Dim WBCurrent As String '设定地市的工作簿名称
Dim i As Integer
Dim FileToOpen As Variant '选定的文件列表
'显示选择文件对话框,使用Ctrl或Shief键选取多个工作簿
FileToOpen = Application _
.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", , "请选择要合并的工作簿", , True)
'如果没有选择文件则退出
If IsArray(FileToOpen) = 0 Then
MsgBox "没有选择文件"
Exit Sub
End If
'不显示合并的过程(暂时不用,作为调试)
Application.ScreenUpdating = False
WBName = ActiveWorkbook.Name
'逐个合并工作簿
For i = 1 To UBound(FileToOpen)
'打开一个工作簿
Workbooks.Open FileName:=FileToOpen(i)
WBCurrent = ActiveWorkbook.Name
'循环复制地市的网格测试数据
Sheets("网格明细汇总-5G").Select
Application.CutCopyMode = False
'选择单元格
Dim k, j
k = Sheets("网格明细汇总-5G").Range("A965535").End(xlUp).Row
Range("A5:BI" & k).Select
Selection.Copy
Workbooks("2022年一季度集团测试指标模板-集团测试分析需求5G(宏).xlsm").Activate
Sheets("1网格明细-5G").Select
j = Sheets("1网格明细-5G").Range("A965535").End(xlUp).Row
Range("A" & j + 1).Select
ActiveSheet.Paste
''合并后关闭该工作簿
Workbooks(WBCurrent).Close
Next i
Application.ScreenUpdating = True
Range("A1").Select
End Sub
运行结果及报错内容
下标越界或者类型不匹配
我的解答思路和尝试过的方法
我的猜测是2016版本的活动工作簿和其他版本的不一样?
我想要达到的结果
在2016版本正常运行该宏