Encontre un error libro aprendiendo Aoo
Publicado: Jue Nov 24, 2016 7:27 am
ACLARACION ¡el libro esta exelente y muy didactico! esto es solo un aporte positivo:
Este error aparece en los libros de nuestros amigos Mauricio Baeza y en el libro de Eduardo Badiola
Si ejecutan esta macro sin que previamente exista el archivo dara el siguiente error:
el problema esta en la siguiente macro en la pagina 151
Esta es la macro qui tiene un error
SOLUCION:
Este codigo es el mismo que el anterior solo con una correccion.
El unico cambio es cambiar esta linea ubicada despues de "convertToUrl"
Cambiarla por esta otra
Este error aparece en los libros de nuestros amigos Mauricio Baeza y en el libro de Eduardo Badiola
Si ejecutan esta macro sin que previamente exista el archivo dara el siguiente error:
Estoy ejecutando LibreOffice 5.1.4.2 en linux mint 18Error de ejecución de BASIC.
Se ha producido una excepción
Type: com.sun.star.lang.IllegalArgumentException
Message: Unsupported URL <file:///home/marcos/calc.ods>: "type detection failed".
el problema esta en la siguiente macro en la pagina 151
Esta es la macro qui tiene un error
Código: Seleccionar todo
Sub AbriendoGuardandoDocumentos2()
Dim sRuta As String
Dim mOpciones(0) As New "com.sun.star.beans.PropertyValue"
Dim oDoc As Object
sRuta = "private:factory/scalc"
oDoc = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mOpciones() )
'Nos indica si el archivo esta guardado físicamente
MsgBox oDoc.hasLocation()
sRuta = ConvertToUrl( "/home/mau/Mi archivo de Calc.ods" )
oDoc = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mOpciones() )
MsgBox oDoc.hasLocation()
End SubEste codigo es el mismo que el anterior solo con una correccion.
Código: Seleccionar todo
Sub AbriendoGuardandoDocumentos2()
Dim sRuta As String
Dim mOpciones(0) As New "com.sun.star.beans.PropertyValue"
Dim oDoc As Object
sRuta = "private:factory/scalc"
oDoc = starDesktop.loadComponentFromURL( sRuta, "_blank", 0, mOpciones() )
MsgBox oDoc.hasLocation()
sRuta = ConvertToUrl( "/home/marcos/calc.ods" )
oDoc.storeAsURL( sRuta, mOpciones() )
MsgBox oDoc.hasLocation()
End SubCódigo: Seleccionar todo
oDoc = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mOpciones() )Código: Seleccionar todo
oDoc.storeAsURL( sRuta, mOpciones() )