Exporting Data from Ms Access form to Excel sheet

[jj1]

I am trying to export date field from MS ACCESS form to Excel Sheet through following VBA code but it prints as a number such as 41795 instead of actual date on access form.

Dim objexcel As Excel.Application
Dim objworkbook As Excel.Workbook
Dim objxlsheet As Worksheet
Set objexcel = CreateObject("Excel.Application")
''Set objworkbook = objexcel.Workbooks.Open("C:\MSEXCEL_TEST" & "\" & "test.xlsx")
Set objworkbook = objexcel.Workbooks.Open(CurrentProject.Path & "\" & "HERCA_TWTTP_FORM.xlsx")
Set objxlsheet = objworkbook.ActiveSheet







objxlsheet.Cells(11, 4) = Me.dateIdentified
objxlsheet.Cells(4, 1) = Me.txtProblem
objxlsheet.Cells(4, 10) = Me.txtOperation
objxlsheet.Cells(11, 13) = Me.txtOperatorName
objxlsheet.Cells(11, 30) = Me.txtInterviewerName


objxlsheet.Cells(13, 13) = Me.dateCompleted
objxlsheet.Cells(12, 13) = Me.txtTeam
objexcel.Visible = True
Set objexcel = Nothing
End Sub


HOW CAN I CHANGE IT TO ACTUAL DATE.

[ranman256]

Dates are just numbers, so format it the way you want...format(Me.dateCompleted,"mm/dd/yyyy")

[jj1]

Awesom that helped ......