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