[Risolto] Salva con nome da celle

[Alelon]

Sono di nuovo qui per chiedervi il codice per creare una macro che salvi con nome il documento, prendendo da celle specifiche il nome con cui salvare.
Allego il file.

Le celle in cui dovrà estrapolare il nome sono:
B7/d7/i7

Grazie

[lucky63]

.
Nel forum ci sono già moltissimi esempi simili.

Comincia con imparare a trovarli utilizzando la casella "cerca" in alto a destra.
Poi un minimo impegno per comprenderne il codice trovato e adattarlo al tuo caso non farebbe di certo male.
.

[Alelon]

Già fatto.
Ma, sarà per mia incapacità, non sono riuscito a risolvere.

[lucky63]

Allega il codice con cui non riesci a risolvere.

[Alelon]

Ne ho provato più di uno...
Sto ancora provando a modificarne qualcuno...
Magari nel frattempo qualcuno più in gamba di me mme ne posta uno pronto all'uso

[patel]

A me sembra che tu non abbia voglia di studiare, ma soltanto di copiare, inoltre allegare un file excel in un forum di openoffice è la ciliegina nella torta. Se vuoi imparare qui trovi molti esempi http://www.pitonyak.org/oo.php

[Alelon]

Sai cos'è? Il mio lavoro non è Studiare OpenOffice, tutt'altro. OpenOffice, come tanti altri programmi li uso da utente IGNORANTE quale sono.
Voglio solo crearmi un foglio per preventivi ad hoc per le mie necessità, non facendo il programmatore né tanto meno avendo il tempo per Studiare, chiedo consigli e copio.
Se questo, per voi saccenti di questo forum è un problema, ignoratemi pure.
Io vado a Lavoro. Grazie

[patel]

Lo scopo dei forum è insegnare a fare, non fare il lavoro per altri, per questo ci sono tanti professionisti disponibili.

[charlie]

Se questo, per voi saccenti di questo forum è un problema, ignoratemi pure.

Ti stai candidando per il ban definitivo ...

[Alelon]

Non volevo minimamente offendere.
Magari anziché saccenti avrei dovuto scrivere sapienti... Buon lavoro a tutti

[charlie]

Ciao, vorrei che tu capissi che qui siamo tutti utenti di Open/Libre Office e volontari apassionati.
Quello che sappiamo lo mettiamo a disposizione di chi vuol sapere, consci dei nostri limiti ma sempre nella speranza di dare una mano.
Buon proseguimento.

[Alelon]

Non ne dubito.

[Alelon]

Sto provando questo.
Vorrei che non compatissero
Le parentesi.
Come si fa?

[marcocurreli]

Devi togliere le parentesi.

Codice: Seleziona tutto

REM --- Nome del file pdf ------------------------------------------------------
NomeDelfile =  FoglioAttivo.getCellRangeByName("B6").String & "-" & _
			   FoglioAttivo.getCellRangeByName("H8").String & "-" & _
			   FoglioAttivo.getCellRangeByName("I8").String & ".pdf"

[Alelon]

Grazie funziona.
Domanda... Se sostituisco pdf con ods, funziona pure?
In modo da adattarla al" salva con nome"

[patel]

Ovviamente no perché non si tratta di un salvataggio ma di una esportazione, per fare un salva con nome

Codice: Seleziona tutto

Sub SalvaConNome
Dim Doc As Object, Sheet As Object, args()
Doc = Thiscomponent
Sheet = Doc.Sheets(0)
Filename = "file:///" & nomedelfile
Doc.storeToURL(Filename, args())
Doc.close(true)
End Sub

[Alelon]

Ma così la salva con il nome del ducumento?
Non con il nome preso da alcune celle.

[patel]

Non devi copiare tutto, il mio è un esempio, come prendere il nome dalle celle lo sai già fare.

[Alelon]

Non ci riesco.

[Alelon]

Una domanda a margine..
Come mai quando provo ad assegnare la macro ad un evento, non visualizzo le macro salvate nel documento? Ma solo quelle personali?

[patel]

non so risponderti, per evitare confusione non tengo niente nelle macro personali

[Alelon]

se non sai rispondermi tu...sono fregato .
Quindi tu non salvi nulla in macro personali?
ok pero come faccio ad assegnare ad un evento, una macro salvata nel documento? visto che non le visualizzo.

[patel]

Usi veramente OpenOffice 3.1 ? forse dipende da questo, altrimenti descrivi come fai per assegnare ad un evento la macro

[Alelon]

ho aggiornato a 4.1.11
per assegnarla faccio... strumenti-macro-organizza macro-openoffice basic-assegna- clicco sul' evento desiderato e clicco su macro. a questo punto la scelta ricade su macro personali oppure macro di openoffice.

[marcocurreli]

Seleziona il documento e premi il tasto Nuovo

[charlie]

Ciao, non vedi questo percorso?

[Alelon]

Ok... Grazie

[Alelon]

Nessuno che può aiutarmi nel compilare una macro che salvi con nome da celle?
Non ci riesco.

[geovign]

Non uso sistemi win, ma dovrebbe funzionare

Codice: Seleziona tutto

Sub Salva_con_nome_da_celle
dim args()
Doc = ThisComponent
FoglioAttivo = Doc.CurrentController.ActiveSheet
Percorso = ConvertToURL("C:\eccetera\eccetera\eccetera\") 'percorso da modificare secondo necessità per WIN
B7 = FoglioAttivo.getCellRangeByName("B7").string   'se contenuto cella è testo
D7 = FoglioAttivo.getCellRangeByName("D7").string   'se contenuto cella è testo
I7 = FoglioAttivo.getCellRangeByName("I7").string   'se contenuto cella è testo
NomeFile = B7 & "-" & D7 & "-" & I7 & ".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

[Alelon]

una cella non e testo...
non funziona cmq