Agregar listbox con sql excel

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Agregar listbox con sql excel

Notapor acampos9913 » 07 Oct 2018 08:17

Hola estoy intentando consultar un con sql en el mismo excel del mismo archivo y agregarlo a un listbox pero lo agrego usando un for.

Ejemplo
Código: Seleccionar todo
With Me.ListBox1
        While rs.EOF = False
            .AddItem rs.Fields(0).Value
            rs.MoveNext
        Wend
End With

Esto hace que se haga lento cuando es mucha información.
He visto en algunos foros que se puede hacer así

Código: Seleccionar todo
Dim arr
 With Me.ListBox1
        Dim arr
 arr = MyRecordSet.GetRows
.list=arr
 End With

Y no logro que aparezca correctamente

LE PIDO SU APOYO SI ES POSIBLE CON ALGÚN EJEMPLO, SERA DE GRAN AYUDA
Avatar de Usuario
acampos9913
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 26
Registrado: 05 Ago 2016 11:47

Re: Agregar listbox con sql excel

Notapor Antoni » 07 Oct 2018 13:30

Revisa el adjunto.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5583
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Agregar listbox con sql excel

Notapor acampos9913 » 07 Oct 2018 21:09

Muchas gracias por tu ayuda.
Avatar de Usuario
acampos9913
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 26
Registrado: 05 Ago 2016 11:47

Re: Agregar listbox con sql excel

Notapor Cacho R » 07 Oct 2018 22:25

.
Una variante a lo mostrado por el Gran Antoni (de la Gente):
ListBox1.List = WorksheetFunction.Transpose(Datos)

sería esto otro:
ListBox1.Column = Datos

Saludos, Cacho R.
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10323
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: Agregar listbox con sql excel

Notapor acampos9913 » 08 Oct 2018 13:01

Muchas gracias Cacho R
Avatar de Usuario
acampos9913
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 26
Registrado: 05 Ago 2016 11:47

Re: Agregar listbox con sql excel

Notapor Cacho R » 08 Oct 2018 13:34

.
acampos9913 escribió:Muchas gracias Cacho R

Fue un gusto ayudarte y compartir la consulta con el Gran Antoni (de la Gente). :P

Saludos, Cacho R.
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10323
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 11 invitados