Question

我正在使用Excel 2010，我想知道为什么以下代码对我不起作用？我有compile error: syntax error。

Sub test()
Dim myStudents(,) As String = _       
   {{"Dick", "Jane", "Tom", "Sam"}, _
   {"Sue", "Bill", "Mary", ""}}    
End Sub

Example link和代码：

Sub xyz()
    Dim xyz()()() As Byte
End Sub

运行时也会生成compile error: syntax error。

Answer 1

这是VB.net语法。 VB.net与VBA不同，这是在Excel等中使用的。要在VBA中执行此操作，您可以执行以下操作：

Public Sub test()
  Dim myStudents() As Variant

  myStudents = Array( _
                 Array("Dick", "Jane", "Tom", "Sam"), _
                 Array("Sue", "Bill", "Mary") _
               )

  Debug.Print myStudents(0)(1) ' Jane
  Debug.Print myStudents(1)(2) ' Mary
End Sub

即，我们创建了一个数组数组。

VBA 7.0中的锯齿状数组 - 语法错误

1 个答案: