Tengo un problema al cargar los datos de una consulta SQL de una Access a mi archivo Excel. La consulta funciona bien, de hecho ya tengo el formulario casi listo. El problema viene porque quiero modificar el formato de varias columnas. Por ejemplo la columna 4 a pesar de estar el Access en moneda cuando lo cargo en el listbox lo hace en números con decimales.
Estoy leyendo pero no encuentro exactamente esto, al menos al cargar todos los datos en el listbox de manera multiple.
Agradezco vuestra ayuda como de costumbre. Pongo el código, creo que no es necesario todo el archivo para ver que código me falta poner.
Sub Llenar_Checklist()
'macro para llenar el Listbox2
Conexión
ListBox2.Clear
Dim Fin As String, GR As String
With ListBox2
.ColumnCount = 10
.ColumnWidths = "120 pt; 40 pt; 160 pt; 50 pt; 50 pt; 50 pt; 50 pt; 50 pt; 140 pt; 70 pt" 'Definimos el tamaño de las columnas
End With
Fin = ListBox1.ListCount
For i = 1 To Fin
If ListBox1.Selected(i) = True Then GR = ListBox1.List(i)
Next
If GR = "" Then GoTo 30
Sql = "Select [Proveedor],[Referencia],[Usuario],[Importe],[Porcentaje],[Previsto],[Contable]" & _
" From Tb_Checklist Where [OT]= '" & ComboBox1 & "'" & " And [AGRUPACION]= '" & ComboBox2 & "'" & _
" And [GRUPO] like " & "'%" & GR & "%'" & " And [PERIODO_Checklist]= '" & ComboBox3 & "'"
Rst.Open Sql, Conn, 3, 3, 1
If Rst.EOF = False Then ListBox2.Column = Rst.GetRows
Rst.Close
30:
End Sub
Aquí es donde lo cargo de un solo golpe con "GetRows", y no se si así es posible cambiar el formato de solo una columna específica.
If Rst.EOF = False Then ListBox2.Column = Rst.GetRows
Muchas gracias por adelantado.
Moisés.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos de nuevo.
Tengo un problema al cargar los datos de una consulta SQL de una Access a mi archivo Excel. La consulta funciona bien, de hecho ya tengo el formulario casi listo. El problema viene porque quiero modificar el formato de varias columnas. Por ejemplo la columna 4 a pesar de estar el Access en moneda cuando lo cargo en el listbox lo hace en números con decimales.
Estoy leyendo pero no encuentro exactamente esto, al menos al cargar todos los datos en el listbox de manera multiple.
Agradezco vuestra ayuda como de costumbre. Pongo el código, creo que no es necesario todo el archivo para ver que código me falta poner.
Sub Llenar_Checklist() 'macro para llenar el Listbox2 Conexión ListBox2.Clear Dim Fin As String, GR As String With ListBox2 .ColumnCount = 10 .ColumnWidths = "120 pt; 40 pt; 160 pt; 50 pt; 50 pt; 50 pt; 50 pt; 50 pt; 140 pt; 70 pt" 'Definimos el tamaño de las columnas End With Fin = ListBox1.ListCount For i = 1 To Fin If ListBox1.Selected(i) = True Then GR = ListBox1.List(i) Next If GR = "" Then GoTo 30 Sql = "Select [Proveedor],[Referencia],[Usuario],[Importe],[Porcentaje],[Previsto],[Contable]" & _ " From Tb_Checklist Where [OT]= '" & ComboBox1 & "'" & " And [AGRUPACION]= '" & ComboBox2 & "'" & _ " And [GRUPO] like " & "'%" & GR & "%'" & " And [PERIODO_Checklist]= '" & ComboBox3 & "'" Rst.Open Sql, Conn, 3, 3, 1 If Rst.EOF = False Then ListBox2.Column = Rst.GetRows Rst.Close 30: End Sub
Aquí es donde lo cargo de un solo golpe con "GetRows", y no se si así es posible cambiar el formato de solo una columna específica.
If Rst.EOF = False Then ListBox2.Column = Rst.GetRows
Muchas gracias por adelantado.
Moisés.