de Msflexgrig a Exel

[yeyoks]

genero con Visual Basic 6 profesional una MSflexgrid y quiero imprimir en un archivo excel el contenido de la grilla. Gracias

[JavierB]

Hola yeyoks. Bienvenido al foro.

Para hacer preguntas es preferible utilizar el foro que mejor se adapte a tu duda, así podrán ayudarte más usuarios.

Muevo tu mensaje al foro de Visual Basic desde Bienvenida a Foros del Web.

Saludos,

[Avellaneda]

Mira este procedimiento:

Código:

Private Sub GridAExcel(Grid As MSFlexGrid)
Dim oExcel As Excel.Application
Dim i As Integer, j As Integer
    
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
Screen.MousePointer = vbHourglass
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
Screen.MousePointer = vbDefault
oExcel.Visible = True
End Sub

Para llamarlo le pasas como parámetro el nombre del FlexGrid:

Código:

GridAExcel MSFlexGrid1

Nota: Para que esto funcione, tienes que añadir la referencia de la Librería de Objetos de Excel

[seba123neo]

Hola,aca tenes como hacerlo:

Exportar un Flexgrid a Excel

saludos.