Código OppenOffice ejecutado dentro de V.S.
Publicado por Miguel (281 intervenciones) el 17/08/2022 18:47:18
Tengo está línea de código que me da error en "ConvertToUrl" y estoy intentando saber donde se declara o bien si viene a través de "Imports" pero no encuentro nada.
sRuta = ConvertToUrl(Carpeta & miDocumento)
Puede alguien por favor darme información.
Les pongo todo el código
'************************ Abrir un documento OppenOffice ***************+
Private Sub BtnVerDocu_Click(sender As Object, e As EventArgs) Handles BtnVerDocu.Click
Select Case txtReunion.Text
Case "Junta Ordinaria"
Carpeta = "C:\DatosComunidades\JuntaOrdinaria\"
Case "Aviso Ordinario"
Carpeta = "C:\DatosComunidades\JuntaOrdinaria\"
Case "Junta Extraordinaria"
Carpeta = "C:\DatosComunidades\JuntaExtraordinaria\"
Case "Aviso Extraordinario"
Carpeta = "C:\DatosComunidades\JuntaExtraordinaria\"
Case "Cierre Anual"
Carpeta = "C:\DatosComunidades\Cierres\"
End Select
misDatos()
Dim sRuta As String
Dim mArg()
Dim oDocumento As Object
'Reemplaza esta ruta por la ruta de tú archivo
sRuta = ConvertToUrl(Carpeta & miDocumento)
oDocumento = StarDesktop.loadComponentFromURL(sRuta, "_blank", 0, mArg(0))
End Sub
Gracias
sRuta = ConvertToUrl(Carpeta & miDocumento)
Puede alguien por favor darme información.
Les pongo todo el código
'************************ Abrir un documento OppenOffice ***************+
Private Sub BtnVerDocu_Click(sender As Object, e As EventArgs) Handles BtnVerDocu.Click
Select Case txtReunion.Text
Case "Junta Ordinaria"
Carpeta = "C:\DatosComunidades\JuntaOrdinaria\"
Case "Aviso Ordinario"
Carpeta = "C:\DatosComunidades\JuntaOrdinaria\"
Case "Junta Extraordinaria"
Carpeta = "C:\DatosComunidades\JuntaExtraordinaria\"
Case "Aviso Extraordinario"
Carpeta = "C:\DatosComunidades\JuntaExtraordinaria\"
Case "Cierre Anual"
Carpeta = "C:\DatosComunidades\Cierres\"
End Select
misDatos()
Dim sRuta As String
Dim mArg()
Dim oDocumento As Object
'Reemplaza esta ruta por la ruta de tú archivo
sRuta = ConvertToUrl(Carpeta & miDocumento)
oDocumento = StarDesktop.loadComponentFromURL(sRuta, "_blank", 0, mArg(0))
End Sub
Gracias
Valora esta pregunta


0