VBA动态数组

最新推荐文章于 2024-08-06 17:25:32 发布

Gordennizaicunzai

最新推荐文章于 2024-08-06 17:25:32 发布

阅读量1.2w

点赞数

分类专栏： VBA 文章标签： VBA动态数组 ReDim Preserve

本文链接：https://blog.csdn.net/Gordennizaicunzai/article/details/79440011

版权

这篇博客介绍了VBA中如何实现动态数组的方法。通过两步操作，首先定义一个未指定大小的数组，然后在需要时使用ReDim Preserve语句进行调整，以实现动态扩容。这种技术对于处理不确定大小的数据集合十分有用。

摘要由CSDN通过智能技术生成

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*