函数返回字符串数组

本文介绍了函数返回字符串数组的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我想要一个函数来返回一个字符串数组。我正在使用VBA 6.3。

I'd like a function to return me an array of Strings. I'm using VBA 6.3.

为了简单起见：


Public Function TestArray() As String()

Dim strArr(1) As String
strArr(1) = "Blah"
TestArray = strArr

End Function

推荐答案

pi4630写道：

...

尝试：


Public Function TestArray() As Variant

Dim strArr(2) As String
strArr(1) = "Blah"
strArr(2) = "test"
TestArray = strArr

End Function

Public Sub testIt()
    Dim lngdummy As Long

    Dim strTest() As String
    strTest = TestArray()

    For lngdummy = LBound(strTest()) To UBound(strTest())
        Debug.Print strTest(lngdummy)
    Next
End Sub

HTH

Gunter

HTH
Gunter

这篇关于函数返回字符串数组的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！