Encontre un error libro aprendiendo Aoo

[marcosdavid]

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:

Error 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".

Estoy ejecutando LibreOffice 5.1.4.2 en linux mint 18

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 Sub

SOLUCION:
Este 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 Sub

El unico cambio es cambiar esta linea ubicada despues de "convertToUrl"

Código: Seleccionar todo

oDoc = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mOpciones() )

Cambiarla por esta otra

Código: Seleccionar todo

oDoc.storeAsURL( sRuta, mOpciones() )

[entrance33]

Estoy aprendiendo a programar LibreOffice con este mismo libro y me he tropezado con este fallo.

Me acabo de registrar para agradecer la solución al usuario y aportar la experiencia que vaya adquiriendo.

[mauricio]

Lastima, que con sus honrosas excepciones, no se coopere para la actualización de este libro.