Visual Basic - mshflexgrid

Life is soft - evento anual de software empresarial
 
Vista:

mshflexgrid

Publicado por johann (1 intervención) el 17/12/2005 01:22:22
por favor necesito saber como guardo los datos de un mshflexgrid en un documento tipo excell o doc, pero toda la conexion a la base de datos es mediante programacion ado

por favor urgente
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:mshflexgrid

Publicado por SetFocus (183 intervenciones) el 17/12/2005 19:45:18
Hola! Te paso un ejemplo de como hacer lo que pedis.
Supongamos que tu MSHFlexGrid se llama flxProductos, y que tiene dos columnas, en la primera se guarda el Codigo del producto y en la segunda la Descripcion.
Entonces el codigo seria asi,que podes poner en un Boton, por ejemplo, que al presionarlo envie los datos a Excel

Dim xlAplicacion As Excel.Application
Dim xlLibro As Workbook
Dim xlHoja As Worksheet
Dim I As Integer

'Crear un nuevo Libro en Excel
Set xlAplicacion = CreateObject("Excel.Application")
Set xlLibro = xlAplicacion.Workbooks.Add

'Agregar un Hoja al Libro
Set xlHoja = xlLibro.Worksheets(1)

'En estas lineas se pasan los datos a la hoja
'Poniendo el codigo en la primer columna de la hoja y la descripcion en la segunda
'Variando los argumentos del objeto Cell, obviamente, podes elegir otra ubicacion
For I = 1 To flxProductos.Rows - 1
xlLibro.Sheets(1).Cells(I, 1).Value = flxProductos.TextMatrix(I, 1)
xlLibro.Sheets(1).Cells(I, 2).Value = flxProductos.TextMatrix(I, 2)
Next

'Si no queres que se vea Excel ejecutandose tenes que cambiar
'esta propiedad a False
xlAplicacion.Visible = True

'Si queres guardar la Hoja de Excel usas esta instruccion,
'especificando la carpeta donde queres guardar la hoja.
'Ej: C:\Sistema\Planilla\ entonces seria:
'xlLibro.SaveAs "C:\Sistema\Planilla\Prueba.xls"

'Si despues de grabar la Hoja de Excel queres cerrarlo
'xlAplicacion.Quit

'Liberar todas las referencias
Set xlHoja = Nothing
Set xlLibro = Nothing
Set xlAplicacion = Nothing

Eso es todo, para que funcione tenes que agreagar la referencia a Excel(en mi caso es : Microsoft Excel 11.0 Object Library) Esto se hace desde Visual Basic llendo al menu "Proyecto" luego "Referencias" y ahi recorriendo la lista buscas la referencia que te indico o la que vos tengas instalada de acuerdo a la version de Office que tengas en tu maquina.
Bueno,espero que te sirva.Saludos
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