VBA Excel 中的对象数组或集合

使用VBA Excel中的对象数组或集合可以方便地处理和操作大量数据。对象数组是一组具有相同数据类型的对象的集合，而集合是一组对象的容器。通过使用对象数组或集合，我们可以轻松地管理和操作多个相关对象，提高编程效率。

vba
' 定义学生类
Class Student
    Public Name As String
    Public Age As Integer
    Public Grade As String
End Class
Sub TestObjectArray()
    ' 创建学生对象数组
    Dim students(1 To 3) As Student
    
    ' 添加学生信息
    Set students(1) = New Student
    students(1).Name = "张三"
    students(1).Age = 18
    students(1).Grade = "一年级"
    
    Set students(2) = New Student
    students(2).Name = "李四"
    students(2).Age = 19
    students(2).Grade = "二年级"
    
    Set students(3) = New Student
    students(3).Name = "王五"
    students(3).Age = 20
    students(3).Grade = "三年级"
    
    ' 批处理操作
    Dim i As Integer
    For i = 1 To 3
        Debug.Print "学生姓名：" & students(i).Name
        Debug.Print "学生年龄：" & students(i).Age
        Debug.Print "学生年级：" & students(i).Grade
        Debug.Print "--------------------------"
    Next i
End Sub

vba
Sub TestCollection()
    ' 创建学生集合
    Dim students As New Collection
    
    ' 添加学生信息
    Dim student1 As New Student
    student1.Name = "张三"
    student1.Age = 18
    student1.Grade = "一年级"
    students.Add student1
    
    Dim student2 As New Student
    student2.Name = "李四"
    student2.Age = 19
    student2.Grade = "二年级"
    students.Add student2
    
    Dim student3 As New Student
    student3.Name = "王五"
    student3.Age = 20
    student3.Grade = "三年级"
    students.Add student3
    
    ' 遍历集合
    Dim student As Student
    For Each student In students
        Debug.Print "学生姓名：" & student.Name
        Debug.Print "学生年龄：" & student.Age
        Debug.Print "学生年级：" & student.Grade
        Debug.Print "--------------------------"
    Next student
End Sub