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

【问题标题】：Formatting the date in Excel to show current date using Access VBA使用 Access VBA 格式化 Excel 中的日期以显示当前日期
【发布时间】：2012-05-10 18:29:32
【问题描述】：

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

【问题讨论】：

标签： excel ms-access vba

【解决方案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"

【讨论】：

谢谢Remou。这很好用。我不记得将它包含在 activesheet.cells 语句中，而只是声明了单元格的函数（我的学习曲线最近不太好）。但是非常感谢:)祝你有美好的一天:)