VBA多维数组 - 数组文字语法

Question

我想创建一个多维数组，我一次分配所有值，而不是逐个遍历所有数组坐标值。我相信这被称为设置'数组文字'。无论如何，我的所有变量都是字符串值。下面的代码没有给我一个语法错误，但当我单步执行时，我在pkg = line上收到“编译错误：无法分配给数组”消息。我该如何工作？

Sub test_array2()

Dim pkg(2, 2) As String

pkg = [{"PRetail","Retail Packaged"};{"PFoodservice","Foodservice 
Packaged"}]

Debug.Print pkg(1, 1)

End Sub

Answer 1

您不能直接分配给这样的数组，因此您需要使用变量：

Sub test_array2()

    Dim pkg As Variant

    pkg = [{"PRetail","Retail Packaged";"PFoodservice","FoodservicePackaged "}]

    Debug.Print pkg(1, 1)

End Sub