Este es mi primer mensaje, por lo que probablemente tenga errores que con el tiempo corregiré. Si el mensaje ya fue resuelto en otra ocasión (busqué coincidencias pero no encontré) pido disculpas.
Estoy intentando pasar un valor de un TextField del diálogo "Dialog2" a una variable tipo string. Estuve viendo la ejecución paso a paso y resulta que la variable nunca se carga con el valor de la TextField1.
Mas detalles:
Tengo una Hoja en Calc llamada "Pablo"(muy original). Esta hoja contiene un botón que abre un diálogo mediante la macro detallada a continuación y que para mi propósito funciona perfectamente.
Código: Seleccionar todo
Sub EjecutarMiDialogo1()
Dim oDialogo As Object
'Cargamos la librería Standard en memoria
DialogLibraries.LoadLibrary( "Standard" )
'Cargamos el cuadro de diálogo en memoria
oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialog2") )
'Lo ejecutamos (mostramos)
oDialogo.execute()
'Lo liberamos de memoria
oDialogo.dispose()
End Sub
El CommandButton, tiene asociado al evento "Boton del ratón pulsado" la siguiente macro:
Código: Seleccionar todo
Sub CLickbuscar()
Dim oDialogo As Object
DIm ValorID as String
Dim oCelda as Object
'Cargamos la librería Standard en memoria
DialogLibraries.LoadLibrary( "Standard" )
'Cargamos el cuadro de diálogo en memoria
oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialog2") )
ValorID=oDialogo.getControl("TextField1").Text
oCelda=ThisComponent.getSheets().getbyname("Pablo").getcellrangebyname("A15")
oCelda.setstring(ValorID)
End Sub
Agradezco su ayuda,
Hasta luego