bestehende Datei überschreiben
Wilfried
Ich habe folgendes Problem:
Ich möchte eine aufbereitete Text-Datei in eine Exceldatei abspeichern.
Diese Exceldatei existiert bereits mit den Vormonatswerten. Deshalb kommt immer die Sicherheitsabfrage: "Eine Datei mit dem Namem abc.xls existiert bereits an diesem Platz. Soll sie ersetzt werden?"
Ich möchte diese Sicherheitsabfrage gerne umgehen!! (Speichern ohne Sicherheitsabfrage)
Wer hat dazu eine Idee!!!
Mein derzeitiges Makro sieht folgendermaßen aus:
Sub Aufbereiten()
For W = 1 To 183
Windows("aufbereiten.xls").Activate
Sheets("Dialog").Select
Range("b1").Select
ActiveCell.FormulaR1C1 = W
Windows("aufbereiten.xls").Activate
Workbooks.OpenText Filename:=Range("dialog!c1"), _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False _
, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
, 1), Array(11, 1), Array(12, 1))
ActiveSheet.Name = "Daten"
Range("a1").Select
HIER IST DAS PROBLEM!!!!
ActiveWorkbook.SaveAs Filename:=Range("[aufbereiten.xls]dialog!d1"), FileFormat:=xlNormal _
, CreateBackup:=False
ActiveWorkbook.Saved = True
ActiveWindow.Close u_False
Next
End Sub
Ich würde mich über einen Tip sehr freuen
Gruß
Wilfried
Anzeige