codice:
Dim objXL As Excel.Application
Dim objWB   As Excel.Workbook
Dim objWS As Excel.Worksheet
Set objXL = New Excel.Application
Set objWB = objXL.Workbooks.Add
Set objWS = objWB.Worksheets(1)
'Mette la cella in formato Data
objWS.Columns(posizione).NumberFormat = "dd/mm/yyyy"