Exportar de un MSFlexGrid a Excel ¿se puede?
Hola a todos, espero que me puedan ayudar porque ando un poco perdido. Pues resulta que tengo unos datos en un MSFlexGrid y quiero exportarlo a excel. ¿Se puede? y si es así me pueden orientar para poder hacerlo, se los agradecería inmensamente. Saludos.
Mira con este ej puedes copiar el contenido de la grilla al portapapeles y despues pegar en excel
Sub CopiarGrilla(Grilla As MSHFlexGrid)
Texto = ""
For i = 0 To Grilla.Rows - 1
For j = 0 To Grilla.Cols - 1
Texto = Texto & Grilla.TextMatrix(i, j)
If j < Grilla.Cols - 1 Then Texto = Texto & vbTab
Next j
Texto = Texto & vbCrLf
Next i
Clipboard.Clear
Clipboard.SetText Texto
End Sub
Tienes ke llamar al procedimiento asi:
Call CopiarGrilla(NombreDeLaGrilla)
Fijate ke es un MSHFlexGrid no un MSFlexGrid, espero ke te sirva
Sub CopiarGrilla(Grilla As MSHFlexGrid)
Texto = ""
For i = 0 To Grilla.Rows - 1
For j = 0 To Grilla.Cols - 1
Texto = Texto & Grilla.TextMatrix(i, j)
If j < Grilla.Cols - 1 Then Texto = Texto & vbTab
Next j
Texto = Texto & vbCrLf
Next i
Clipboard.Clear
Clipboard.SetText Texto
End Sub
Tienes ke llamar al procedimiento asi:
Call CopiarGrilla(NombreDeLaGrilla)
Fijate ke es un MSHFlexGrid no un MSFlexGrid, espero ke te sirva