Innanzitutto, chiedo scusa per il ritardo con il quale rispondo, ma per fortuna ho dovuto assolvere il duro compito delle ferie...
charlie ha scritto:Argomento spostato.
chiedo nuovamente scusa per l'eventuale errore...
patel ha scritto:prova questa modificando i percorsi
Codice: Seleziona tutto
Sub PDFconvert_InFolder
Dim DocName as object, DocUlr as string, dummy()
Dim mStoreOpts(1) As New com.sun.star.beans.PropertyValue
sPath ="F:\Download\" ' cartella con i file xls
destPath ="F:\Download\A\" ' cartella destinazione pdf
sFileName = Dir(sPath & "*.xls", 0)
Do While (sFileName <> "")
DocUrl = ConvertToURL(sPath & sFileName)
DocName = StarDesktop.loadComponentFromURL (DocUrl, "_blank",0, Dummy() )
mStoreOpts(0).Name = "Overwrite"
mStoreOpts(0).Value = True
mStoreOpts(1).Name = "FilterName"
mStoreOpts(1).Value = "calc_pdf_Export"
sUrl = destPath & sFileName & ".PDF"
DocUrl = ConvertToURL(sUrl)
DocName.storeToURL(DocUrl, mStoreOpts())
DocName.Close(true)
sFileName = Dir
Loop
End Sub
Grazie Patel, sei un Genio...

non so davvero come ringraziarti, funziona alla grande e mi hai aperto la mente
Giusto per la cronaca, grazie alle informazioni presenti in un altro tuo post presente sul forum, ho aggiunto una piccola modifica che permette di scegliere la cartella nella quale sono presenti i file da convertire.
Grazie ancora e ci si legge in giro per il forum, penso che bazzicherò spesso da queste parti...

Ciao