title image


Smiley Du kannst kein "Quit" bei einem Workbook-Objekt machen...
sondern nur bei deinem Excel-Objekt. Außerdem wird kein "End With" benötigt nach "wkb.Close...", da vorher kein "With..." angegeben ist:



With wks

.PivotTables("PivotTable1").PivotFields("Anzahl")

.Orientation = xlDataField

.Position = 1

End With



wkb.Close SaveChanges:=True



Set wks = Nothing

Set wkb = Nothing



oExc.Quit



Set oExc = Nothing



Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: