Форматирование даты в Excel для отображения текущей даты с использованием Access VBA

Question

Я пытаюсь отформатировать значение даты в Access VBA, чтобы показать текущую дату в файле excel (для которого я пишу код доступа VBA). Однако использование Date() не помогло (я предполагаю, что он работает только в Access). Например, использование Cells (2, 3) = Date() просто показывает номер «41039», а не дату. Я тоже пробовал формат, и это тоже не сработало. Я новичок в доступе к 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"