Questione : Manuali di cancellazione in libro di esercizi

Ricevo un libro di esercizi da un gruppo, che ha parecchi worksheetes di che ho bisogno di potere sytematically cancellare determinati manuali, compreso i manuali nascosti prima della corsa del

Worksheet che di query.

per esempio un manuale la F Delete
Worksheet il G Keep

Hidden del keep
Worksheet la C Keep
Worksheet la D Delete
Hidden di Delete
Worksheet B/>Then conserva il libro di esercizi che ha il manuale B, il manuale C e manuale G ad un nuovo file. class= del

Risposta : Manuali di cancellazione in libro di esercizi

Questo codice risparmierà come “newfile.xls„ allo stesso indice con soltanto gli strati che hanno nomi immagazzinati negli strNames

Acclamazioni

Dave
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

RemoveSheets secondario ()
    strNames fiochi (1 - 4) come stringa
    La WS fioca come manuale

    ActiveWorkbook.SaveAs ActiveWorkbook.Path & “\ newfile„

    strNames (1) = “strato A„
    strNames (2) = “strato B„
  strNames (3) = “strato C„
  strNames (4) = “strato G„

    Con l'applicazione
        .DisplayAlerts = falso
        .ScreenUpdating = falso
    Estremità con

    Sul riassunto di errore dopo
    Per l'ogni WS in ActiveWorkbook.Sheets
        Se non Application.WorksheetFunction.Match (WS. Nome, strNames, 0) > 0 allora WS. Cancellazione
    Dopo

    Con l'applicazione
        .DisplayAlerts = allineano
        .ScreenUpdating = allineano
    Estremità con


Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us