[RESUELTO] Abrir y guardar con cuadro de diálogo y ruta
Publicado: Jue Ene 18, 2018 9:17 pm
Hola,
He estado mirando en el libro de Mauricio porque quiero que al abrir un cuadro de diálogo para abrir o guardar un documento se abra ya en una ruta preestablecida, por ejemplo "D:\Documentos\varios", pero no he encontrado nada al respecto. La macro sería la que pongo abajo pero con alguna modificación que le asigne la ruta.
En este enlace preguntaron lo mismo y la solución final es la que ahora estoy utilizando, pero no se le dio la solución a la pregunta inicial que es la que he expuesto.
https://forum.openoffice.org/es/forum/v ... ker#p48787
Sub AbrirArchivo1()
Dim oDlgAbrirArchivo as Object
Dim mArchivo() As String
Dim mOpciones()
Dim sRuta As String
Dim oDoc As Object
'Creamos el servicio necesario
oDlgAbrirArchivo = CreateUnoService ("com.sun.star.ui.dialogs.FilePicker")
'Establecemos el titulo del cuadro de dialogo
oDlgAbrirArchivo.setTitle("Selecciona el archivo a abrir")
'Con el método .Execute() mostramos el cuadro de dialogo
'Si el usuario presiona Abrir el método devuelve 1 que podemos evaluar como Verdadero (True)
'Si presiona Cancelar devuelve 0
If oDlgAbrirArchivo.Execute() Then
'De forma predeterminada, solo se puede seleccionar un archivo
'pero devuelve una matriz de todos modos con la ruta completa
'del archivo en formato URL
mArchivo() = oDlgAbrirArchivo.getFiles()
'El primer elemento de la matriz es el archivo seleccionado
sRuta = mArchivo(0)
'Y lo abrimos
oDoc = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mOpciones() )
Else
'Si el usuario presiona Cancelar
MsgBox "Proceso cancelado"
End If
End Sub
Un saludo.
He estado mirando en el libro de Mauricio porque quiero que al abrir un cuadro de diálogo para abrir o guardar un documento se abra ya en una ruta preestablecida, por ejemplo "D:\Documentos\varios", pero no he encontrado nada al respecto. La macro sería la que pongo abajo pero con alguna modificación que le asigne la ruta.
En este enlace preguntaron lo mismo y la solución final es la que ahora estoy utilizando, pero no se le dio la solución a la pregunta inicial que es la que he expuesto.
https://forum.openoffice.org/es/forum/v ... ker#p48787
Sub AbrirArchivo1()
Dim oDlgAbrirArchivo as Object
Dim mArchivo() As String
Dim mOpciones()
Dim sRuta As String
Dim oDoc As Object
'Creamos el servicio necesario
oDlgAbrirArchivo = CreateUnoService ("com.sun.star.ui.dialogs.FilePicker")
'Establecemos el titulo del cuadro de dialogo
oDlgAbrirArchivo.setTitle("Selecciona el archivo a abrir")
'Con el método .Execute() mostramos el cuadro de dialogo
'Si el usuario presiona Abrir el método devuelve 1 que podemos evaluar como Verdadero (True)
'Si presiona Cancelar devuelve 0
If oDlgAbrirArchivo.Execute() Then
'De forma predeterminada, solo se puede seleccionar un archivo
'pero devuelve una matriz de todos modos con la ruta completa
'del archivo en formato URL
mArchivo() = oDlgAbrirArchivo.getFiles()
'El primer elemento de la matriz es el archivo seleccionado
sRuta = mArchivo(0)
'Y lo abrimos
oDoc = StarDesktop.loadComponentFromURL( sRuta, "_blank", 0, mOpciones() )
Else
'Si el usuario presiona Cancelar
MsgBox "Proceso cancelado"
End If
End Sub
Un saludo.