Error al crear documento

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

Error al crear documento

Notapor Raul Montes » Lun Dic 18, 2017 5:04 pm

Tengo un código de Mauricio para crear un documento paro me da un error. He visto un manual de OpenOffice y quiero ver si puedo sustituir el Word, así que he preparado el código para crear un documento pero al ejecutarlo me dice que los tipos no coinciden.
Adjunto el código con el error.
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm

Re: Error al crear documento

Notapor fornelasa » Lun Dic 18, 2017 7:59 pm

Por favor intenta ser más claro en tu consulta, de ser necesario agrega un archivo ejemplo, con lo anterior recibirás una mejor atención.
Saludos, Federico.
lo 6.1.2 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3181
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Error al crear documento

Notapor Raul Montes » Lun Dic 18, 2017 8:24 pm

Había adjuntado una hoja donde está el código y el error. Así que si me explican por favor como hacer para que llegue lo remitiré rápidamente.

Gracias y un saludo
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm

Re: Error al crear documento

Notapor mauricio » Lun Dic 18, 2017 8:41 pm

No, no adjuntaste ningún archivo, aquí como hacerlo:
https://forum.openoffice.org/es/forum/v ... f=3&t=1335
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5791
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Error al crear un Documento en desde Visual Studio

Notapor Raul Montes » Lun Dic 18, 2017 8:45 pm

Les había adjuntado una hoja en la opción que aparece abajo como "subir adjunto" esperando que fuese esa la forma. Me gustaría me explicarán algo del funcionamiento pues es algo que desconozco un poco.
Les adjunto el código y el error :

Option Strict Off

Imports System.IO
Imports Independentsoft.Office.OfficeDocument

Public Class frmInforme
Public objIni As New Inicio.Iniciar.Inicio

Private Sub frmInforme_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim oSM As Object 'Root object for accessing OpenOffice from VB
Dim oDesk, oDoc As Object 'First objects from the API
Dim arg() As String
oSM = CreateObject("com.sun.star.ServiceManager")
oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
Dim sRuta As String = "file:///c:/Fincas/juntas/" & objIni.miFichero 'Create a new doc
oDoc = oDesk.loadComponentFromURL(sRuta, "_default", 0, arg)
'Close the doc
oDoc.Close(True)
oDoc = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, ToString)
End Try
End Sub
End Class

Error: Los tipos no coinciden. Excepción de HRESULT 0X80020005(DISP_E_TYPEMISMATCH)
Gracias
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm

Re: Error al crear documento

Notapor mauricio » Lun Dic 18, 2017 10:36 pm

Por favor, asegurate de darle continuidad a tus temas en un solo hilo...

¿En que linea te da este error?
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5791
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Error al crear documento

Notapor Raul Montes » Lun Dic 18, 2017 10:49 pm

No se para en ninguna fila, el caso es que no crea ningún fichero y saca el mensaje al final en el Catch ex As Exception. Hay datos tanto a nivel de MySql así como en el Form.

Gracias y un saludo
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm

Re: Error al crear documento

Notapor mauricio » Lun Dic 18, 2017 11:18 pm

Quita el Try y verificar donde da el error... toma en cuenta que esta pasando args como string, esto es incorrecto, prueba con:
Código: Seleccionar todo   Expandir vistaContraer vista
        Dim args(0) As Object
        args(0) = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")

pero no me hagas mucho caso, tiene una eternidad que no toco esto...
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5791
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Error al crear documento

Notapor Raul Montes » Lun Dic 18, 2017 11:25 pm

Lo pruebo ahora y decirte que yo es la primera vez que ando con ello y decir también que he estado buscando un manual que trate sobre como trabajar con documentos y solo encuentro de Bases de Datos.
Muchas gracias y un saludo
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm

Re: Error al crear documento

Notapor Raul Montes » Lun Dic 18, 2017 11:42 pm

Añadiendo las dos filas se bloquea. He cambiado el Dim args(0) As Object.
Antes de hacer cambios y quitando el Try se paraba en el punto (1).
Después de la corrección llega hasta el punto (2).

Private Sub frmInforme_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oSM As Object 'Root object for accessing OpenOffice from VB
Dim oDesk, oDoc As Object 'First objects from the API

Dim arg(0) As Object
oSM = CreateObject("com.sun.star.ServiceManager")
oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
'If objIni.control = True Then
Dim sRuta As String = "file:///c:/Fincas/juntas/" & objIni.miFichero 'Create a new doc (1)
oDoc = oDesk.loadComponentFromURL(sRuta, "_default", 0, arg) (2)
'Close the doc
oDoc.Close(True)
oDoc = Nothing
End Sub

Muchas gracias por la ayuda y un saludo
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm

Re: Error al crear documento

Notapor Raul Montes » Lun Dic 18, 2017 11:45 pm

Perdona donde se para saca este mensaje.
System.Runtime.InteropServices.COMException: 'com.sun.star.lang.IllegalArgumentException: URL seems to be an unsupported one.'
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm

Re: Error al crear documento

Notapor mauricio » Mar Dic 19, 2017 1:21 am

El error es bastante claro, usa las rutas en formato URL, asegurate que sean correctas:
https://wiki.openoffice.org/wiki/ES/Man ... irectorios
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5791
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Error al crear documento

Notapor Raul Montes » Mar Dic 19, 2017 10:49 pm

Gracias por la información. La voy a examinar minuciosamente para ver si consigo hacerlo funcionar, le tendré informado de mis progresos.

Muchas gracias y un saludo
OpenOffice 4.4 y Windows 10
Raul Montes
 
Mensajes: 12
Registrado: Lun Dic 18, 2017 4:41 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: Exabot [Bot], mauricio y 4 invitados