初学者求大神们帮忙看看 如何向GetOpenFilename返回值里添加打开的文件！
菜鸟求大神们帮忙看看 怎么向GetOpenFilename返回值里添加打开的文件！！！
我想把数组FileNames里的文件路径不变，把CurFileNames数组里的文件路径添加到FileNames数组里，求大神指点迷津！！！我该怎么做！！！
------解决方案--------------------
就是两个Array合并起来吗，定义一个保存结果的Array，然后分别把两个Array的成员复制过去就可以了。
以下代码来自： http://stackoverflow.com/questions/1588913/how-do-i-merge-two-arrays-in-vba
sub loadfile
Dim CurFileNames, FileNames
FileNames = Application.GetOpenFilename("CSV文件 (*.csv), *.csv", MultiSelect:=True)
CurFileNames = Application.GetOpenFilename("CSV文件 (*.csv), *.csv", MultiSelect:=True)
end sub
我想把数组FileNames里的文件路径不变，把CurFileNames数组里的文件路径添加到FileNames数组里，求大神指点迷津！！！我该怎么做！！！
------解决方案--------------------
就是两个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