Cancellare fogli tranne uno

Hai un problema con Excel?

Nuova discussione

Cancellare fogli tranne uno
di Ilkamalo (utente non iscritto) data: 05/05/2009
Ciao a tutti
ho una query che in un worbook mi scarica circa 300 sheets e sempre in questo workbook la macro crea un foglio col nome "riassunto" dove vengono elaborati i dati dei 300 fogli; a questo punto se salvo tutto il workbook excel ci mette circa 1 minuto , mentre a me interessa solo il sheet "riassunto"; quindi sto cercando del codice tipo cancella tutti i fogli in workbook tranne "riassunto" ( a priori io non conosco il nome dei 300 fogli scaricati) . grazie

di R (utente non iscritto) data: 05/05/2009
Conosci però il nome del foglio da salvare?
non ti conviene copiare il foglio su nuova cartella?
il codice qui sotto elimina tutti i fogli in thisworkbook tranne quello attivo
saluti
r

Sub eliminaFogli()
Dim sh As Worksheet
Dim tSh As Worksheet
'elimina tutti fogli tranne quello attivo
Set sh = ActiveSheet

Application.DisplayAlerts = False
For Each tSh In ThisWorkbook.Worksheets
    If tSh.Name = sh.Name Then
    Else
        tSh.Delete
    End If
Next
Application.DisplayAlerts = True

End Sub

Vuoi Approfondire?