菜鸟求大神们帮忙看看 怎么向GetOpenFilename返回值里添加打开的文件！！！

                            
[解决办法]
就是两个Array合并起来吗，定义一个保存结果的Array，然后分别把两个Array的成员复制过去就可以了。

以下代码来自： http://stackoverflow.com/questions/1588913/how-do-i-merge-two-arrays-in-vba

Function mergeArrays(ByVal arr1 As Variant, ByVal arr2 As Variant) As Variant
    Dim holdarr As Variant
    Dim ub1 As Long
    Dim ub2 As Long
    Dim bi As Long
    Dim i As Long
    Dim newind As Long

        ub1 = UBound(arr1) + 1
        ub2 = UBound(arr2) + 1

        bi = IIf(ub1 >= ub2, ub1, ub2)

        ReDim holdarr(ub1 + ub2 - 1)

        For i = 0 To bi
            If i < ub1 Then
                holdarr(newind) = arr1(i)
                newind = newind + 1
            End If

            If i < ub2 Then
                holdarr(newind) = arr2(i)
                newind = newind + 1
            End If
        Next i

        mergeArrays = holdarr
End Function