VBS基础篇 – vbscript动态数组（动态数组 vba）奔走相告

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

本文介绍了如何在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