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
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados