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

时间:2017-12-21 21:30:23

标签: vba multidimensional-array

我想创建一个多维数组,我一次分配所有值,而不是逐个遍历所有数组坐标值。我相信这被称为设置'数组文字'。无论如何,我的所有变量都是字符串值。下面的代码没有给我一个语法错误,但当我单步执行时,我在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

1 个答案:

答案 0 :(得分:3)

您不能直接分配给这样的数组,因此您需要使用变体:

Sub test_array2()

    Dim pkg As Variant

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

    Debug.Print pkg(1, 1)

End Sub