Nadamas enviar datos de un MSHFlexGrid a Excel

aimar
05 de Noviembre del 2003
Tengo datos de en un flexgrid que obtengo de una consulta SQL, lo unico que quiero es enviar los datos de este Flexgrid a la hoja de excel.
gracias
[email protected]

Magnoluis
05 de Noviembre del 2003
Debes crear un archivo en excel en este caso "lista.xls", guardarlo donde instalaste la aplicacion. VB6 tiene problemas al exportar cuando tu sistema operativo es win98.

con win2000, ME, XP, no hay problema


Ej.

Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open App.Path & "lista.xls"
xl.Visible = True
f = 6
Ii = 1
i = MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = Ii
Do While Ii <= i
MSFlexGrid1.Col = 1
nombre = MSFlexGrid1.Text
MSFlexGrid1.Col = 2
direccion = MSFlexGrid1.Text
MSFlexGrid1.Col = 3
rut = MSFlexGrid1.Text

xl.cells(f, 1).Value = nombre
xl.cells(f, 2).Value = direccion
xl.cells(f, 3).Value = rut

If Ii < i Then
Ii = Ii + 1
MSFlexGrid1.Row = Ii
MSFlexGrid1.Col = 2
fin = MSFlexGrid1.Text
Else
Ii = Ii + 1
End If
fin = ""
Loop