Office: (Office 2010) mit VBA .xlsx Datei schließen

Liebes Forum,

ich habe ein Makro geschrieben, in dem als letzten Schritt eine .xlsx Datei geschlossen werden soll. Hat auch prima funktioniert. Jetzt habe ich jedoch ein SAP-Script am Anfang hinzugefügt und die .xlsx Datei lässt sich im letzten Schritt, Schließung der Datei, einfach nicht mehr ansprechen, davor jedoch schon. Das wäre der Code:



Sub start()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

plik0 = ActiveWorkbook.Name
Dim Applicat As Object
On Error Resume Next
Set SapGuiAuto = GetObject("SAPGUI")
Set Applicat = SapGuiAuto.GetScriptingEngine
Set Connection = Applicat.Children(1)
test77 = Applicat.Children(1).Description
Set Connection1 = Applicat.Children(0)
test88 = Applicat.Children(0).Description
If test77 Like "*P05*" Then
Set session = Connection.Children(0)
ElseIf test88 Like "*P05*" Then
Set session = Connection1.Children(0)
Else
MsgBox ("P05 System ist nicht geöffnet")
GoTo Ende
End If

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nXXX"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/mbar/menu[5]/menu[0]").Select
session.findById("wnd[1]/usr/radRAD1").Select
session.findById("wnd[1]/tbar[0]/btn[2]").press
session.findById("wnd[0]/tbar[1]/btn[19]").press
session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").setCurrentCell 15, "DBBGTEXT"
session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").selectedRows = "15"
session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").doubleClickCurrentCell
session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").firstVisibleRow = 52
session.findById("wnd[0]/usr/ctxtRS38R-QNUM").Text = "XXX"
session.findById("wnd[0]/usr/ctxtRS38R-QNUM").SetFocus
session.findById("wnd[0]/usr/ctxtRS38R-QNUM").caretPosition = 13
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/ctxtSP$00002-LOW").Text = "XXX"
session.findById("wnd[0]/usr/ctxtSP$00010-LOW").Text = "500"
session.findById("wnd[0]/usr/ctxtSP$00004-LOW").Text = Workbooks("Stammdaten Gewichtsartikel Lager 500.xlsm").Sheets("Tabelle1").Range("G6").Value
session.findById("wnd[0]/usr/ctxt%LAYOUT").Text = "GEWICHTKEVIN"
session.findById("wnd[0]/usr/ctxt%LAYOUT").SetFocus
session.findById("wnd[0]/usr/ctxt%LAYOUT").caretPosition = 12
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/usr/cmbG_LISTBOX").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").SetFocus
session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 0
session.findById("wnd[1]").sendVKey 4
session.findById("wnd[2]/usr/ctxtDY_PATH").Text = "XXX"
session.findById("wnd[2]/usr/ctxtDY_FILENAME").Text = "Zwischenablage.XLSX"
session.findById("wnd[2]/usr/ctxtDY_FILENAME").caretPosition = 19
session.findById("wnd[2]/tbar[0]/btn[11]").press
session.findById("wnd[1]/tbar[0]/btn[11]").press

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/btn[15]").press
session.findById("wnd[0]/tbar[0]/btn[15]").press
session.findById("wnd[0]/tbar[0]/btn[15]").press

Application.Workbooks.Open "XXX\Zwischenablage.xlsx"


Columns("M:M").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("M1").Select
ActiveCell.FormulaR1C1 = "Sollgewicht"
Range("M2").Select
Columns("M:M").EntireColumn.AutoFit
Columns("M:M").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("M1").Select
ActiveCell.FormulaR1C1 = "Vergleich"
Range("M2").Select
Columns("M:M").EntireColumn.AutoFit

Range("N2").FormulaR1C1 = _
"=VLOOKUP(RC[-8],'[XXX.xlsm]Tabelle1'!R2C1:R369C5,5,0)"
Range("N2").Select
Selection.AutoFill Destination:=Range("N2:N5000")
Range("N2:N5000").Select
Selection.Copy
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("M2").FormulaR1C1 = "=IF(RC[1]=RC[2],""Richtig"",""Falsch"")"
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:M5000")
Range("M2:M5000").Select
Selection.Copy
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=14, Criteria1:=Array( _
"#NV", "k", "n"), Operator:=xlFilterValues
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-84
ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=14
ActiveWindow.SmallScroll Down:=-33
ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=13, Criteria1:= _
"Richtig"
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=13
ActiveWindow.SmallScroll Down:=-21
Range("A2").Select
ActiveWindow.SmallScroll Down:=-42

ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=14, Criteria1:="#NV"
Rows("2:2").Select
ActiveWindow.SmallScroll Down:=-3
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=14
Range("A1").Select


Workbooks("Zwischenablage.xlsx").SaveAs Filename:="XXX.xlsx"

Application.Workbooks.Open "XXX.xlsx"

Workbooks("Zwischenablage.xlsx").Close False Diese Funktion will nicht

Workbooks("XXX.xlsm").Range("H1").Select
Workbooks("XXX.xlsm").Close False


Ende:

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub


Also es handelt sich hierbei um die Datei "Zwischenablage.xlsx". Seit dem SAP-Script will sich diese Datei nicht schließen lassen. Ich habe mehrfach Google benutzt und Alternativen ausprobiert. Vor dem SAP-Script konnte ich die Datei trotz .XLSX über das Makro schließen lassen. Nun bleibt sie geöffnet. Könnte mir da jemand bitte weiterhelfen?

Danke vorab
aidk89