Question

VBA 数组经Array赋值后 代入函数出错

Function Five(Arr() As String)

。。。。。。
End Function
Sub Test1()
'Dim A(0 To 4) As String '用这个行
'A(0) = "A"
'A(1) = "T"
'A(2) = "C"
'A(3) = "G"
'A(4) = "A"
Dim A() ‘用这个就不行
A = Array("A", "T", "C", "G", "C")
Five A() ‘Five是定义了的函数
End Sub
求详细解释 难道是Array返回 变体型（Variant）有关
我不想一个一个赋值 如用下面这个该怎么改 改后Five 后用A 还是A（）

Answer 1

我也遇到过这个问题。原因是array只能复制给变体型变量，不能赋值给数组，所以，
dim A（）之后，在A=Array 必然报错。
dim A 之后，在 A = Array 就可以，但是，你后面又要调用function ，你的function又要求数组做参数，支持A（）不支持A。

所以，我的解决办法是，转化，
dim A
A=Array（……）
dim B() as string, ele, i
for each ele in A
i=i+1
redim preserve B(1 to i)
B(i)=ele
next ele
Five B

Answer 2

用Five A
带括号时必须带数组序号，才能对应数组内容。

追问

是不是函数定义应该为Five(A As Variant)
如果用第一种Five A() 没错

追答

你Five函数代码发上来看看

追问

太多了 不够

3000子左右 这装不下 用什么联系你

追答

定义数组用dim a()是对的，我觉得问题在你的Five函数调用中，不如你用 Five A（0）试试。

追问

我吧用 Five (A() as Variant)

Dim A() As Variant
Five A(0)
还是不行
引用时A()是指针常量吗
如找到问题
发我百度号私信吧
分给你吧
谢谢