Probleme mit "Close"



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Probleme mit "Close"
von: Helmut
Geschrieben am: 21.05.2002 - 09:52:42

Hallo,

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

nach oben   nach unten

Re: Probleme mit "Close"
von: Nike
Geschrieben am: 21.05.2002 - 11:18:23

Hi,
vielleicht erst noch
workbooks("edifact.txt").saved=true
und dann
workbooks("edifact.txt").close

Bye

Nike


nach oben   nach unten

Re: Probleme mit "Close"
von: Helmut
Geschrieben am: 21.05.2002 - 13:21:26

Vielen Dank für Deine Hilfe - jetzt funktioniert es.
Helmut

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "UserForm bleibt aktiviert"