在VBA中将Access字段内容拆分为独立变量

方案1：自定义VBA拆分函数 #

编写VBA函数将逗号分隔的日期字符串拆分为数组，再遍历数组转换为可用的日期变量：

Function SplitDates(strDates As String) As Variant
    ' 移除空格后按逗号拆分字符串
    SplitDates = Split(Replace(strDates, " ", ""), ",")
End Function

在业务代码中调用该函数，处理每个日期：

Sub ProcessDates()
    Dim rs As Recordset
    Dim dateArray As Variant
    Dim i As Integer
    Dim currDate As Date
    
    Set rs = CurrentDb.OpenRecordset("SELECT YourDateField FROM YourTable")
    
    Do While Not rs.EOF
        dateArray = SplitDates(rs!YourDateField)
        For i = LBound(dateArray) To UBound(dateArray)
            ' 转换为日期类型，可根据实际格式调整转换逻辑
            On Error Resume Next
            currDate = CDate(dateArray(i))
            On Error GoTo 0
            
            ' 此处使用currDate变量做后续处理，如写入临时表、计算等
            Debug.Print currDate
        Next i
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
End Sub

注意：若存在日期格式不一致的情况，需添加错误捕获逻辑避免程序崩溃。

方案2：用查询拆分生成行级数据 #

如果需要将每个日期拆分为独立记录（便于后续查询或统计），可结合数字表实现：

1. 先创建一个Numbers表，包含字段Num，存入1到40的整数（匹配最多40个日期的上限）。
2. 执行以下SQL查询，将多日期字段拆分为单行记录：

SELECT 
    YourTable.ID,
    CDate(Split(Replace(YourTable.YourDateField, " ", ""), ",")[Numbers.Num - 1]) AS SplitDate
FROM 
    YourTable, Numbers
WHERE 
    Numbers.Num <= UBound(Split(Replace(YourTable.YourDateField, " ", ""), ",")) + 1

拆分后的每个日期会作为独立行存在，可直接用于后续的查询、报表或数据存储。

方案3：用集合存储所有拆分后的日期 #

若需将所有日期统一存储为可调用的变量集合，可使用VBA集合实现：

Sub StoreDatesInCollection()
    Dim rs As Recordset
    Dim dateColl As New Collection
    Dim dateItems As Variant
    Dim currDate As Date
    
    Set rs = CurrentDb.OpenRecordset("SELECT YourDateField FROM YourTable")
    
    Do While Not rs.EOF
        dateItems = Split(Replace(rs!YourDateField, " ", ""), ",")
        For Each item In dateItems
            currDate = CDate(item)
            dateColl.Add currDate
        Next item
        rs.MoveNext
    Loop
    
    ' 遍历集合使用存储的日期变量
    For Each d In dateColl
        ' 此处添加业务逻辑
        Debug.Print d
    Next d
    
    rs.Close
    Set rs = Nothing
End Sub

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