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

我试图在Access VBA中格式化date值，以显示Excel文件（为此正在编写一个Access VBA代码）的当前date。 但是，使用Date（）没有帮助（我猜它只能在Access中）。 例如，使用单元格（2，3）= Date（）只显示一个数字“41039”，而不是date。 我也尝试格式，这也没有奏效。 我是Access VBA的新手，真的很感谢上述问题的答案。

Answer 1

大部分情况下，date应显示格式正确，除非以前的格式已被应用。

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