如何从函数读取数组值?

我有一个简单的函数来获取和保存数组中的值:

Function GetDataOwner() Dim DataOwner(2) As String DataOwner(0) = Sheets(1).Range("H21").Value DataOwner(1) = Sheets(1).Range("I21").Value DataOwner(2) = Sheets(1).Range("J21").Value End Function 

在其他function中,我想读取值:

 Sub GenerateDB() Dim DataOwner() As String DataOwner = GetDataOwner() MsgBox DataOwner(1) End Sub 

但Excel表示错误13types不匹配。 我是VBAfunction的新手

Soluce:

 Function GetDataOwner() Dim DataOwner(2) As String DataOwner(0) = Sheets(1).Range("H21").Value DataOwner(1) = Sheets(1).Range("I21").Value DataOwner(2) = Sheets(1).Range("J21").Value GetDataOwner = DataOwner End Function Sub GenerateDB() Dim DataOwner() As String DataOwner = GetDataOwner() MsgBox DataOwner(1) End Sub 

感谢@Comintern