230问答网 > VBA 数组参数的传递和返回

VBA 数组参数的传递和返回

2025-02-17 20:13:52

推荐回答（4个）

回答1：

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

回答2：

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

dim ClArray() as string
或
dim ClArray

回答3：

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

回答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