Pagina 1 di 1
salvataggio con nome di una cella
Inviato: venerdì 3 marzo 2023, 19:02
da alessandro64
buona sera mi chiamo alessandro sto usando openoffice 4 o libreoffice 7.5 ho creato un foglio di lavoro per le mie esigenze e fin qui niente di eccezionale ma purtroppo anche le mie conoscenze si fermano perchè avrei bisogno che nel momento in cui vado a compilare il foglio al momento di salvarlo vorrei se possibile far sì che il file al salvataggio prenda il contenuto alfanumerico della cella D3 E LO VADA A SALVARE IN UNA DETERMINATA CARTELLA NPRESENTE NEL DESKTOP so che ci sono diversi esempi nel forum li ho anche provati ma da perfetto ignorante in materia finisco con un nulla di fatto. ringrazio fi d'ora chi potrà dedicarmi un p'ò del suo tempo
Re: salvataggio con nome di una cella
Inviato: venerdì 3 marzo 2023, 19:06
da charlie
Ciao Alessandro e benvenuto sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione ->
viewforum.php?f=16
L’utente che apre un quesito si impegna:
In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.
Buon proseguimento.
Editato: Il tuo messaggio non è in linea con le regole del forum, sei pregato di modificarlo per renderlo conforme, grazie. |
Re: salvataggio con nome di una cella
Inviato: venerdì 3 marzo 2023, 19:16
da alessandro64
chiedo scusa in cosa non sarei in linea potrebbe essere più chiaro chiedo scusa anticipatamente se ho sbagliato in qualcosa
Re: salvataggio con nome di una cella
Inviato: venerdì 3 marzo 2023, 21:50
da charlie
Re: salvataggio con nome di una cella
Inviato: sabato 4 marzo 2023, 9:13
da patel
Mostra i tentativi che hai fatto
Re: salvataggio con nome di una cella
Inviato: sabato 4 marzo 2023, 11:55
da alessandro64
sub STAMPAPDFCONFERMA
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 7
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim Arg(0) as new com.sun.star.beans.PropertyValue
dim args2(1) as new com.sun.star.beans.PropertyValue
Doc = ThisComponent
Controller = Doc.CurrentController
Sheet = Controller.ActiveSheet
CellRange = Sheet.getCellRangeByName("$A$1:$J$62")
cell = Sheet.getCellByPosition(8,10).string ' cella da dove prendere il nome
cell1 = Sheet.getCellByPosition(8,2).string ' cella da dove prendere il nome della cartella di destinazione
rem ----------------------------------------------------------------------
Controller.select(CellRange)
Arg(0).Name = "Selection"
Arg(0).Value = CellRange
args2(0).Name = "FilterName"
args2(0).Value = "calc_pdf_Export"
args2(1).Name = "FilterData"
args2(1).Value = Arg()
Doc.storeToURL("file:///C:/USERS/DARIO/Desktop/CONFERME/2020/" & cell1 & "/" & cell & ".pdf",args2())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$I$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
end sub
ho provato questo file come esempio preso da una discussione del febbraio 2020 e avendo inserito la cella da dove prendere il nome con cui poi salvarlo che nel mio caso è la cella d3 che sarebbe un alfanumerico o con precisione sono targhe automobilistiche ed il percorso corretto è "C:\Users\sandt\Desktop\officina (officina è il nome della cartella dove si dovrebbe salvare tutti i file completi al salvataggio.spero di essere stato il più chiaro possibile.grazie
Re: salvataggio con nome di una cella
Inviato: sabato 4 marzo 2023, 12:38
da patel
Non capisco, hai allegato un file di excel, cosa c'entra con questa discussione ?
Re: salvataggio con nome di una cella
Inviato: sabato 4 marzo 2023, 12:49
da alessandro64
scusami mi sono sbagliato ma praticamente sono identici
ne ho inviato quello giusto.stavo provando anche questo che ne pensi:
REM ***** BASIC *****
Sub Salva_con_nome_da_celle
dim args()
Doc = ThisComponent
FoglioAttivo = Doc.CurrentController.ActiveSheet
Percorso = ConvertToURL("C:\User\sandt\desktop\") 'percorso da modificare secondo necessità per WIN
B7 = FoglioAttivo.getCellRangeByName("D3").string 'se contenuto cella è testo
D7 = FoglioAttivo.getCellRangeByName("D1").string 'se contenuto cella è testo
NomeFile = D3 & "-" & D1 & ".ods" 'nome file composto dal testo delle tre celle separato da trattino
Print NomeFile
URLFile = Percorso & NomeFile
Print URLFile
Doc.storeToURL(URLFile, args())
Doc.close(true)
End Sub