Office: Instanz beenden

Hallo.

Ich habe folgendes Problem.
In einem VB-Projekt erzeuge ich eine Liste, die ich dann via VBA in Excel weiterverarbeite.

Der VB-Code(ausschnitt) sieht folgendermaßen aus:

Code:

Beim ersten Durchgang funktioniert alles einwandfrei.
Excel wird geöffnet und die Daten werden so aufbereitet und angezeigt wie sie das sollen.
Beim zweiten Durchgang erhalte ich in der TextToColumns-Anweisung einen Laufzeitfehler (1004).

Mein schwerer Verdacht: es liegt am Öffnen und Schließen der Excel-Instanzen.
Schließe ich die Excel-Datei existiert im Taskmanager immer noch eine Excel-Instanz. Die verschwindet erst, wenn ich das VB-Programm beende.

Wo liegt der Fehler?

Besten Dank Vorab
Matze

:)

 

Hallo Matze,

wenn man mit VB6 bzw. VB.Net auf MS-Office-Dateien zugreift, dann ist es immer von Vorteil, erst ein Obfekt
zu definieren und dann die Methoden und Eigenschaften auf das Objekt loszulassen.
Das was in Excel-Vba super läuft, ist oft ohne Objektdefinition ein Stolperstein in VB6 & VB.Net.

CSVdatei = App.Path & "\" & Datei
XLSdatei = Mid(CSVdatei, 1, Len(CSVdatei) - 3) & "xls"

Dim xlApp As Excel.Application, wb As Excel.Workbook, _
ws As Excel.Worksheet, rg As Excel.Range

If xlApp Is Nothing Then
Set xlApp = New Excel.Application
End If

xlApp.DisplayAlerts = False
Set wb = xlApp.Workbooks.Open(Filename:=CSVdatei)
Set ws = wb.Worksheets(1)
Set rg = ws.Columns(1)
rg.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="~", FieldInfo:=Array(Array(1, 1)), TrailingMinusNumbers:=True
ws.Columns.AutoFit
ws.Range("A1").Select
wb.SaveAs Filename:=XLSdatei, FileFormat:=xlNormal
wb.Close False
xlApp.DisplayAlerts = True
xlApp.Quit

DoEvents
Result = ShellExecute(0&, "Open", XLSdatei, "", "", 1)
Set rg = Nothing
Set ws = Nothing
Set wb = Nothing
Set xlApp = Nothing

Kill CSVdatei

Gruß von Luschi
aus klein-Paris

 

Hallo Matze,

Vorsicht bei:
Code:

DisplayAlerts sollte m. E. nur unmittelbar vor der betreffenden Operation dekativiert (und nur, wenn nicht anders lösbar) und sofort danach wieder aktiviert werden. Die Konsequenzen von fälschlicherweise deaktiverten DisplayAlerts sind weitreichender als z. B. bei ScreenUpdating! *wink.gif*

SELECT: Schon bei excelinternen Progrämmchen nicht zu empfehlen, so verbietet sich dies in meinen Augen bei extern auf Excel zugreifenden Anwendungen. Bereiche gehören sauber referenziert:
Instanz.Workbook.Worksheet.Range

Hier ist es empfehlenswert, zumindest die geöffnete Datei in eine Varible zu schreiben:
Code:

Die Referenzierung wird dadurch nicht nur verkürzt (in der Workbook-Variable ist die Instanz bereits "enthalten"), sondern vor allem EINDEUTIG.

Der Laufzeitfehler 1004 letztlich kann verschiedene Ursachen haben, z. B. den trivialen, dass keine Daten zum Aufteilen in Spalten gefunden wurden....

Wenn sich hinter ShellExecute das verbirgt, von dem ich annehme, dass es das tut, wundert mich das nach dieser Programmzeile (was soll die denn überhaupt bewirken?) kein Stück, sondern vielmehr, dass diese Instanz nach Programmende verschwunden sein soll:
Code:

[Edit]
@Luschi
hier sollte der Bezug noch komplettiert werden:
Code:

[/Edit]

Grüße
EarlFred

 

Danke euch beiden.

Die Tipps brachten leider nicht den gewünschten Erfolg.

Ich hab den Code jetzt mal zu Testzwecken auf das Mindeste gekürzt.

Code:

Ergebnis: CSV als XLS gespeichert, ABER nach Beendigung des VB-Programms geistert im Task-Manager immer noch eine Excel-Instanz rum.
Ich gehe davon aus, das dies der Grund ist, warum mein Ausgangscode beim zweiten Aufruf abbricht.

Weitere Tipps?!

Danke
Matze

PS: Wenn ich den Testcode zweimal ausführe geistern zwei "Phantom"-Instanzen im Task-Manager rum.

 

Hallo Matze,

zu 95% waren das auch keine Tipps, um das konkrete Problem zu beheben, sondern allgemeine Ratschläge... Aber selbst diese beherzigst Du nicht - wie kannst Du die diese dann also bewerten?
Auf die Frage, ob überhaupt Daten zum Splitten vorhanden sind, gehst Du auch nicht ein.

Wozu weitere Tipps geben, wenn die genauso wenig beachtet würden? Kann man sich wohl sparen.

Ich übrigens immer noch nicht.

Code:

bringt dann wohl auch nichts.

Grüße
EarlFred