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!
Responder
Avatar de Usuario
acampos9913
Miembro Frecuente
Miembro Frecuente
Mensajes: 26
Registrado: 05 Ago 2016 11:47

Agregar listbox con sql excel

Mensaje por 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
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 5956
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Agregar listbox con sql excel

Mensaje por Antoni » 07 Oct 2018 13:30

Revisa el adjunto.
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
acampos9913
Miembro Frecuente
Miembro Frecuente
Mensajes: 26
Registrado: 05 Ago 2016 11:47

Re: Agregar listbox con sql excel

Mensaje por acampos9913 » 07 Oct 2018 21:09

Muchas gracias por tu ayuda.



Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
Mensajes: 10788
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires
Contactar:

Re: Agregar listbox con sql excel

Mensaje por 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
acampos9913
Miembro Frecuente
Miembro Frecuente
Mensajes: 26
Registrado: 05 Ago 2016 11:47

Re: Agregar listbox con sql excel

Mensaje por acampos9913 » 08 Oct 2018 13:01

Muchas gracias Cacho R



Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
Mensajes: 10788
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires
Contactar:

Re: Agregar listbox con sql excel

Mensaje por 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.
.



Responder