Cuestión : Hojas de trabajo de la cancelación en libro de trabajo

Recibo un libro de trabajo de un grupo, que tiene varios worksheetes que necesite poder sytematically suprimir ciertas hojas de trabajo, incluyendo las hojas de trabajo ocultadas antes de funcionar un

Worksheet de query.

por ejemplo que una hoja de trabajo F Delete
Worksheet G Keep

Hidden del keep
Worksheet C Keep
Worksheet D Delete
Hidden de Delete
Worksheet B/>Then ahorra el libro de trabajo que tiene la hoja de trabajo B, la hoja de trabajo C, y hoja de trabajo G a un nuevo file. class= del

Respuesta : Hojas de trabajo de la cancelación en libro de trabajo

Este código ahorrará como “newfile.xls” al mismo directorio con solamente las hojas que tienen nombres almacenados en strNames

Aclamaciones

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 secundario ()
    strNames déviles (1 a 4) como secuencia
    WS dévil como hoja de trabajo

    ActiveWorkbook.SaveAs ActiveWorkbook.Path y “\ newfile”

    strNames (1) = “hoja A”
    strNames (2) = “hoja B”
  strNames (3) = “hoja C”
  strNames (4) = “hoja G”

    Con el uso
        .DisplayAlerts = falso
        .ScreenUpdating = falso
    Extremo con

    En curriculum vitae del error después
    Para cada WS en ActiveWorkbook.Sheets
        Si no Application.WorksheetFunction.Match (WS. Nombre, strNames, 0) > 0 entonces WS. Cancelación
    Después

    Con el uso
        .DisplayAlerts = verdad
        .ScreenUpdating = verdad
    Extremo con


Submarino del extremo
Otras soluciones  
 
programming4us programming4us