Pannello di Controllo Moderatore ]

Macro Calc convertire tutti i file in cartella .XLS in .PDF

Creare una macro - Scrivere uno script - Usare le API

Macro Calc convertire tutti i file in cartella .XLS in .PDF

Messaggioda Darkpunkers » mercoledì 5 settembre 2018, 22:09

Buonasera a tutti,

chiederei cortesemente aiuto, se fattibile, a qualche Guru di Basic, in quanto avrei bisogno di una Macro per Calc di Openoffice, che converta in PDF tutti i documenti .xls presenti in una data cartella.
Il percorso della suddetta cartella può anche essere lo stesso del file .xls che conterrà la macro....

Provengo da una piccola esperienza con VBA di Excel, ed è proprio un altro mondo il Basic...sono parecchio spaesato.

Premetto di aver già cercato con la funzione "Cerca" del Forum, come da suggerimenti dislocati in varie zone dello stesso Forum, ma non ho trovato nulla che possa fare al caso mio... :crazy:

Ringrazio anticipatamente chi potrà in qualche modo aiutarmi :roll:
Windows 7 - Openoffice 4.1.5
Darkpunkers
 
Messaggi: 2
Iscritto il: mercoledì 5 settembre 2018, 21:05

Re: Macro Calc convertire tutti i file in cartella .XLS in .

Messaggioda charlie » giovedì 6 settembre 2018, 7:25

Argomento spostato.
charlie
macOS 10.12 Sierra: Open Office 4.1.5 - LibreOffice 5.4.3.2
Windows 7 pro (VirtualBox): Open Office 4.1.5 - LibreOffice 5.4.4.2
Ubuntu 17.04 LTE (VirtualBox): LibreOffice 5.1.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 5238
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Macro Calc convertire tutti i file in cartella .XLS in .

Messaggioda patel » giovedì 6 settembre 2018, 18:08

prova questa modificando i percorsi

Codice: Seleziona tutto   Espandi visualeStringi visuale
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
-------------------
OpenOffice 4.1 e Libre Office 6 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 2892
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno


Torna a Macro e UNO API

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti