Autospeichern alle 10 Mins als Html

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
in "DieseArbeitsmappe":


Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub
Private Sub Workbook_Open()
StartTimer
End Sub

und in ein normales Modul:


Option Explicit
Public NextTime As Date
'führt Prozedur "SaveHtml" aus und gibt Excel Startzeit für die nächste Ausführung an:
Sub StartTimer()
NextTime = Now + TimeValue("00:00:10") 'alle 10 Minuten
SaveHtml
Application.OnTime NextTime, "StartTimer"
End Sub
'Löscht die OnTime-Anweisung wieder
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=NextTime, Procedure:="StartTimer", Schedule:=False
On Error GoTo 0
End Sub
Sub SaveHtml()
'hier deine Speicherroutine
End Sub

Wenn du Hilfe beim Erstellen der Speicherroutine bauchst, melde dich nochmal.
Gruß Matthias

Hy thx...habs mal eingefügt danke für die prompte antwort
die speicherroutine hab ich mal so abgeschaut, kenn mich mit VBA gar nicht aus


Sub SaveHtml()
'hier deine Speicherroutine
ActiveSheet.SaveAs Filename:="C:\Test.html"
End Sub

Jetz wenn ich aber in die Test.html schau ist nur zahlenwirrwarr so in der Art "Arial1 ÿ¼Arial1 Arial1È Arial1 ¼Arial3#,##0\ "¬ ";\-#,##0\ "¬ "=#,##0\ "¬ ";[Red]\-#,##0\ "¬ "?#,##0.00\ "¬ ";\-#,##0.00\ "¬ "I"#,##0.00\ "¬ ";[Red]\-#,##0.00\ "¬ "q*6_-* #,##0\ "¬ "_-;\-* #,##0\ "¬ "_-;_-* "-"\ "¬ "_-;_-@_-k)3_-* #,##0\ _¬ _-;\-* #,##0\ _¬ _-;_-* "-"\ _¬ _-;_-@_-,>_-* #,##0.00\ "¬ "_-;\-* #,##0.00\ "¬ "_-;_-* "-"?\ "¬ "_-;_-@_-{+;_-* #,##0.00\ _¬ _-;\-* #,##0.00\ _¬ _-;_-* "-"?\ _¬ _-;_-@_-¤#,##0\ "DM";\-#,##0\ "DM"#¥#,##0\ "DM";[Red]\-#,##0\ "DM"$¦#,##0.00\ "DM";\-#,##0.00\ "DM")§$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">¨9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->©"

Sub SaveHtml() On Error GoTo err With Application .StatusBar = "speichert Html..." .DisplayAlerts = False .ScreenUpdating = False End With ActiveSheet.Copy With ActiveWorkbook .ActiveSheet.SaveAs Filename:="c:\test.html", FileFormat:=xlHtml .Close SaveChanges:=False End With err: If err.Number > 0 Then MsgBox err.Description, "Fehler Nr. " & err.Number Application.DisplayAlerts = True Application.StatusBar = False End Sub

Sub SaveHtml() On Error GoTo err With Application .StatusBar = "speichert Html..." .DisplayAlerts = False .ScreenUpdating = False End With ThisWorkbook.Sheets("Tabelle1").Copy '<<< Blatt wird in neue Mappe kopiert With ActiveWorkbook .ActiveSheet.SaveAs Filename:="c:\test.html", FileFormat:=xlHtml '<<< Mappe wird als HTML gespeichert .Close SaveChanges:=False '<<< hier wird die erstellte Mappe wieder geschlossen! End With err: If err.Number > 0 Then MsgBox err.Description, "Fehler Nr. " & err.Number Application.DisplayAlerts = True Application.StatusBar = False End Sub

Sub SaveHtml() Dim Merker As Range '<<< NEU Set Merker = ActiveCell '<<< NEU On Error GoTo err With Application .StatusBar = "speichert Html..." .DisplayAlerts = False .ScreenUpdating = False End With ThisWorkbook.Sheets("Tabelle1").Copy '<<< Blatt wird in neue Mappe kopiert With ActiveWorkbook .ActiveSheet.SaveAs Filename:="c:\test.html", FileFormat:=xlHtml '<<< Mappe wird als HTML gespeichert .Close SaveChanges:=False '<<< hier wird die erstellte Mappe wieder geschlossen! End With err: If err.Number > 0 Then MsgBox err.Description, "Fehler Nr. " & err.Number Application.DisplayAlerts = True Application.StatusBar = False Application.Goto Merker '<<< NEU End Sub

Beliebteste Forumthreads (12 Monate)

Autospeichern alle 10 Mins als Html

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread