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

我正在尝试格式化Access VBA中的日期值，以便在excel文件上显示当前日期（我正在为此编写Access VBA代码）。但是，使用Date（）并没有帮助（我猜它只在Access中起作用）。例如，使用单元格（2，3）=Date（）只显示一个数字“41039”，而不是日期。我也试过格式化，但也没用。

---

我是一个访问VBA的新手，如果能回答上述问题，我将不胜感激。

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

''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"

---

谢谢你，雷莫。这很有效。我不记得将它包含在activesheet.cells语句中，而只是声明了单元格的函数（最近我的学习曲线不太好）。但是非常感谢：）祝你今天愉快：）