我想创建一个多维数组,我一次分配所有值,而不是逐个遍历所有数组坐标值。我相信这被称为设置'数组文字'。无论如何,我的所有变量都是字符串值。下面的代码没有给我一个语法错误,但当我单步执行时,我在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
答案 0 :(得分:3)
您不能直接分配给这样的数组,因此您需要使用变体:
Sub test_array2()
Dim pkg As Variant
pkg = [{"PRetail","Retail Packaged";"PFoodservice","FoodservicePackaged "}]
Debug.Print pkg(1, 1)
End Sub