Arrays 多维数组作为函数参数
我试图找到一种方法,将多维数组传递给VBA中的Arrays 多维数组作为函数参数,arrays,vba,ms-access,Arrays,Vba,Ms Access,我试图找到一种方法,将多维数组传递给VBA中的函数。我试过谷歌,但在路上找不到任何帮助 这就是我所尝试的: Public Function getData(Query()() As String) As Integer 但这只会导致来自环境的直接错误,即它需要一个分隔符或“')。您不能 Query()()作为字符串在VBA中不是有效的表达式 这是如何在VBA中创建二维数组以及如何编写接受该数组的函数 Sub Main() Dim arr(0 To 1, 0 To 1) As Str
函数。我试过谷歌,但在路上找不到任何帮助
这就是我所尝试的:
Public Function getData(Query()() As String) As Integer
但这只会导致来自环境的直接错误,即它需要一个分隔符或“')。您不能
Query()()作为字符串
在VBA中不是有效的表达式
这是如何在VBA中创建二维数组以及如何编写接受该数组的函数
Sub Main()
Dim arr(0 To 1, 0 To 1) As String
arr(0, 0) = "element 0,0"
arr(1, 0) = "element 1,0"
arr(0, 1) = "element 0,1"
arr(1, 1) = "element 1,1"
Call GetData(arr)
End Sub
Function GetData(myArray() As String) As Integer
End Function
还有一个3D+版本
Sub Main()
Dim arr(0 To 1, 0 To 1, 0 To 1) As String
arr(0, 0, 0) = "element 0,0,0"
arr(1, 0, 0) = "element 1,0,0"
arr(0, 1, 0) = "element 0,1,0"
arr(0, 1, 1) = "element 0,1,1"
arr(0, 0, 1) = "element 0,0,1"
arr(1, 0, 0) = "element 1,0,0"
arr(1, 1, 0) = "element 1,1,0"
arr(1, 0, 1) = "element 1,0,1"
arr(1, 1, 1) = "element 1,1,1"
Call GetData(arr)
End Sub
Function GetData(myArray() As String) As Integer
End Function
:)演示如何声明您的Query()()
数组我的问题是如何将多维数组传递给VBA中的函数。所以我需要知道如何去做。谢谢你试图帮助@mehow