尝试将数字更改为日期时出现溢出错误

Question

我正在尝试转换数字 -> 指定的日期格式。这仅在一列（D 列）上进行。这是代码-

'Changing date format (for UPLOADDATE column)
Application.ScreenUpdating = False
For Each c In Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).row)
    c.Value = DateSerial(Left(c.Value, 4), Mid(c.Value, 5, 2), Right(c.Value, 2))
    c.NumberFormat = "mm/dd/yyyy"
Next
Application.ScreenUpdating = False

现在，每当我的代码到达这一点时 - 它就会中断并显示以下错误：-

运行时错误“6”： 溢出

总的来说，我的代码所做的是将数据从另一个 excel 文件复制到 excel 的隐藏工作表（代码所在的位置）。使用日期格式（如上述代码中指定）更新列，然后更新文件中的所有数据透视表。

注意 - 在更改列的格式之前，我确实将隐藏工作表的可见性设置为 true

Answer 1

您收到该错误是因为单元格具有负值或格式化为日期的非常大的值。你可能想看看########的解释

看这个例子

测试代码

Sub Sample()
    Dim c As Range

    Set c = Range("B3")

    Debug.Print DateSerial(Left(c.Value, 4), Mid(c.Value, 5, 2), Right(c.Value, 2))
End Sub

单步执行代码并检查单元格 C 的地址是什么，然后手动检查该单元格包含的内容。

找到有问题的单元格地址的一种方法是使用错误处理。看这个例子

Sub Sample()
    Dim c As Range

    Set c = Range("B3")

    On Error GoTo Whoa

    Debug.Print DateSerial(Left(c.Value, 4), Mid(c.Value, 5, 2), Right(c.Value, 2))

    Exit Sub
Whoa:
    MsgBox "The Error Happened in " & c.Address
End Sub

Answer 2

您说您的代码首先将数字复制到ThisWorkbook，然后尝试将它们转换为Date 对象？是否有可能当您要求 Excel 将数字复制到 ThisWorkbook 时，Excel 会自动检测其复制日期格式为数字并立即将数字转换为 Date 对象？

您没有提供要复制的数字格式示例，尽管我认为我可以从传递给的值中推断出一个：

DateSerial(Left(c.Value, 4), Mid(c.Value, 5, 2), Right(c.Value, 2))

诸如“yyyymmdd”或“yyyy/mm/dd”之类的东西？

如果您尝试手动粘贴（使用 CTRL+C 和 CTRL+V）格式的数字到 Excel 中，您会注意到 Excel 自动将这些值转换为 Date 对象。

您可以通过在执行过程中的不同点留下代码工作的副本来测试这一点。