[Excel] Salva - Chiudi tutti i file aperti

[antom]

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]

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.

[Anthony47]

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.

[Flash30005]

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



P.s. forse fai prima a ripostarla qui, grazie

[Anthony47]

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

Ciao.

[antom]

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

Comunque a presto e buon lavoro.

Antom.

[Anthony47]

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

Ciao!