Abrir un Documento OpenOffice con V.B.

Miguel - 1 sep 2022 a las 18:00

Tratos de abrir un documento OpenOffice con un código que he montado en V.B. paro me da problemas en la ruta.

Tome este código como ejemplo:

Sub AbriendoDocumentos1()
      Dim sRuta As String
      Dim mArg()
      Dim oDocumento As Object
     'Reemplaza esta ruta por la ruta de tú archivo
      sRuta = ConvertToUrl( "/home/mau/Mi archivo de Calc.ods" )
      oDocumento = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mArg() )     

End Sub

Y este es mi código:

    Private Sub misDatos()
        miFecha = txtFechaReunion.Text
        miDia = Microsoft.VisualBasic.Left(miFecha, 2)
        miMes = Microsoft.VisualBasic.Mid(miFecha, 4, 2)
        miaño = Microsoft.VisualBasic.Mid(miFecha, 7, 4)
        miFecha = miDia & "-" & miMes & "-" & miaño
        miDocumento = txtComunidad.Text & "_" & miFecha ' & ".odt"
    End Sub

    Sub AbrirDocumento()

        Carpeta = "C:\DatosComunidades\JuntaExtraordinaria\"
        misDatos()
        Dim miRuta As String = Carpeta & miDocumento & ".odt"
        Dim sRuta As String
        Dim ConvertToUrl As String = Nothing
        Dim mArg()
        Dim oDocumento As Object
        'Reemplaza esta ruta por la ruta de tú archivo
        sRuta = ConvertToUrl(miRuta)
        oDocumento = StarDesktop.loadComponentFromURL(sRuta, "_blank", 0, mArg(0))
    End Sub

El error me da al tratar de convertir mi ruta con el ConvertToUrl.

Haber si alguien me puede indicarme como arreglar el entuerto.

Gracias


Windows / Edge 104.0.1293.70