VBA动态数组

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

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

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

'获取主工作簿所在路径和名称
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

最后

以上就是默默黑裤为你收集整理的VBA动态数组的全部内容，希望文章能够帮你解决VBA动态数组所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。