如何从函数读取数组值?
我有一个简单的函数来获取和保存数组中的值:
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