Ver Mensaje Individual
  #2 (permalink)  
Antiguo 11/03/2008, 14:23
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 4 meses
Puntos: 37
Re: exportar un flexgrid hacia excel

Código:
Private Sub GridAExcel(grid As MSFlexGrid)
Dim oExcel As Excel.Application
Dim i As Integer, j As Integer
Screen.MousePointer = vbHourglass
 
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
With grid
    For i = 0 To .Rows - 1
        For j = 1 To .Cols - 1
            oExcel.Cells(i + 1, j) = .TextMatrix(i, j)
        Next j
    Next i
End With
oExcel.Visible = True
Screen.MousePointer = vbDefault
End Sub
Para llamar al procedimiento le pones como parámetro el nombre del Grid