VBA创建以ID为键、(Company,RDate)为值的集合/字典遇类型不匹配问题

问题根源分析 #

你代码里的核心错误有两个：

1. VBA的Collection对象没有.Keys属性，For Each myVar In myCol.Keys这行代码会直接触发运行错误。
2. 若未给ID、Company、RDate变量赋值，也可能引发类型不匹配或空值问题。

下面提供两种可行的实现方案：

方案一：使用Dictionary（推荐，更适配键值对场景） #

Scripting.Dictionary是VBA中专门用于键值对存储的对象，支持直接枚举键集合，操作更灵活。

Dim ID As String
Dim Company As String
Dim RDate As Date

' 示例赋值，实际替换为你的数据来源
ID = "EMP001"
Company = "Tech Corp"
RDate = #2024/05/20#

Dim myDict As Object
Set myDict = CreateObject("Scripting.Dictionary")

' 将Company和RDate打包为数组作为值，ID作为键
myDict.Add Key:=ID, Item:=Array(Company, RDate)

' 遍历字典并输出数据
Dim key As Variant
For Each key In myDict.Keys
    Debug.Print "ID: " & key
    Debug.Print "Company: " & myDict(key)(0)  ' 数组索引0对应Company
    Debug.Print "RDate: " & myDict(key)(1)    ' 数组索引1对应RDate
Next key

方案二：修正Collection的用法 #

Collection不支持直接枚举键，若坚持使用，需额外维护一个键列表，或通过索引遍历：

Dim ID As String
Dim Company As String
Dim RDate As Date

' 示例赋值
ID = "EMP002"
Company = "Retail Ltd"
RDate = #2024/05/21#

Dim myCol As Collection
Set myCol = New Collection

' 添加数据：值为(Company,RDate)数组，键为ID
myCol.Add Item:=Array(Company, RDate), Key:=ID

' 方式1：通过索引遍历Collection
Dim i As Integer
For i = 1 To myCol.Count
    Debug.Print "Company: " & myCol(i)(0)
    Debug.Print "RDate: " & myCol(i)(1)
Next i

' 方式2：维护键列表实现按ID遍历
Dim keyList As Collection
Set keyList = New Collection
keyList.Add ID  ' 每次添加数据时同步将ID加入键列表

Dim key As Variant
For Each key In keyList
    Debug.Print "ID: " & key
    Debug.Print "Company: " & myCol(key)(0)
    Debug.Print "RDate: " & myCol(key)(1)
Next key

额外注意事项 #

• Collection的键必须是唯一的非空字符串，若重复添加相同ID会触发错误。
• 数组存储String和Date类型是合法的，因为VBA数组默认是变体类型，不会引发类型不匹配；若仍报错，检查变量是否被正确赋值（比如RDate是否为有效的日期值）。

内容的提问来源于stack exchange，提问作者qwertyman9938