Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

[Excel 2007]- Chiudere tutti i file di una cartella Opzioni
aetio
Inviato: Tuesday, December 03, 2013 9:12:18 AM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
vorrei scrivere una macro che esegua il contrario di questa:

Sub Apri_TUTTIfile_Cartella()
Dim MyFolder As String
Dim MyFile As String

MyFolder = "C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1"
MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
MyFile = Dir
Loop
End Sub


(rif: QUESTO thread)

In pratica non so come scrivere correttamente il codice di chiusura dei file SENZA salvare le modifiche. A intuito si dovrebbe sostituire
nel codice
Workbooks.Open Filename:=MyFolder & "\" & MyFile
un'istruzione di tipo
Close savechanges:=False
ma non è corretto... [Errore di sintassi]
(sono ignorante assai in VBa, vero??)

Grazie assai, buona giornata
eZio
Sponsor
Inviato: Tuesday, December 03, 2013 9:12:18 AM

 
a10n11
Inviato: Tuesday, December 03, 2013 1:03:04 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
prova con questa:

Sub ChiudiTutti()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> ActiveWorkbook.Name Then
wb.Close savechanges:=False
End If
Next wb
End Sub

saluti
Giap

aetio
Inviato: Tuesday, December 03, 2013 1:58:54 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
la tua macro è perfetta, come sempre... ;-)
una domanda da esimio rompiScatole (tanto per non smentirmi...):
supponendo che abbia aperto anche file di altre cartelle e voglia chiudere solo tutti quelli della cartella della sub Apri_TUTTIfile_Cartella
come posso istruire la tua macro?
Grazie infinite, buon pomeriggio
eZio
a10n11
Inviato: Tuesday, December 03, 2013 7:13:10 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
aetio ha scritto:
Ciao,
la tua macro è perfetta, come sempre... ;-)
una domanda da esimio rompiScatole (tanto per non smentirmi...):
supponendo che abbia aperto anche file di altre cartelle e voglia chiudere solo tutti quelli della cartella della sub Apri_TUTTIfile_Cartella
come posso istruire la tua macro?
Grazie infinite, buon pomeriggio
eZio


salve
con qualcosa di simile:

Option Compare Text
Sub ChiudiTutti()
Dim wb As Workbook
miapath = "C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1"
For Each wb In Workbooks
If wb.Name <> ActiveWorkbook.Name And wb.Path = miapath Then
wb.Close savechanges:=False
End If
Next wb
End Sub
saluti
Giap

aetio
Inviato: Tuesday, December 03, 2013 8:44:32 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,

non ho parole, se non......................... PERFETTA!!
Grazie assai, buona serata
eZio
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.