excel - 使用 Access VBA 格式化 Excel 中的日期以显示当前日期

Question

我正在尝试格式化 Access VBA 中的日期值以在 excel 文件中显示当前日期（我正在为此编写 Access VBA 代码）。但是，使用 Date() 并没有帮助（我猜它只在 Access 中有效）。例如，使用 Cells(2, 3) = Date() 只显示数字“41039”，而不是日期。我也尝试过格式化，但也没有用。我是 Access VBA 的新手，非常感谢上述问题的任何答案。

Answer 1

在大多数情况下，日期应该以正确的格式显示，除非应用了以前的格式。

''Requires library reference 
Dim xl As Excel.Application

''Existing instance
Set xl = GetObject(, "Excel.application")

xl.Workbooks(1).ActiveSheet.Cells(2, 2) = Date
xl.Workbooks(1).ActiveSheet.Cells(2, 3) = 30
xl.Workbooks(1).ActiveSheet.Cells(2, 3).NumberFormat = "dd/mm/yyyy"