Herbers Excel-Forum - das Archiv
txt-Datei speichern ohne Warnhinweise..
- txt-Datei speichern ohne Warnhinweise.. von Marcel vom 11.11.2003 15:38:59
- AW: txt-Datei speichern ohne Warnhinweise.. - von BerndB am 11.11.2003 15:55:47
- AW: txt-Datei speichern ohne Warnhinweise.. - von Marcel am 11.11.2003 16:05:50
- AW: txt-Datei speichern ohne Warnhinweise.. - von Marcel am 11.11.2003 16:05:50
- AW: txt-Datei speichern ohne Warnhinweise.. - von BerndB am 11.11.2003 15:55:47
 |
Betrifft: txt-Datei speichern ohne Warnhinweise..
von: Marcel
Geschrieben am: 11.11.2003 15:38:59
Hallo,
ich möchte ein Blatt "Tabelle2" als Text(Tabs getrennt) unter dem Namen Zweige.txt abspeichern und dabei folgende Warnhinweise ignorieren:
(ohne sie bestätigen zu müssen)
"Die Datei Zweige.txt besteht bereits. Möchten Sie die bestehende Datei ersetzen?"
- Ja, will ich
"Der ausgewählte Dateityp unterstützt keine Arbeitsmappen, die mehrere Blätter enthalten. Klicken sie auf 'OK', wenn nur das aktuelle Arbeitsblatt gespeichert werden soll...."
- OK
und
"Zweige.txt kann Merkmale enthalten, die mit Text(Tabs) getrennt nicht kompatibel sind. Möchten Sie die Arbeitsmappe in diesem Format speichern?..."
- Ja, will ich.
...ist das irgendwie möglich?
Danke für Anregungen und Ideen,
Marcel
 |
Betrifft: AW: txt-Datei speichern ohne Warnhinweise..
von: BerndB
Geschrieben am: 11.11.2003 15:55:47
Hallo Marcel,
verwende die Ausdrücke:
Application.DisplayAlerts = False
vor der Kopieraktion und
Application.DisplayAlerts = True
danach.
Gruß Bernd
|
Betrifft: AW: txt-Datei speichern ohne Warnhinweise..
von: Marcel
Geschrieben am: 11.11.2003 16:05:50
Danke, Bernd
aber ich habe gerade von einem Kollegen einen Tip bekommen.
Habe die Tabelle in eine neue Mappe kopiert, diese gespeichert und gleich danach wieder geschlossen - funktioniert.
Sheets("Tabelle2").Select
Range("A1:C404").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="E:\Netzberechnung\Zweige.txt", FileFormat:=xlText _
, CreateBackup:=False
ActiveWindow.Close False
| |