[es-users] Consulta - macro Lucas

Buen dia mi nombre es Lucas,

Me encuentro con un problema de ni poder resolver una macro para acceder a
informacion de mi base de datos.
Mi idea es seleccionar una celda (A13) y si coincide dicho valor con la
informacion de mi base de datos, exportar la informacion en otra celda
(D13).
Y asi poder hacerlo con los valores que coloque debajo de la fila A13.

Dejo el codigo, muchas gracias. Que tengan un buen dia,


Sub Contador_Kg()
Dim oHojaActiva As Object
Dim sBaseDatos As String
Dim sSQL As String
Dim sTabla As String
Dim i As String
Dim oSel As Object

Dim mOpcBD(2) As New "com.sun.star.beans.PropertyValue"

sBaseDatos = "Materiales"
sTabla = "Materiales_Promocion"

oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()
ThisComponent.CurrentController.select
<http://thiscomponent.currentcontroller.select/>("A13:A20")

oSel = ThisComponent.getCurrentSelection()
If oSel.getImplementationName() = "ScCellObj" Then

sSQL = "SELECT * FROM Materiales_Promocion WHERE ""Código QM"" ='" & oSel &
"'"

mOpcBD(0).Name = "DatabaseName"
mOpcBD(0).Value = sBaseDatos
mOpcBD(1).Name = "SourceType"
mOpcBD(1).Value = com.sun.star.sheet.DataImportMode.SQL
mOpcBD(2).Name = "SourceObject"
mOpcBD(2).Value = sSQL

oHojaActiva.getCellRangeByName("D12:D20").doImport( mOpcBD() )
End If

End Sub

-- 
Para instrucciones sobre darse de baja envíe un mensaje a: users+unsubscribe@es.libreoffice.org
¿Problemas? https://es.libreoffice.org/recibe-ayuda/listas-de-correo/baja/
Guías para envío + más: https://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: https://listarchives.libreoffice.org/es/users/
Privacy Policy: https://www.documentfoundation.org/privacy