求助下标越界问题，谢谢!

爽少爷

maxRow = Split(Split(Responsestr, "maxRow"":")(1), ",")(0)
maxCol = Split(Split(Responsestr, "maxCol"":")(1), ",")(0)
Responsestr = """0"":" & Split(Split(Responsestr, "],{""0"":")(1), "},{")(0)
Thetable = Split(Responsestr, "},")


For i = 0 To UBound(Thetable)


If InStr(Thetable(i), """2"":[") Then

data_dic(Val(Replace(Split(Thetable(i), ":")(0), """", ""))) = Replace(Split(Split(Split(Thetable(i), """2"":[")(1), "],")(0), ",")(1), """", "")

End If
Next
For i = 1 To maxRow

For j = 1 To maxCol

If data_dic.exists((i - 1) * maxCol + j - 1) Then

Cells(i, j).Value = data_dic((i - 1) * maxCol + j - 1)
End If
Next
Next

运行提示下标越界

taller

Split(Responsestr, "maxRow"":")(1) - 如果Responsestr中并不包含maxRow":，那么这个代码就会出错
其他的Split都存在类似问题

爽少爷

弄了一下，还是不对，不得要领。我是小白，工作需要，能在详细说一下怎么改吗，万分感谢！

MOY838840554

点调试，看那句代码报错

爽少爷

MOY838840554 发表于 2023-2-15 11:24
点调试，看那句代码报错

从第一句开始

wxxydl

附件 发出来帮你看