exportar list a excel
 

Hola amigos, alguien me puede orientar de como puedo hacer esto?
Tengo una aplicación que me muestra en un control list unos datos que se cargan de un archivo txt separado por comas, hasta ahi todo bien, la lista se carga muy bien; ahora quisiera llevar esos datos a una hoja de excel para desde alli imprimirlos, pero no se como exportar la lista a excel.

Muchas gracias de antemano.

Re: exportar list a excel
 

Debes habiliar la referencia Microsoft Excel (version) Object Library

Supongamos que tienes un listbox con 8 filas o las que sean pega esto en un boton y listo!:

Dim aux

Set XLAPP = Nothing

'se crea objeto de excel
Set XLAPP = CreateObject("excel.sheet.8")

'se abre el archivo
Set xlBook = XLAPP.Application.Workbooks.Open(App.Path & "\Plantilla2.xls")

'XLAPP.Application.Visible = False ' para no mostra
XLAPP.Application.Visible = True ' para mostrar

Set RESUMEN = xlBook.ActiveSheet

renglones = List1.ListCount
Renglon = 4 'linea en donde comenzaras a pegar datos

For linea = 0 To renglones - 1
TextoX = List1.List(linea)
RESUMEN.Range("B" & Renglon).Value = TextoX
Renglon = Renglon + 1
Next linea


'RESUMEN.PrintOut 'Para imprimir
Set RESUMEN = Nothing
Set XLAPP = Nothing

Re: exportar list a excel
 

Ok Gracias, Me Funciono