Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Salva - Chiudi tutti i file aperti

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Salva - Chiudi tutti i file aperti

Postdi antom » 11/09/08 15:30

Salve a tutti.
Da giorni sto lavorando con Excel e VBA.
Ho imparato molte cose utili e trovato soluzioni molto comode!
Per esempio avevo la necessità di riportare i dati di n fogli su un unico foglio in celle particolari, quindi di salvare e chiudere tutti i file tranne quello con la macro.
Con l'aiuto di Anthony74 che ancora ringrazio ho trovato soluzione a questo problema (ed altri!) e quindi li condivido.
La macro che salva e chiude n file è la seguente:
Codice: Seleziona tutto
Function SaveClose()
Dim openDoc As Workbook

For Each openDoc In Workbooks
    If openDoc.Name <> ThisWorkbook.Name Then  'con questo if non permertto la chiusura del file da cui lancio la macro
   
        ActiveWorkbook.Save
        ActiveWindow.Close
   
    End If
Next openDoc

End Function


Spero sia utile anche a voi!
Ciao e buon lavoro!

Antom.
antom
Utente Junior
 
Post: 24
Iscritto il: 07/09/08 09:26

Sponsor
 

Re: [Excel] Salva - Chiudi tutti i file aperti

Postdi antom » 11/09/08 16:08

ERRATA CORRIGE!
Scusate! Scritta così non funziona! Così fatta la macro chiude PROPRIO il file contenente la macro!!!!

Ecco che al posto di ActiveWorkbook.[Save|Close] va scritto openDoc.[Save|Close]

Così funziona!!!

Scusate e comunque BUON LAVORO!!!

A presto,
Antonella.
antom
Utente Junior
 
Post: 24
Iscritto il: 07/09/08 09:26

Re: [Excel] Salva - Chiudi tutti i file aperti

Postdi Anthony47 » 11/09/08 18:06

Bene.
Solo a scopo didattico: hai certamente notato che la tua macro e' esattamente quella che ti avevo postato io, con le uniche differenze che:
-tu hai chiamato "OpenDoc" le voci della serie Workbolks, io le avevo chiamate "WB" (se le chiamiamo "pippo" e' lo stesso)
-tu hai inserito una voce per il Save e una per il Close, io faccio in una unica riga.

Ciao, alla prossima.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Salva - Chiudi tutti i file aperti

Postdi Flash30005 » 11/09/08 18:15

Ciao Anthony,
dove è possibile reperire questa macro?
Nome argomento? Data? etc?



P.s. forse fai prima a ripostarla qui, grazie
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Salva - Chiudi tutti i file aperti

Postdi Anthony47 » 11/09/08 20:36

E' nel thread precedente di antom: viewtopic.php?f=26&t=75064
Macro Closeall() verso la fine.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

[Excel] Salva - Chiudi tutti i file aperti

Postdi antom » 12/09/08 08:32

Ciao Anthony47.
Lungi da me appropriarmi del tuo lavoro :oops: .
Ho splittato le istruzioni semplicemente perchè savechanges:=True mi dava qualche problema.

Comunque a presto e buon lavoro.

Antom.
antom
Utente Junior
 
Post: 24
Iscritto il: 07/09/08 09:26

Re: [Excel] Salva - Chiudi tutti i file aperti

Postdi Anthony47 » 12/09/08 13:31

Ti confermo che la mia osservazione era solo a scopo didattico; inoltre le istruzioni pubblicate sul forum sono a disposizione di tutti.

Ciao!
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Salva - Chiudi tutti i file aperti":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti