Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Arrays 多维数组作为函数参数_Arrays_Vba_Ms Access - Fatal编程技术网

Arrays 多维数组作为函数参数

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

我试图找到一种方法,将多维数组传递给VBA中的
函数。我试过谷歌,但在路上找不到任何帮助

这就是我所尝试的:

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