Frage : Löschungarbeitsblätter im Arbeitsbuch

Ich empfange ein Arbeitsbuch von einer Gruppe, die einige worksheetes hat, die ich sein muss, bestimmte Arbeitsblätter sytematically zu löschen, einschließlich versteckte Arbeitsblätter vor dem Betrieb eines query.

zum Beispiel

Worksheet, das ein Delete
Worksheet B keep
Worksheet C Keep
Worksheet D Delete
Hidden Arbeitsblatt F Delete
Worksheet G Keep

Hidden/>Then das Arbeitsbuch speichern, das Arbeitsblatt B, Arbeitsblatt C und Arbeitsblatt G zu einem neuen file. hat

Antwort : Löschungarbeitsblätter im Arbeitsbuch

Dieser Code speichert als „newfile.xls“ zum gleichen Verzeichnis mit nur den Blättern, die die Namen haben, die in den strNames gespeichert werden

Beifall

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:

VorRemoveSheets ()
    Schwache strNames (1 bis 4) als Schnur
    Schwaches WS als Arbeitsblatt

    ActiveWorkbook.SaveAs ActiveWorkbook.Path u. „\ newfile“

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

    Mit Anwendung
        .DisplayAlerts = falsch
        .ScreenUpdating = falsch
    Ende mit

    Auf Störungs-Zusammenfassung zunächst
    Für jedes WS in ActiveWorkbook.Sheets
        Wenn nicht Application.WorksheetFunction.Match (WS. Name, strNames, 0) > 0 dann WS. Löschung
    Zunächst

    Mit Anwendung
        .DisplayAlerts = richten aus
        .ScreenUpdating = richten aus
    Ende mit


Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us