Bernardini Lido ha scritto:
Scusa Bart se mi intrometto
volevo aggiungere qualcasa anch' io
così Mirko può scegliere dove salvare
Mirko deve aver fatto il ponte... e quindi non sappianmo ancora quale
parte della Workbook vuole salvare e nemmeno se il pdf gli piace....
... cut...
Dim sCartella As String
sCartella = Folder() 'Questa variabile chiama la funzione Folder()
'la quale apre una finestra
nella quale puoi
'scegliere la cartella dove
vuoi salvare.
'La riga "sUrl= "file:/// ...."
può essere modificata
'così
sUrl= sCartella + "Fattura_" + oNumero + "-" + oAnno + ".pdf"
Molto interessante... anche se di solito le fatture dell'anno - di
solito -le infili sempre nello stesso posto.
Function Folder()
Dim oCartella as Object
Dim iAccetta as Integer
oCartella = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
iAccetta = oCartella.Execute()
If iAccetta = 1 Then Folder() = oCartella.GetDirectory()
End Function
Spero di essere stato utile
A Mirko non lo so... a me certamente sì...
Indipendentemente da Mirko sarebbe utile capire come "esportare" solo la
sheet o solo la selezione...
Spero qualcunaltro si "intrometta"... :-)
Ciao
bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]