Vraag : Schrap aantekenvellen in werkboek

Ik ontvang een werkboek van een groep, die verscheidene worksheetes heeft dat ik bepaalde aantekenvellen moet kunnen sytematically schrappen, met inbegrip van verborgen aantekenvellen voorafgaand aan het runnen van een query.

bijvoorbeeld

Worksheet een Aantekenvel F Delete
Worksheet G Keep

Then van het Aantekenvel E Delete
Hidden van Delete
Worksheet B keep
Worksheet C Keep
Worksheet D Delete
Hidden sparen het werkboek dat Aantekenvel B, Aantekenvel C, en Aantekenvel G aan een nieuwe file. heeft

Antwoord : Schrap aantekenvellen in werkboek

Deze code zal als „newfile.xls“ aan de zelfde die folder met slechts de bladen sparen die namen hebben in strNames worden opgeslagen

Juicht toe

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:

Sub RemoveSheets ()
    Schemerige strNames (1 tot 4) als Koord
    Schemerige ws als Aantekenvel

    ActiveWorkbook.SaveAs newfile ActiveWorkbook.Path & „\“

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

    Met Toepassing
        .DisplayAlerts = Vals
        .ScreenUpdating = Vals
    Eind met

    Op Fout hervat daarna
    Voor Elke ws in ActiveWorkbook.Sheets
        Als niet Application.WorksheetFunction.Match (ws. Naam, strNames, 0) > 0 toen ws. Schrap
    Daarna

    Met Toepassing
        .DisplayAlerts = Waar
        .ScreenUpdating = Waar
    Eind met


Sub van het eind
Andere oplossingen  
 
programming4us programming4us