Excel aus dem Speicher werfen

[radagast]

heje excelfreunde,

mit dem nachfolgenden code versuche ich Daten aus einer "geschlossenen" Tabelle, hier wbQuelldatei, zu importieren. warum wird nach dem durchlauf die "geschlossenen" Tabelle mit der anweisung "wbQuelldatei.Close SaveChanges:=False" nicht aus dem speicher entfernt. die geschlossene Datei, respektive excel.exe * 32, muss z.b. mit dem task-Manager entfernt werden.
wie kann ich dieses Problem elegand lösen... 

die select case - Anweisung funktioniert, ist aber eigendlich nicht von belang....

Code:

Public Sub DatenAusTabelleImportierenTabUebergabe(Arg1 As String, Arg2 As Byte)
Dim objExcel As New Excel.Application
Dim wbQuelldatei As Workbook
Dim wbZieldatei As Workbook
Dim wsQuellBlatt As Worksheet
Dim wsZielBlatt As Worksheet
Dim strImpDatei As String
Dim strImpDateiPfad As String
Dim strTabName As String
   On Error GoTo Fehler
   Set wbQuelldatei = objExcel.Workbooks.Open(Arg1)
   Set wbZieldatei = ThisWorkbook
   intRwert = InStrRev(Arg1, "\")                                 'letztes "\" in DateiNamePfad. Arg1 ist vollständige PfadNameAngabe
   strImpDateiPfad = Left(Arg1, intRwert)                         'DateiPfad
   strImpDatei = Mid(Arg1, intRwert + 1)                          'DateiName
  
   If msgModul.Meldung005(strImpDatei) = True Then
      wbQuelldatei.Close SaveChanges:=False
      Set wbZieldatei = Nothing
      Set wbQuelldatei = Nothing
      Set objExcel = Nothing
      Application.StatusBar = ""
      Exit Sub                                                    'Abbruch, wenn die Quelldatei selbst ausgewählt wird
   End If
  
   Application.StatusBar = "Die Quelldatei wird zum Datenimport geöffnet..."
  
   Select Case Arg2
 .
 .
 .  
      Case Else
         Call msgModul.Meldung006
   End Select
  
   Application.StatusBar = ""
   wbQuelldatei.Close SaveChanges:=False
   Set wbZieldatei = Nothing
   Set wbQuelldatei = Nothing
   Set wsQuellBlatt = Nothing
   Set wsZielBlatt = Nothing
   Set objExcel = Nothing
   On Error GoTo 0
   Exit Sub
  
Fehler:
   If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description
   'Resume Next
End Sub

[Kuwer]

Hallo Janosch,

vielleicht mit

objExcel.Quit

Gruß Uwe

[radagast]

heje excelfreunde, kuwer,

das einfügen von "objExcel.Quit" bewirkt keine änderung...
guter rat ist wohl teuer...

[RPP63]

[off topic, oder auch nicht]
Das Problem gibt es bereits seit xl-Generationen.
Binde mal einen Verweis auf ein ein Add-In ein und freue Dich, wenn das Child Tschüss sagt.

Gruß Ralf

[radagast]

heje excelfreunde, rpp63,

vielen dank für die antwort, aber so richtig hilft sie mir nicht weiter. vielleicht etwas konkreter...

[BoskoBiati]

Hi,

wo hast Du das objExcel.Quit eingesetzt?

[radagast]

heje excelfreunde, BoskoBiati


anstelle von:

Code:

wbQuelldatei.Close SaveChanges:=False

[snb]

'Elephant' lösen mit:

Code:

Public Sub DatenAusTabelleImportierenTabUebergabe(Arg1 As String, Arg2 As Byte)
   with getobject(Arg1)
       - - - -  deine Code
       .close 0
   end with
end sub

[atilla]

Hallo Janosh,

diesen Teil:

Code:

  wbQuelldatei.Close SaveChanges:=False
  Set wbZieldatei = Nothing
  Set wbQuelldatei = Nothing
  Set wsQuellBlatt = Nothing
  Set wsZielBlatt = Nothing
  Set objExcel = Nothing

würde ich nach der Sprungmarke

Code:

fehler:

einfügen. Denn, wenn ein Fehler auftritt, werden diese Zeilen alle nicht ausgeführt.

[Kuwer]

Hallo,

von Bedeutung könnte auch die richtige Reihenfolge des Aufräumens sein:

   Application.StatusBar = ""

  Set wsQuellBlatt = Nothing

  wbQuelldatei.Close SaveChanges:=False

  Set wbQuelldatei = Nothing

  objExcel.Quit

  Set objExcel = Nothing

  Set wsZielBlatt = Nothing

  Set wbZieldatei = Nothing

  On Error GoTo 0

  Exit Sub

Gruß Uwe