27/09/2009, 12:04
|
| | | Fecha de Ingreso: diciembre-2008 Ubicación: Tumbes - Peru
Mensajes: 18
Antigüedad: 15 años, 5 meses Puntos: 0 | |
| Respuesta: MshflexGrid a Excel Ayuda!!
a ver prueba con este codigo:
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
luego solo lo llamas GridAExcel nombredetu grid |