Bueno el nombre dice todo, pero solo necesito un archivo que cuando pulse un boton guarde una copia del documento con el nombre de una celda, lo cierre y vuelva al archivo. Consegui este codigo en el foro pero Quisiera q no me pida la ubicacion donde guardar sino q ya este establecida la direccion en la macro.
Este proyecto en totalmente aparte al q tengo en otro tema. Al final lo publico para cualquiera q le pueda servir.
Código: Seleccionar todo
Sub GuardarArchivo2()
Dim oDlgCarpeta as Object
Dim sRuta As String
Dim oHoja As Object
Dim oCelda As Object
Dim mOpciones(0) As New "com.sun.star.beans.PropertyValue"
'Servicio para seleccionar una ruta, solo la carpeta
oDlgCarpeta = CreateUnoService ("com.sun.star.ui.dialogs.FolderPicker")
With oDlgCarpeta
'El título del cuadro de diálogo
.Title = "Selecciona el directorio donde guardar el nuevo archivo"
'El directorio predeterminado, si usas Windows puede ser D:\Mis documentos
.DisplayDirectory = ConvertToUrl("/home/mau")
End With
'Lo mostramos
If oDlgCarpeta.Execute() Then
'Obtenemos la ruta seleccionada por el usuario
sRuta = oDlgCarpeta.Directory
'La hoja donde se tomara el dato para el nombre del archivo
oHoja = ThisComponent.getSheets().getByName("Hoja1")
oCelda = oHoja.getCellRangeByName("A1")
'Construimos la ruta completa
sRuta = sRuta & "/" & oCelda.getString() & ".ODS"
'Guardamos el archivo
ThisComponent.storeAsURL( sRuta, mOpciones() )
MsgBox "Archivo guardado correctamente"
Else
MsgBox "Proceso cancelado"
End If
End Sub