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

Question

我正在尝试格式化Access VBA中的日期值以在excel文件上显示当前日期（我正在为其编写Access VBA代码）。但是，使用Date（）没有帮助（我猜它只适用于Access）。例如，使用单元格（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"