Question

VBA 数组参数的传递和返回

函数定义：Function SearchAllFile() As String()
Dim arr(1 To 100) As String
‘一些处理
SearchAllFile = arr '返回数组
End Function

函数调用：
Private Sub btnRun_Click()
Dim ClArray(1 To 100) As String
ClArray = ModCheck.SearchAllFile ’报错“类型不一致”，请问为什么？
End Sub

Answer 1

Private Sub btnRun_Click()
Dim ClArray() As String
ClArray = ModCheck.SearchAllFile
End Sub
ClArray不需要定义数组维数即可

Answer 2

ClArray = ModCheck.SearchAllFile
ClArray 只能是动态数组或variant:变量。

dim ClArray() as string
或
dim ClArray

Answer 3

将Dim ClArray(1 To 100) As String
改为：Dim ClArray() As String
想要将一个数组赋值给另一个数组，确定在左侧的是大小可以调节的数组，且类型匹配。

Answer 4

函数定义：Function SearchAllFile() As String()
Dim arr(1 To 100) As String
‘一些处理
SearchAllFile = arr '返回数组
End Function

函数调用：
Private Sub btnRun_Click()
Dim ClArray() As String
ClArray = ModCheck.SearchAllFile
End Sub