Problema Con La Copia De Grilla A Excel

[giotari]

TENGO UN PROBLEMA AL COPIA LA GRILLA A EXCEL... LAS FECHAS SE DESARMAN....

ESTE ES EL CODIGO-....

Sub EXCEL()


Dim ex As New EXCEL.Application


Gr_Detalle.FixedRows = 0: Gr_Detalle.FixedCols = 0
Gr_Detalle.HighLight = flexHighlightAlways
Gr_Detalle.Row = 0: Gr_Detalle.col = 0
Gr_Detalle.RowSel = Gr_Detalle.Rows - 1
Gr_Detalle.ColSel = Gr_Detalle.Cols - 1
Clipboard.Clear
Clipboard.SetText Gr_Detalle.Clip, 1
Gr_Detalle.FixedRows = 1
Gr_Detalle.FixedCols = 0
Gr_Detalle.Row = 0: Gr_Detalle.col = 0
Gr_Detalle.RowSel = Gr_Detalle.Rows - 1
Gr_Detalle.ColSel = Gr_Detalle.Cols - 1

With ex
.Visible = True
.DisplayAlerts = False
.SheetsInNewWorkbook = 1
.Workbooks.Add
.Sheets(1).Select
''DESDE AQUI PEGO LO QUE SE COPIO EN LA GRILLA
.ActiveCell.PasteSpecial xlPasteAll

'.Workbooks(1).SaveAs nomarc ' guarda el workbook
.Visible = True
End With
End Sub



muy agradecido de ustedes....

[GeoAvila]

en las FAQ's hay un ejemplo..

revisalo talvez te sirva..

nos vemos..

[giotari]

me sirve pero igual tiene problemas con las fechas.... por ejemplo la fecha 11/01/2005 la muestra en excel como 01/11/2005....

[GeoAvila]

dale un format antes de enviar la fecha,
dim var as string
if flexgrid.col = 1 then
var = format$("11/01/2005","Short Date")
end if