Tabelle per makro als Webseite speichern

Computer: Software & Programmierung Visual Basic
#1

Guten Abend!

Ich habe ein Makro erstellt, mit dessen Hilfe eine Tabelle als Webseite gespeichert wird. Es geht darum, dass das Dokument nach dem speichern nicht mehr geändert werden kann.

_Private Sub CommandButton1_Click()

ActiveWorkbook.SaveAs Filename:=„R:\Daten\Archiv“ & Range(„M3“) & „.htm“, FileFormat _

:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Save
ActiveWorkbook.Close SaveChanges = True
End Sub_

Dummerweise speichert es die komplette Arbeitsmappe. Es soll aber nur ein Tabellenblatt dieser Mappe gespeichert werden. Habe es mit „Makro aufzeichnen“ probiert, aber das funktioniert auch nicht. Habt ihr eine Idee? Bin bis jetzt in keinem Forum fündig geworden.

Gruß
Maik

#2

Hallo Maik,

ich habe mal einene Makro aufgezeichnet und dabei in einer mehrblättrigen Arbeitsmappe Folgendes gemacht (Excel 2010):
Datei - Speichern unter …
Dateityp „Webseite“ auswählen
Bei „Speichern:“ auswählen „Auswahl: Tabelle“
Dann Speichern.

Der Makro, der dabei rauskam, sieht so aus:

Sub Makro1()
'
' Makro1 Makro
'

'
 With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, \_
 "C:\Dokumente und Einstellungen\Andreas\Eigene Dateien\Mappe1.htm", "Tabelle1" \_
 , "", xlHtmlStatic, "Mappe1\_20190", "")
 .Publish (True)
 .AutoRepublish = False
 End With
End Sub

Kannste ja mal versuchen.

Gruß, Andreas

#3

hallo Andreas, danke für den Tip. hatte es auch schonmal probiert. Wenn ich das Makro dann einfüge kommt das raus:

Laufzeitfehler „1004“ Die Methode „Publish“ für das Objekt „PublishObject“ ist fehlgeschlagen

Hier das Makro:

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, „R:\Archiv“ & Range(„M3“) & „.htm“, „Lieferschein“, „“, xlHtmlStatic, „Mappe1_20190“, „“)

.Publish (True)

.AutoRepublish = False

End With

#4

Hallo Maik,

nur mal schnell ins Blaue geraten: Hast du evtl. vor dem „Archiv“ einen Backlslash zu viel?

Gruß, Andreas

#5

Hallo, nein. kommt davon, dass ich nicht den kompletten pfad aufgeführt habe. Denk dir denk / einfach weg. Im Original-makro ist der Pfad komplett und richtig. Sorry, wenn ich dich verwirrt habe… ;o)

#6

OK,
bin momentan zu müde. Melde mich morgen wieder.
Gute Nacht, Andreas

#7

Grüezi Maik

Versuche es doch mal so, dass Du das Tabellenblatt als neue Mappe kopierst und so dann speicherst:

Private Sub CommandButton1\_Click()
Dim strName As String

 strName = Range("M3").Value

 Worksheets("Tabelle1").Copy 'Hier den Namen des Tabellenblattes angeben

 ActiveWorkbook.SaveAs Filename:="R:\Daten\Archiv\" & strName & ".htm", \_
 FileFormat:=xlHtml, \_
 ReadOnlyRecommended:=False, \_
 CreateBackup:=False
 ActiveWorkbook.Close SaveChanges:=True


 ActiveWorkbook.Save
 ActiveWorkbook.Close SaveChanges:=True
End Sub

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#8

Hallo Maik,

Thomas hat dir ja eine, wie ich finde, sehr praktikabele Lösung gepostet. Wenn du einverstanden bist, werde ich an dem Makro, den ich aufgezeichet hatte (und der bei dir nicht läuft) nicht weiter rumdoktoren.

Gruß, Andreas

#9

Guten Morgen Andreas :wink:

Hab das Problem anders gelöst. Ich lasse das Makro einfach den Druckbereich als JPG exportieren. Schon hab ich das, was ich brauche. Hab den VBA Code dazu in nem anderen Forum gefunden.

Danke dir trotzdem für die Mühe

Maik