Hallo,
habe folgenden Skript zum Abspeichern für jedes Tabellenblatt ins Html bekommen:
Dim a As String
Dim lngAnzahl As Long, i As Long
lngAnzahl = Sheets.Count
For i = 1 To lngAnzahl
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:="C:\My Folder\" & ThisWorkbook.Sheets(i).Name, FileFormat:=xlHtml
ActiveWorkbook.Close
End If
End Sub
Will aber zum Speichern folgenden Skript ersetzen, taucht aber immer Fehlermeldung auf:
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\My Folder\qm_elem.htm", "elem", "", xlHtmlStatic, _
"QM-SQL_AllinOne_22669", "").Publish (True)
Was mache ich da falsch. Denn wenn ich das erste Skript benutze, macht es ja hervoragend, nur das Problem ist das die Html Seiten sehen anders aus als wenn man den zweiten Skript verwendet (z.B. Bildaufleisten statt genau angepasst etc.)
Danke für eure Hilfe
Urmila