speichern aussetzten

Hallo,
habe eine VBA durch Rekorder geschrieben. Problem ist nur das er jedes mal nachfragt ob dies gespeichert werden muß. Klar soll das VBA speichern, aber nicht automatisch nachfragen, da ich dann jeweils manuell eingreifen muß.
Was muß ich tun, damit es automatisch gespeichert wird?
VBA Code
Workbooks.OpenText Filename:="C:\AsciiDatenbank\.DX (X).txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 3), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _
:=True
Application.Run "Testmakro.xls!Zeilenloeschen"
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.OpenText Filename:="C:\AsciiDatenbank\ad (X).txt ", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 3), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _
:=True
Application.Run "Testmakro.xls!Zeilenloeschen"
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Close

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sorry, aber funktioniert nicht. Ich habe aber das makro so abgeändert, das alle Files offen bleiben. Jetzt brauche aber noch den Befehl. Schließe alle offenen Files und speicher sie. Hat irgendeiner eine Idee?


Sub DAX()
' DAX Makro
' Makro am 7/5/2004 von   aufgezeichnet
Workbooks.OpenText Filename:="C:\AsciiDatenbank\.DAX (X).txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 3), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _
:=True
Application.Run "Testmakro.xls!Zeilenloeschen"
Workbooks.OpenText Filename:="C:\AsciiDatenbank\adidas-Salomon (X).txt ", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 3), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _
:=True
Application.Run "Testmakro.xls!Zeilenloeschen"
Workbooks.OpenText Filename:="C:\AsciiDatenbank\Allianz (X).txt  ", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 3), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _
:=True
Application.Run "Testmakro.xls!Zeilenloeschen"
Workbooks.OpenText Filename:="C:\AsciiDatenbank\Altana (X).txt   ", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 3), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _
:=True
Application.Run "Testmakro.xls!Zeilenloeschen"
End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread