Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 28-ene-2007, 20:28   #1 (permalink)
agustinbus ha deshabilitado el karma
 
Fecha de Ingreso: enero-2007
Mensajes: 5
Como enviar los columnsheaders a excel

Hola a todos tengo un problema ¿quien no? jeje bueno lo que pasa es que tengo un formulario con un listview y con un boton envio los datos del listview a excel, bien, ahora lo que quiero es que los columnheaders se envien a excel tambien ya que no lo hace.
supongamos en visual basic tengo un listview asi:
Cliente Edad Domicilio Telefono
Pepe 55 xxxx 152 425156
Jorge 21 xxxx 200 444253

y al enviar los datos en excel se ven asi:
Pepe 55 xxxx 152 425156
Jorge 21 xxxx 200 444253

creo que soy claro con lo que quiero hacer, gracias de antemano.
agustinbus está desconectado   Responder Citando
Antiguo 29-ene-2007, 04:54   #2 (permalink)
luciano está en el buen camino
 
Fecha de Ingreso: abril-2004
Mensajes: 190
Re: Como enviar los columnsheaders a excel

Hola

asi como enviás los datos ...envías también las columnas

para recorrer y obtener el caption de cada cHeader

Dim col As Integer

For col = 1 To ListView1.ColumnHeaders.Count
MsgBox ListView1.ColumnHeaders(col).Text
Next
__________________
Recursos visual basic
luciano está desconectado   Responder Citando
Antiguo 29-ene-2007, 11:05   #3 (permalink)
agustinbus ha deshabilitado el karma
 
Fecha de Ingreso: enero-2007
Mensajes: 5
Re: Como enviar los columnsheaders a excel

ya probe de muchas formas aplicando tu codigo pero lo que me hace es mostrarme un msgbox con cada columnheader y por cada uno me abre un archivo de excel. si podrias decirme donde poner el codigo seria mejor. este es mi codigo:

Dim ret As Boolean
If MsgBox("¿Desea exportar la planilla a Excel?", vbQuestion + vbYesNo) = vbYes Then
'Le pasa el path donde está ubicado el libro, el control ListView
ret = Exportar_Excel(App.Path & "\libro1.xls", ListView1, ProgressBar1)
If ret Then
' OK
MsgBox " Datos exportados a Excel", vbInformation
End If
End If
agustinbus está desconectado   Responder Citando
Respuesta

No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 19:56.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93