RE:como guardo en excel los datos de un msflexgrid
hola, Aquí te envio un ejemplo de como enviar datos desde VB a Excel, lo puedes hacer desde un msflexgrid o como quieras.
antes de todo tienes que añadir la referencia a excel de la versión que quieras. ejemplo:
**************
proyecto/referencias/microsoft excel 5.0 object library
declarar como generales estas variables
***********
Dim loExcel As Object
Dim Libro As Workbook
esta funcion retorna el texto que contiene una celda en un flexgrid
*********************
Function RegGet_Text(f As Integer, c As Integer) As Variant
MSFRegistro.col = c 'MSFRegistro es el nombre del flexgrid
MSFRegistro.Row = f
RegGet_Text = MSFRegistro.Text
End Function
esta funcion te envia los datos a excel
***************
Sub Enviar_datos()
Dim fila As Integer, col As Integer
Dim i As Integer, j As Integer
fila = MSFRegistro.Rows
col = MSFRegistro.Cols
i = 6
For fila = 1 To MSFRegistro.Rows - 1
j = 1
For col = 0 To MSFRegistro.Cols - 1
Libro.ActiveSheet.Cells(i, j) = RegGet_Text(fila, col)
j = j + 1
Next col
i = i + 1
Next fila
'coloca bordes en las celdas
With Libro.ActiveSheet.Range("A6:P" & i - 1).Borders '(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin 'xlThick
.ColorIndex = 0
End With
End Sub
habre un archivo de excel donde tengas el formato del reporte a imprimir
***************
Private Sub Bimprimir_Click()
On