Frage : Schleife durch, zum aller Tabellenarten zu entfernen

Kann jedermann helfen, diese Arbeit zu bilden, versuche ich, mich durch jedes Blatt im Arbeitsbuch und auf jeder Blattschleife durch jede Tabelle zu schlingen und die Tabellenart zu entfernen.  Ich verwende übertreffe 2007

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Sub TryThis ()
Schwaches oSh als Arbeitsblatt
Schwaches oLo als ListObject
Schwaches oWb als Arbeitsbuch

oWb = ActiveWorkbook einstellen

Für jedes oSh im oWb
    oSh.Activate
        Für jedes oLo im oSh
            ActiveSheet.ListObjects (oLo) .TableStyle = ""
        Folgendes oLo
Folgendes oSh

Ende Sub


On die Linie „für jedes oSh im oWb“ erhalte ich eine Störung sagend, dass Gegenstand nicht dieses Eigentum oder method stützt

Antwort : Schleife durch, zum aller Tabellenarten zu entfernen

Sie müssen die Aufzählung gründen auf diese Weise:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

VorTryThis ()
Schwaches oSh als Arbeitsblatt
Schwaches oLo als ListObject
Schwaches oWb als Arbeitsbuch

oWb = ActiveWorkbook einstellen

Für jedes oSh in oWb.Worksheets
    Für jedes oLo in oSh.ListObjects
        oLo.TableStyle = ""
    Folgendes oLo
Folgendes oSh

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us