Visual Basic - como guardo en excel los datos de un msflexgrid

Life is soft - evento anual de software empresarial
 
Vista:

como guardo en excel los datos de un msflexgrid

Publicado por VICTOR (1 intervención) el 16/01/2003 03:08:11
como le hago para guardar en excel o en txt todos los datos de un control msflexgrid??
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como guardo en excel los datos de un msflexgrid

Publicado por bertha (3 intervenciones) el 16/01/2003 03:41:13
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar