Question

我正在尝试将数据从html表写入二维数组，“htmlArr”，我在VBA中创建。我可以使用2 for循环来填充第一行数据（包含所有正确的列条目）但是在此之后代码会中断，并且不会移动到下一个j以在第二行中写入数据。 / p>

以下是我填充数组的VBA代码的一部分：

eleColtr.Length = 11＆amp; numberofColumns.length = 23

ReDim htmlArr(0 To (eleColtr.Length - 1), 0 To (numberofColumns.Length - 1)) 'set array dimensions 11 rows by 23 columns
    For j = LBound(htmlArr, 1) To UBound(htmlArr, 1)  'loop through rows dim 0 - 10 (html table indexes)
            Set ObjTr = oHTML.getElementsByTagName("tr")(j)
            For k = LBound(htmlArr, 2) To UBound(htmlArr, 2) 'loop over cols 0 - 22 (html table indexes)

            htmlArr(j, k) = ObjTr.getElementsByTagName("td")(k).innerText

            Next k
    Next j

任何人都可以看到我出错的地方以及我如何解决这个问题？

我试图添加一个计数器，但我不知道它会去哪里

感谢您的帮助

Answer 1

我使用的数组维度的长度与导致数组不填充的表格相匹配

使用VBA

1 个答案: