excel - Vbscript 中的 Redim 语句出错

Question

对于以下代码，我收到以下错误：Expected ')'

**CODE**

  Set dicParentChild = CreateObject("Scripting.Dictionary")
    For i = 1 To height
        width = objExcel1.Application.WorksheetFunction.CountA(ob2.Columns(i))
      If width > 2 Then 
        ReDim values(1 To (width - 2))
        Key = ob2.Cells(i, 1).Value
        For j = 3 To width
            values(j - 2) = ob2.Cells(i, j).Value
        Next j
        dicParentChild.Add Key, values
      End If
    Next i

任何人都可以在这里帮助我吗？

谢谢

Answer 1

VBScript 的数组是从零开始的。要指定数组的大小，您必须使用(Re)Dim a(LastIndexToUse). (Re)Dim a(3)将创建一个包含 4 个插槽（索引：0、1、2、3）的数组。

VBA 允许指定第一个和最后一个索引（使用From To To语法）。

因此，您必须考虑需要多少项，减去 1 以获得 的最后一个索引参数(Re)Dim，并且在根据单元格/行/列数计算数组索引时要非常小心。