ich habe eine Routine erstellt, die aus einer Exceltabelle ein Übergabefile für electronic banking erstellt. Das ganze funktioniert recht gut, nur am Ende der Routine lässt sich das Übergabefile ".txt" nicht schließen:
Sub datenexportieren()
ActiveSheet.Calculate
Workbooks.Open ("I:\edifact.xls")
Windows("edifact.xls").Activate
Range("a1:A1000").Select
Selection.Clear
Windows("Banken.xls").Activate
Worksheets("Datenträger").Activate
Rows("7:1000").Select
Selection.Sort Key1:=Range("AK7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AK7:AK1000").Select
Selection.Copy
Windows("edifact.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="I:\edifact.txt", FileFormat:= _
xlTextMSDOS, CreateBackup:=False
ActiveWindow.Close
Windows("Banken.xls").Activate
Range("A5").Select
End Sub
Auch eine Änderung auf "workbook("edifact.txt").close hat nichts gebracht. Das Seltsame daran ist, wenn ich auf die offen gebliebene edifact.txt klicke, ist die Tabelle deaktiviert und kann auch manuell nicht geschlossen werden. Erst nach einem Pseudo-xlcrack (Tabelle ist definitiv nicht gesperrt) lässt sich die Tabelle wieder bearbeiten.
Ich hoffe, dass einer/eine der Excelspezialisten/innen mir helfen kann.
Vielen Dank
Helmut