Excel aus dem Speicher werfen

[radagast]

heje excelfreunde

vielen dank an alle...

das vorliegende Problem - Excel wird nicht aus dem Speicher entfernt - muss durch die aufzurufenden Datei produziert werden...
1) ist die aufzurufende Datei von der (notwendiger weise, Datenimport) gleichen Machart, dann entsteht das Problem.
2) wird eine beliebige Datei (Mappe1) aufgerufen, da funktioniert alles und die zweite Excel-Instanz wird wieder aus dem Speicher entfernt.

anbei noch einmal der code:

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 strImpDatei As String
Dim strImpDateiPfad As String
Dim strTabName As String
Dim intRwert As Integer

  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
 
  Debug.Print ActiveWorkbook.Name
  Debug.Print wbQuelldatei.Name
  Debug.Print wbZieldatei.Name
 
  wbQuelldatei.Close SaveChanges:=False
  objExcel.Quit
  Set wbQuelldatei = Nothing
  Set objExcel = Nothing
  Set wbZieldatei = Nothing
  On Error GoTo 0
  Exit Sub
 
Fehler:
  If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description
  'Resume Next
End Sub

wie könnte man das Problem lösen...

[RPP63]

Moin!
Ich komme noch mal auf meinen Beitrag #4 zurück:
Warum erstellst Du überhaupt eine zweite Instanz?

Gruß Ralf

[snb]

Hast du die Antworten überhaupt gelesen/verstanden ?

[radagast]

heje excelfreunde,


vielen dank an alle...

snb: dein vorschlag hängt noch in der todo-liste...

kuwer, rpp63, atila: habe ich alles ausprobiert. Ergebnis: neuer codeeintrag

warum neue Instanz: hm, tja wegen datenimport aus einer geschlossenen Datei...