[Risolto] Salva file con nome di una cella

Creare una macro - Scrivere uno script - Usare le API
Bloccato
alessandro64
Messaggi: 10
Iscritto il: venerdì 3 marzo 2023, 10:24

[Risolto] Salva file con nome di una cella

Messaggio da alessandro64 »

Buona sera mi chiamo Alessandro,
vorrei chiedere, come posso salvare un file con il nome di una cella specifica, in una cartella specifica, nel mio caso la "D1:E1" in quanto la celle essendo unite ne formano una soltanto.
Ho provato alcuni esempi, ma non saprei proprio come fare, vorrei imparare, ma sono un incapace totale. grazie

Allego file di esempio

Codice: Seleziona tutto

Salva_con_nome
Dim  args()
Doc = Thiscomponent
Sheet = Doc.Sheets(0)
   prefix = "file:///"
   Nome = Sheet.getCellRangeByName("D1").string
   
   Filename = TARGA & ".ods"
'   print Filename
   Filename =  prefix & Filename
   if FileExists(Filename ) then 
     print "File già esistente"
     exit sub
   end if
   Doc.storeToURL(Filename, args())
'   Doc.close(true)

End Sub
Ho provato alcuni esempi, ma non saprei proprio come fare, vorrei imparare, ma sono incapace totale.grazie
Allegati
preventivi.ods
file per fare prove
(18.95 KiB) Scaricato 43 volte
Ultima modifica di charlie il mercoledì 8 marzo 2023, 15:16, modificato 2 volte in totale.
Motivazione: Inserito tag [Risolto] e ✔ verde.
OPENOFFICE 4.1.14 SUwin 10
Gaetanopr
Volontario
Volontario
Messaggi: 3314
Iscritto il: mercoledì 21 novembre 2012, 20:07

Re: Salva file con nome di una cella

Messaggio da Gaetanopr »

TARGA a cosa fà riferimento??
prova così

Codice: Seleziona tutto

Sub Salva_con_nome
Dim  args()
Doc = Thiscomponent
Sheet = Doc.Sheets(0)
   Nome = Sheet.getCellRangeByName("D1").string
   Filename = "file:///C:/Users/gaeta/OneDrive/Desktop/"& Nome &".ods"
   if FileExists(Filename ) then 
     print "File già esistente"
     exit sub
   end if
   Doc.storeToURL(Filename, args())
'   Doc.close(true)

End Sub
cambia questa parte

Codice: Seleziona tutto

"file:///C:/Users/gaeta/OneDrive/Desktop/
con il tuo percorso di salvataggio
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
alessandro64
Messaggi: 10
Iscritto il: venerdì 3 marzo 2023, 10:24

Re: Salva file con nome di una cella

Messaggio da alessandro64 »

buongiorno ho modificato il percorso con questa stringa "C:/Users/sandt/Desktop/officina/" , ma praticamente, al salvataggio, solo la prima volta lo salva con il nome. la seconda volta, dopo aver riaperto il file "preventivo", cambiando il contenuto della cella "D3" ,il salvataggio avviene solo con il nome del file Preventivo, a meno che, io no lancio il comando "esegui macro" ,dal menu tendina "strumenti.
c'è sicuramente un modo per rendere ,il tutto automatico? . grazie
OPENOFFICE 4.1.14 SUwin 10
alessandro64
Messaggi: 10
Iscritto il: venerdì 3 marzo 2023, 10:24

Re: Salva file con nome di una cella

Messaggio da alessandro64 »

ho allegato ,il file di prova modificato.grazie
Allegati
preventivi.ods
(12.74 KiB) Scaricato 46 volte
OPENOFFICE 4.1.14 SUwin 10
Gaetanopr
Volontario
Volontario
Messaggi: 3314
Iscritto il: mercoledì 21 novembre 2012, 20:07

Re: Salva file con nome di una cella

Messaggio da Gaetanopr »

Si può fare in diversi modi, uno di questi è usare un pulsante.
Allegati
preventivi.ods
(15.86 KiB) Scaricato 50 volte
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
alessandro64
Messaggi: 10
Iscritto il: venerdì 3 marzo 2023, 10:24

Re:[risolto] Salva file con nome di una cella

Messaggio da alessandro64 »

ringrazio per l'aiuto che mi è stato offerto, ho risolto il problema ,con la modifica del tasto "salva" nella barra dei strumenti
OPENOFFICE 4.1.14 SUwin 10
alessandro64
Messaggi: 10
Iscritto il: venerdì 3 marzo 2023, 10:24

Re:[risolto]Salva file con nome di una cella

Messaggio da alessandro64 »

grazie
OPENOFFICE 4.1.14 SUwin 10
Bloccato