Speichermakro ausführen

Hallo,
ich habe ein weiteres Problem mit der selben Datei mit der ihr mir beim letzten mal schon so gut geholfen habt. Deshalb dachte ich, ich wende mich wieder an euch.;)
Also ich brauche ein Makro, das die Excel-Datei (.xls) alle 15 Sekunden als Webarchiv abspeichert(.mht).
Das Makro soll laufen, sobald man die Excel-Datei geöffnet hat.
Ich hatte schon nach einem Makro gesucht und diesen Code hier gefunden:

ActiveWorkbook.SaveAs Filename:= _
"C:\test.mht" _
, FileFormat:=xlWebArchive, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True

Dabei treten natürlich Probleme auf:
1. Wenn es die .mht-Datei abgespeichert hat, ist diese offen und die .xls Datei kann sie nichtmehr neu generieren, da sie nichtmehr geöffnet ist.
2. Das Makro führt sich nicht von Anfang an alle 15 Sekunden aus.
3. Beim Speichern fragt es immer nach, ob es speichern soll.
Wie ihr sehr bin ich nicht sehr gut in VBA :( aber ich bemüh mich.
Ich hab schon lange gesucht aber nichts gefunden.
Kann mir einer helfen?
mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Moin Mario.
Frühaufsteher oder was ?!
Also mal zur Erklärung:
Der GANZE Code muss in die Arbeitsmappe die du als .mht abspeichern willst.
Option Explicit
' Merkt sich den Zeitpunkt der nächsren Ausführung, zum stoppen den zyklischen Speicherns.
Dim AppOnTimeZeit As Date

Sub ZyklischSpeichern()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
' Beim SaveAs passiert genau das was du beschrieben hast, die Origina-Datei wird geschlossen  _
und
' die .mht ist offen.
' Um das zu verhindern wird erst eine Kopie (SaveCopieAS) der Originaldaeti gespeichert.
ActiveWorkbook.SaveCopyAs Filename:="C:\Copy\Teeemppp.xls"
' Diese Kopie wird dann geöffnet
Workbooks.Open "C:\Copy\Teeemppp.xls"
' Und dann wird von der nun geöffneten Datei mit SaveAs die .mht erzeugt.
' Denn nur bei SaveAs kann man die benötigten Parameter für die .mht mitgeben.
ActiveWorkbook.SaveAs Filename:="C:\Copy\Test.mht", _
FileFormat:=xlWebArchive, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
' Dann die .mht wieder zumachen
ActiveWorkbook.Close SaveChanges:=False
' Diese Zeile ist nur als Test damit man sieht das sich in der Datei was ändert, kannst du  _
rausnehmen.
ActiveWorkbook.ActiveSheet.Range("A21") = Now
' Neuer Aufruf um das zyklische speichern in 5 Sekunden wider aufzurufen
' Die Zeit ier anpassen.
AppOnTimeZeit = Now + TimeValue("00:00:05")
Application.OnTime EarliestTime:=AppOnTimeZeit, Procedure:="ZyklischSpeichern"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
' Fertig
End Sub

Sub ZyklischSpeichernBeenden()
Application.OnTime EarliestTime:=AppOnTimeZeit, Procedure:="ZyklischSpeichern", Schedule:=False
End Sub

Aber die Fehlermeldung kann ich nicht nachbilden, bei mir klappt es.
WEnn du die Erklärungen hier liest und umsetzt, klappt es dann ?!
Gruß Heiko

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread