Office: HTML per Makro-Aufzeichnung erstellen

Hallo EXCEL-Spezis,

ich habe eine Excel-Tabelle, aus der ich einen Teil als HTML-Datei (für eine Website) erstellen möchte. Das ist eigentlich auch recht simpel. Aber da sich der Bereich immer mal wieder ändert, wollte ich das per Makro erledigen.
Nun habe ich aber nach der Aufzeichnung im Code etwas seltsames gefunden, was ich mir nicht erklären kann und was eine nachtägliche Bearbeitung des Codes etwas schwierig macht.
Und zwar wird an dem Mappennamen eine Zahl angehängt, deren Bedeutung ich nicht verstehe. Als Beispiel
"WM-Tipp-Mappe 2014_16828"...
Was bedeutet "_16828" und wie wird die berechnet oder erstellt? Zeichne ich ein Makro mit einem anderen Bereich auf, ändert sich die Zahl. Kann auch mal vierstellig sein oder so....

Kann mir jemand erklären, woher diese Zahl kommt?

Gruß
Gerhard

 

Hallo Gerhard,

die Berechnung dieser Zahl braucht man auch nicht verstehen, denn sie ist eine Art Zufallszahl. Sie dient nur dazu die DIV id="Mappe1_28080" align=center x:publishsource="Excel"-Tags eindeutig zu identifzieren. Diese Zahl taucht dann bei allen möglichen untergeordneten Elementen auf.
Man kann das in folgender Microsoft-Page nachlesen: http://msdn.microsoft.com/en-us/library/office/ff837427(v=office.15).aspx
Unter folgendem Microsoft-Link http://msdn.microsoft.com/en-us/library/office/ff840650(v=office.15).aspx kann man auch nachlesen, wie man die Eigenschaft "DivID" des Objektes "PublishObject" auch gezielt setzen kann, obwohl diese Eigenschaft schreibgeschützt ist, sobald die HTM-Exportdatei erzeugt ist:

Code:

Sub PublishToWeb() 
'This example publishes a range on a worksheet to an HTML file on the C: drive. 
'When the user saves the workbook containing the worksheet, Excel will automatically republish the range to the same HTML file. 
'This example assumes that the user has read/write access to the web page and 
'that cells A1 through D10 in the worksheet have values in them. 
  With ActiveWorkbook.PublishObjects.Add( _ 
    SourceType:= xlSourceRange, _ 
    Filename:="C:\Work.htm", _ 
    Sheet:="Tabelle1", _ 
    Source:="A1:D10", _ 
    HtmlType:=xlHtmlStatic, _ 
    [COLOR="#0000CD"]DivID:="Mappe1_130489"[/COLOR]) 
    .Publish 
    .AutoRepublish = True 
  End With 
End Sub

(Anmerkung: Die Sprache auf den meisten MSDN-Seiten sollte man auf "United States English" umschalten, denn die deutsche "Übersetzung" ist häufig entsetzlich.)

 

Hallo Anton,

vielen Dank für deine Erklärung. So einigermaßen habe ich das nun verstanden. Allerdings muss ich gestehen, dass mein Englisch nicht soooooo toll ist. Zum Glück ist das ja nur ein kurzer Text, da geht es so einigermaßen...
Dann werde ich das mal mit dem "gezielt setzen" ausprobieren, klingt jedenfalls recht interessant und vielversprechend.

Also nochmals Dank und Gruß

Gerhard