Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Excel-Application will einfach nicht schließen
Autor: R@ptor
Datum: 29.06.11 14:54
Hallo, ich versuche schon seit Stunden, eine von mir gestartete Excel-Application zu beenden. Ich habe bereits die hier vorgestellte Lösung ausprobiert, aber es funktioniert einfach nicht. Hier mal mein Code: Dim excelObj As New Excel.Application Dim excelWorkbook As Excel.Workbook Set excelWorkbook = excelObj.Workbooks.Open("Pfad") On Error GoTo Ende excelWorkbook.Sheets("Sheet").Cells.Find(What:=normteilenummer, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate UserForm1.MultiPage1.page9.ListBox10.AddItem normteilenummer UserForm1.MultiPage1.page9.ListBox9.AddItem ActiveWorkbook.Sheets("Sheet").Cells(ActiveCell.Row, 9).Value ActiveWorkbook.Close SaveChanges:=False Set excelWorkbook = Nothing excelObj.Quit Set excelObj = Nothing Exit Sub Ende: MsgBox ("Normteil nicht im Katalog vorhanden!") Er befüllt wunderbar die Listbox, die anderen Zeilen gehen auch sauber durch, die Application bleibt trotzdem offen. Es ist doch zum Mäusemelken!!! Würde mich freuen, wenn mich jemand erhellen könnte! Beitrag wurde zuletzt am 29.06.11 um 14:57:39 editiert.

Excel-Application will einfach nicht schließen	1.770	R@ptor	29.06.11 14:54
Re: Excel-Application will einfach nicht schließen	880	Blackbox	29.06.11 21:49
Re: Excel-Application will einfach nicht schließen	933	R@ptor	30.06.11 07:25
Re: Excel-Application will einfach nicht schließen	862	R@ptor	30.06.11 12:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen