salvataggio con nome di una cella

[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

[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:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati ).

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.

[alessandro64]

chiedo scusa in cosa non sarei in linea potrebbe essere più chiaro chiedo scusa anticipatamente se ho sbagliato in qualcosa

[charlie]

Istruzioni per nuovi arrivati )

[patel]

Mostra i tentativi che hai fatto

[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

[patel]

Non capisco, hai allegato un file di excel, cosa c'entra con questa discussione ?

[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