Excel VBA赋值日期至表格列时触发Run-time error '1004'错误求助

可能的原因 #

• 自定义类型中的Date字段未正确初始化或包含无效日期值（比如从外部数据源读取时产生的非法日期）
• Excel表格对应列的格式设置或数据验证规则限制了日期输入
• 直接通过ListRow.Range赋值Date类型时，VBA与Excel的日期解析逻辑出现冲突

解决方案 #

1. 强制转换日期格式

在赋值时用CDate()显式转换，确保Excel能正确识别日期类型：

For i = 1 To UBound(JobStatusDetailArr)
    Dim newLabRow As ListRow
    Set newLabRow = tbl.ListRows.Add
    With newLabRow
        ' ... 其他列赋值代码 ...
        .Range(11) = CDate(JobStatusDetailArr(i).PromisedShipDate)
        .Range(12) = CDate(JobStatusDetailArr(i).LastOpDate)
        .Range(13) = CDate(JobStatusDetailArr(i).ShipDate)
    End With
Next i

2. 处理空/无效日期

如果数组中的日期可能为空（或默认的1899-12-30零值），先做判断再赋值：

For i = 1 To UBound(JobStatusDetailArr)
    Dim newLabRow As ListRow
    Set newLabRow = tbl.ListRows.Add
    With newLabRow
        ' ... 其他列赋值代码 ...
        ' 检查日期是否有效（非零值）
        If JobStatusDetailArr(i).PromisedShipDate <> 0 Then
            .Range(11) = JobStatusDetailArr(i).PromisedShipDate
        Else
            .Range(11) = vbNullString ' 留空或按需处理
        End If
        
        If JobStatusDetailArr(i).LastOpDate <> 0 Then
            .Range(12) = JobStatusDetailArr(i).LastOpDate
        Else
            .Range(12) = vbNullString
        End If
        
        If JobStatusDetailArr(i).ShipDate <> 0 Then
            .Range(13) = JobStatusDetailArr(i).ShipDate
        Else
            .Range(13) = vbNullString
        End If
    End With
Next i

3. 改用ListColumn直接赋值

绕过ListRow.Range，直接通过表格的列对象赋值，稳定性更高：

' 先添加足够行数
For i = 1 To UBound(JobStatusDetailArr)
    tbl.ListRows.Add
Next i

' 按列批量赋值
With tbl
    .ListColumns(11).DataBodyRange.Value = Application.Index(JobStatusDetailArr, , 11)
    .ListColumns(12).DataBodyRange.Value = Application.Index(JobStatusDetailArr, , 12)
    .ListColumns(13).DataBodyRange.Value = Application.Index(JobStatusDetailArr, , 13)
    ' ... 其他列同理 ...
End With

4. 检查Excel表格设置

• 确认第11-13列的单元格格式为日期类型（右键单元格→设置单元格格式→日期）
• 检查列是否设置了数据验证规则（数据→数据验证），确保没有限制日期范围或禁止空值等规则

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