VBA动态数组

VBA没有像VC那样专门封装好的动态数组，如果想使用动态数组，可以用如下两步方法实现：

1、首先定义一个没有指定大小的数组，不需要给数组标明上界和下界，直接定义即可例如本人在模块定义了一个全局变量字符串数组：

Public strMainWorkbookPath As String  '主工作簿路径
Public arrSourceWorkbookName() As String  '源工作簿名

2、在使用数组的时候，使用Redim(大小)或ReDim Preserve(大小)，即将原先定义的数组变成了动态数组，明确了下界和上界。注意，Redim(大小)为重新定义数组大小，但是不保留原来数组中的元素值，原数组中的元素会被清空；如果需要重新定义数组的大小且要保留原数组的元素值，那么请使用ReDim Preserve(大小)。关键字：Preserve的作用就的保留原有值。

'获取主工作簿所在路径和名称
Sub GetPathAndName()
    strMainWorkbookPath = ThisWorkbook.Path
    strMainWorkbookPath = strMainWorkbookPath & "\"
    strMainWorkbookName = ThisWorkbook.Name
End Sub

'获取源工作簿名
Sub GetSourceWorkbookName(strPath As String)
    Dim strName As String
    Dim iCount As Integer
    iCount = 0
    strName = Dir(strPath & "*.xls*")
    While Len(strName) > 0
        If strName <> strMainWorkbookName Then
            ReDim Preserve arrSourceWorkbookName(iCount)
            arrSourceWorkbookName(iCount) = strName
            strName = Dir()
            iCount = iCount + 1
        Else
            Exit Sub
        End If
    Wend
End Sub

猜你喜欢