excel vba下标越界

Question

Excel VBA运行错误，下标越界，求问哪里有问题？

调试提示如下：

涉及文件夹和sheets如下图，哪里越界了呢？

Answer 1

打开的工作表中应该还存在其他不适 xxx日格式的工作簿名称，没有删完全，通过下标来获取sheets，如果值操作包含日的工作簿，用下面的

for k=1 to j
if instr(wb.Sheets(k).Name,"日")<>0 then'''''''''''
workbooks("2017数据").sheets(1).cells(x,1)=wb.Sheets(k).cells(32,11)
end if
x=x+1
next k