錯誤在VBScript

Question

REDIM語句下面的代碼我收到以下錯誤：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的最後一個索引參數，並且當你從你的單元/行/列數中計算數組索引時要非常小心。