02/07/2009, 18:19
|
| | | Fecha de Ingreso: enero-2007 Ubicación: Tingo María - Perú
Mensajes: 399
Antigüedad: 17 años, 4 meses Puntos: 13 | |
| Respuesta: MshflexGrid a Excel Ayuda!!
cambia
objWorkbook.ActiveSheet.Cells(i + 3, j + 1).Value
por
objWorkbook.ActiveSheet.Cells(4*(i + 1) , j + 1).Value
de tal modo que tengas algo asi
objWorkbook.ActiveSheet.Cells(4*(i + 1) , 1).Value = "Categoria"
objWorkbook.ActiveSheet.Cells(4*(i + 1)+1 , 1).Value = "Nombre"
objWorkbook.ActiveSheet.Cells(4*(i + 1)+1 , 2).Value = "Apellido"
y claro quitarias tambien el bucle:
For j = 0 To MSHFlexGrid1.Cols - 1
__________________
Vivir para ser buenos y ser buenos para servir mejor. |