Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/06/2005, 07:12
Avatar de giotari
giotari
Usuario no validado
 
Fecha de Ingreso: mayo-2003
Ubicación: Chile
Mensajes: 295
Antigüedad: 21 años
Puntos: 0
Problema Con La Copia De Grilla A Excel

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....