Ist das auch ohne jeglichen _Dialog möglich und Msg Box
Danz ganze möchte ich mit einem Timer automatisiert alle X Minuten laufen lassen.
Timer Modul funktioniert bereits es wäre nur diess Makro anzupassen dass statt Dialog der Ordnerpfad angegeben werden kann und keine Message box kommt.
Er sollte die htmls immer überschrieben.
Option
Explicit
Sub
BlattZuHtm()
Dim
wks
As
Worksheet
Dim
strBlatt
As
String
Dim
strMappe
As
String
Dim
strFileName
As
String
Dim
strPath
As
String
Dim
fDialog
As
FileDialog
Set
fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With
fDialog
.InitialFileName = "C:\"
.Title =
"Wählen Sie den Ordner."
.ButtonName =
"Ausählen"
.InitialView = msoFileDialogViewList
.Show
If
.SelectedItems.Count <> 1
Then
GoTo
Ende
End
If
strPath = .SelectedItems(1)
End
With
For
Each
wks
In
ActiveWorkbook.Worksheets
strBlatt = wks.Name
strFileName = strPath & strBlatt &
".htm"
With
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceSheet, _
Filename:=strFileName, _
Sheet:=strBlatt, _
Source:=
""
, _
HtmlType:=xlHtmlStatic, _
DivID:=
""
, _
Title:=strBlatt)
.Publish (
True
)
.AutoRepublish =
False
End
With
Next
Exit
Sub
Ende:
MsgBox
"Keine Auswahl getroffen"
Set
fDialog =
Nothing
End
Sub