excel - 如何正确使用 VBA 类模块集合？

Question

我想创建机场集合。

机场有很多参数，但为了简单起见，我们假设机场类在机场类模块中定义如下:

'Class Airport
 Public name As String ' Stores name of the airport
 Public flights As Long ' Stores number of flights in that airport

然后我的模块相当大，但这是我从 Excel 文件读取列并将值存储在 airports 集合中的部分，删除重复的值:

Dim airports As Collection
Set airports = New Collection

'Putting airports in collection
                Dim c As Range
                For Each c In wsToCheck.Range("D:D")
                On Error Resume Next
                Dim airport As New Airport
                airport.name = c.Value
                airports.Add airport, c.Value
                On Error GoTo 0
                Next

如果我在中间做

Debug.Print airport.name

我知道了名字，但是当我知道时

Debug.Print airports(1).name

没有打印任何内容(但也没有错误)。

我之前使用过字符串集合并且它可以工作。但我现在每个机场都需要多个字符串。

我的代码有什么问题？我使用集合对吗？

Answer 1

您的代码有两个问题。

第一个可能是创建一个包含数百万个项目的 Collection，因为您要迭代的范围是 D 列的全部 (D:D)。这个需要绑定(bind)。

第二个问题是您的变量名称 airport 与您的类 Airport 的名称完全相同。这很容易混淆 VBA，因此您需要为其中之一选择不同的名称。

这是一个有效的示例:

Option Explicit

Sub test()
    Dim wsToCheck As Worksheet
    Set wsToCheck = ThisWorkbook.Sheets("Sheet1")

    Dim airportNames As Range
    Set airportNames = wsToCheck.Range("D1:D10")

    Dim airports As Collection
    Set airports = New Collection

    'Putting airports in collection
    Dim i As Long
    Dim c As Range
    For Each c In airportNames
        Dim thisAirport As Airport
        'Debug.Print c.Address & "=" & c.Value
        Set thisAirport = New Airport
        thisAirport.name = c.Value
        thisAirport.flights = i
        i = i + 1
        airports.Add thisAirport
    Next

    'now print them out
    For i = 1 To airports.Count
        Debug.Print airports(i).name & ", " & airports(i).flights
    Next i

End Sub