VB多维数组抛出越界异常

Question

我目前正在开发一小块 vba 软件，该软件可以执行一些 excel 工作表操作。我目前运行在下面代码中循环的第一次迭代期间进入 indexOutOfRangeException。我在调试中运行可以看到该数组在请求的索引处有一个值，但我一直收到此异常。

 Private Sub AddReportQuestions(ByRef ReportName As String, ByRef i As Integer, 
                               ByRef domainStart As Integer, ByRef domainEnd As Integer, 
                               ByRef xlReportWorkSheet As Excel.Worksheet,
                               ByRef xlQuestionWorkSheet As Excel.Worksheet)
    Dim row As Integer
    row = 0

    Dim maxPrintableRow = ((domainEnd - domainStart) * 4) + 7
    Dim maxQuestions = (domainEnd - domainStart) + 1

    Dim reportRange = xlReportWorkSheet.Range(xlReportWorkSheet.Cells(7, (i * 10) + 1), xlReportWorkSheet.Cells(maxPrintableRow, (i * 10) + 10))
    Dim questionRange = xlQuestionWorkSheet.Range("C" & domainStart & ":I" & domainEnd)

    Dim questionArray(maxQuestions, 7) As Object
    Dim reportArray(maxPrintableRow + 1, 10) As Object

    questionArray = questionRange.Value

    For j = 0 To maxQuestions
        ' Question
        reportArray(row, 0) = questionArray(j, 0)

        ' Resize Row Height
        xlReportWorkSheet.Rows(row + 7).RowHeight = 45

        row += 1

        ' Response and Comment
        reportArray(row, 0) = questionArray(j, 1)
        reportArray(row, 2) = questionArray(j, 4)

        ' Resize Row Height
        xlReportWorkSheet.Rows(row + 7).RowHeight = 45

        row += 1

        ' Likelihood and Consequence
        reportArray(row, 0) = "Likelihood:"
        reportArray(row, 2) = questionArray(j, 2)
        reportArray(row, 4) = "Consequence:"
        reportArray(row, 6) = questionArray(j, 3)

        row += 1

        ' Divider line
        reportArray(row, 0) = "________________________________________________________________________________________________________________________"

        row += 1
    Next

    reportRange.Value = reportArray
End Sub

questionArray 是这段代码中的违规者。

Answer 1

您将 questionArray 和 reportArray 声明为对象，但您将它们视为变量。将您的声明语句更改为

Dim questionArray as variant
Dim reportArray(maxPrintableRow + 1, 10) As String

VB多维数组抛出越界异常

VB multi-dimensional array throwing out of bounds exception

excel

multidimensional-array

indexoutofrangeexception