Ayuda a llenar celda con un campo html
Publicado: Jue Feb 11, 2010 12:58 am
Buanas ocupo ayuda con un una aplicacion que estoy realizando la cual consite desde una celda aplico una funcio que llama a un macro donde este tiene que retornar en otra celda una descripcion
esto es lo que llevo:
Function ANombreCuenta(Codigo) As String
' VARIABLES
Dim NombreCuenta As String
Dim sMensaje As String
sMensaje = Codigo' *** CUENTA CONTABLE PARA A CONSULTAR
NombreCuenta = "No existe cuenta" '<<-- MENSAJE
Dim sRuta As String
Dim mArg() '<<----- PROPERTY
Dim oDocumento As Object '<< -- OBJETO
Dim marcoDestino As String ' <<-- PARAMERO DEL METODO LOADCOMPONENTFROMURL()
Dim Url As String ' <<-- UBICACIÓN
marcoDestino = "_blank" '** CREA UNA VENTANA NUEVA
Url = "http://Prueba/Pruebas/Ejemplo.html"
'Reemplaza esta ruta por la ruta de tu archivo
sRuta = ConvertToUrl(Url) ' <<-- TETERMINA LA RUTA A CONSULTAR
oDocumento = StarDesktop.loadComponentFromURL( sRuta, marcoDestino, 0, mArg() ) ' <<-- METODO DE LLAMADA
' Muestra si existe el campo sino manda que no existe
If oCelda.getString() = "" Then
aNombreCuenta = NombreCuenta
Else
aNombreCuenta = [campo de la tabla]
End If
End Function
bueno el asunto es que no tengo muy claro como manejar el "loadComponentFromURL", que los ejemplos que he buscado todos son para crear una nueva
pantalla y lo que busco es cargar los datos de la una ruta especifica?? no se si es que (loadComponentFromURL) no funciona para lo que yo ocupo y si es asi favor decirme que puedo hacer para resolver este problema, tambien vi que en el casi de llamar un ods tengo
oDocumento = ThisComponent.getCurrentController.getActiveSheet() y
oCelda = oDocumento.getCellRangeByName( "A1" )
donde puedo obtener el valor de la celda "A1", el asunto es como hacer lo miso con una tabla html ??? que es la que quiero llamar via internet
bueno si alguien me puede guiar se lo agradesco mucho me urge resolver este problema Gracias... y si esto no se puede hacer por esta via decirme si hay alguna otrra forma...
esto es lo que llevo:
Function ANombreCuenta(Codigo) As String
' VARIABLES
Dim NombreCuenta As String
Dim sMensaje As String
sMensaje = Codigo' *** CUENTA CONTABLE PARA A CONSULTAR
NombreCuenta = "No existe cuenta" '<<-- MENSAJE
Dim sRuta As String
Dim mArg() '<<----- PROPERTY
Dim oDocumento As Object '<< -- OBJETO
Dim marcoDestino As String ' <<-- PARAMERO DEL METODO LOADCOMPONENTFROMURL()
Dim Url As String ' <<-- UBICACIÓN
marcoDestino = "_blank" '** CREA UNA VENTANA NUEVA
Url = "http://Prueba/Pruebas/Ejemplo.html"
'Reemplaza esta ruta por la ruta de tu archivo
sRuta = ConvertToUrl(Url) ' <<-- TETERMINA LA RUTA A CONSULTAR
oDocumento = StarDesktop.loadComponentFromURL( sRuta, marcoDestino, 0, mArg() ) ' <<-- METODO DE LLAMADA
' Muestra si existe el campo sino manda que no existe
If oCelda.getString() = "" Then
aNombreCuenta = NombreCuenta
Else
aNombreCuenta = [campo de la tabla]
End If
End Function
bueno el asunto es que no tengo muy claro como manejar el "loadComponentFromURL", que los ejemplos que he buscado todos son para crear una nueva
pantalla y lo que busco es cargar los datos de la una ruta especifica?? no se si es que (loadComponentFromURL) no funciona para lo que yo ocupo y si es asi favor decirme que puedo hacer para resolver este problema, tambien vi que en el casi de llamar un ods tengo
oDocumento = ThisComponent.getCurrentController.getActiveSheet() y
oCelda = oDocumento.getCellRangeByName( "A1" )
donde puedo obtener el valor de la celda "A1", el asunto es como hacer lo miso con una tabla html ??? que es la que quiero llamar via internet
bueno si alguien me puede guiar se lo agradesco mucho me urge resolver este problema Gracias... y si esto no se puede hacer por esta via decirme si hay alguna otrra forma...