文章摘要
本文介绍了如何在VBA中使用动态数组（Dynamic Array）的创建、管理及基本操作。文章首先展示了如何通过`CreateObject`创建一个动态数组，并添加了三个元素。接着，文章详细说明了如何查看动态数组中的元素数量和容量。此外，文章还演示了如何遍历动态数组、对数组进行排序、删除指定元素以及清空动态数组。通过这些操作的展示，读者可以清晰地了解动态数组在VBA中的实用性和功能。
‘建立动态数组
Dim Arrl : Set Arrl=CreateObject(“System.Collections.ArrayList”)
‘添加元素
Arrl.Add “Element3”
Arrl.Add “Element2”
Arrl.Add “Element1”
‘查看动态数组中的元素数
WScript.Echo “动态数组中现有元素数量: ” & Arrl.Count
WScript.Echo “动态数组容量: ” & Arrl.Capacity
WScript.Echo
‘遍历动态数组
Sub TraverseArrl
Dim Counter
For Counter=0 To Arrl.Count – 1
WScript.Echo Arrl(Counter)
Next
End Sub
TraverseArrl
WScript.Echo
‘动态数组排序
Arrl.Sort
TraverseArrl
WScript.Echo
‘删除指定元素
Arrl.Remove(“Element1”)
TraverseArrl
WScript.Echo
‘清空全部元素
Arrl.Clear
WScript.Echo “动态数组中现有元素数量: ” & Arrl.Count
WScript.Echo “动态数组容量: ” & Arrl.Capacity