Format date by Export Data from Access to Excel

[sandylou]

I have a column of data that is in date format and when I export it into Excel I loose the date format. I have tried using the following:

varFieldValue = rstDetail.Fields(i).Name
If varFieldValue = "PPE Date" Then
.Cells(1, i + 2).Value = Format(varFieldValue, "Short Date&quot
Else
.Cells(1, i + 2).Value = varFieldValue
End If

and it doesn't work. I know I am not the best coder, but I I thought if I knew the Value of the field I want to format I could just format it via the format method.

 

[kevinclark]

I have had this problem with Oracle Databases. You can try a couple things like:

using CDate
Cells(1, i + 2).Value = Format(CDate(varFieldValue), "Short Date&quot

or the following line after the line above
.Cells(1, i + 2).NumberFormat = "mm/dd/yyyy"


Hope it helps

 

[sandylou]

Thanks that helped...Now my problem is designating the correct active sheet. For some reason the range i have selected skips over into other sheets and gets confused on which sheet is active and puts borders on the wrong sheets!