Erstellte htm-Seiten haben falschen Namen...
17.11.2007 14:40:18
Jonas
wenn ich folgenden Code ausführe...
Dim Pfad As String, aktuelle_Blatt As String
aktuelle_Blatt = ActiveSheet.Name
MsgBox "Bitte geben Sie im nachfolgenden Dialogfenster den gewünschten Speicherort für die htm-Dateien an. Der Zielordner sollte vorab manuell erstellt werden. Es wird für jeden einzelnen Monat eine htm-Datei erstellt.", vbInformation, "Hinweis..."
Anzeigetext = "Bitte Verzeichnis auswählen," & Chr(13) & _
"in das die htm-Dateien exportiert werden sollen:"
Pfad = GetDirectory(Anzeigetext) & "\"
If Pfad = "\" Or Pfad = "" Then Exit Sub
If Len(Pfad) = 4 Then Pfad = Mid(Pfad, 1, 3)
Application.ScreenUpdating = False
ChDir Pfad
With Sheets
Pfad = Pfad & "januar.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "A1:E57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "februar.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "G1:K57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "märz.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "M1:Q57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "april.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "S1:W57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "mai.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "Y1:AC57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "juni.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "AE1:AI57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "juli.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "AK1:AO57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "august.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "AQ1:AU57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "september.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "AW1:BA57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "oktober.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "BC1:BG57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "November.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "BI1:BM57", xlHtmlStatic, "tabelle_7902").Publish
End With
With Sheets
Pfad = Pfad & "dezember.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
Pfad, _
"htm", "BO1:BS57", xlHtmlStatic, "tabelle_7902").Publish
End With
Sheets(aktuelle_Blatt).Activate
End Sub
...werden zwar 12 htm-Dateien korrekt erstellt, jedoch heißt dann die htm-Seite für Februar "januar.htmfebruar.htm",
die für März "januar.htmfebruar.htmmärz.htm", usw.
Was mache ich da falsch?
Helft mir bitte :-)
Gruss,
Jonas