Ich möchte ein Datenblatt unter einem BESTIMMTEN Namen immer wieder speichern...
Bei der Makroausführung kommt immer die Meldung: DIE DATEI EXSISTIERT AN DIESEM PLATZ SCHON,
SOLL DIESE ÜBERSCHRIEBEN WERDEN. Wie kann ich OHNE diese Abfrage speichern.
Geht das irgendwie mit SAVE:=TRUE oder so ?
Hier das Makro:
Do
Workbooks.Open FileName:="\\BYJ237\USER\HPLC\HELMUT\DDE\BLATT001.xls"
Wert = Range("c2").Value
Wert2 = Right(Wert, 10)
Datenfile = Left(Wert2, 8)
ActiveWorkbook.SaveAs FileName:=Datenfile, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
Pausenlänge = 10 ' Dauer festlegen. zum testen
Start = Timer ' Anfangszeit setzen.
Do While Timer Loop
Ende = Timer ' Ende festlegen.
ActiveWorkbook.Close
Pausenlänge = 5 ' Dauer festlegen. zum Testen
Start = Timer ' Anfangszeit setzen.
Do While Timer Loop
P.S.: Das Datenblatt BLATT001.xls wird über eine DynamicDataExchange immer wieder verändert auf einem
Server abgelegt
count.negative
