0

以下のコードでは、次のエラーが発生します。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

誰でもここで私を助けてもらえますか?

ありがとう

4

1 に答える 1

3

VBScript の配列はゼロベースです。配列のサイズを指定するには、 を使用する必要があります(Re)Dim a(LastIndexToUse)。(Re)Dim a(3)4 つのスロット (インデックス: 0、1、2、3) を含む配列を作成します。

VBA では、 (構文を使用して)最初と最後のインデックスを指定できます。From To To

したがって、必要なアイテムの数を検討し、1 を引いて の最後のインデックス パラメータを取得し(Re)Dim、セル/行/列番号から配列インデックスを計算するときは非常に注意する必要があります。

于 2012-12-19T12:43:13.337 に答える