Klasse PublishObjects (Excel VBA)

Eine Auflistung aller PublishObject -Objekte in der Arbeitsmappe. Um eine PublishObjects -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim pos as PublishObjects
Set pos = ActiveWorkbook.PublishObjects

For Each

Hier ist ein Beispiel für die Verarbeitung der PublishObjects -Elemente in einer Sammlung

Dim pblobj As PublishObject
For Each pblobj In ActiveWorkbook.PublishObjects
	
Next pblobj

Add

Erstellt ein Objekt, das ein Element in einem Dokument darstellt, das auf einer Webseite gespeichert ist.

Add (SourceType, Filename, Sheet, Source, HtmlType, DivID, Title)

With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _ 
    Filename:="\\Server\Stockreport.htm", Sheet:="First Quarter", Source:="$G$3:$H$6", _ 
    HtmlType:=xlHtmlStatic, DivID:="Book1_4170") 
        .Publish (True) 
        .AutoRepublish = False 
End With

Arguments

Hier sind die benannte Argumente :

SourceType (XlSourceType) - Der Quelltyp.

Möglichen Werte sind

Filename - String

Optional arguments

Die folgenden Argumente sind optional

Sheet - Der Name des Arbeitsblatts, das als Webseite gespeichert wurde

Source (XlSourceType) - Ein eindeutiger Name, mit dem Elemente mit einer der folgenden Konstanten als sourceType __ -Argument identifiziert werden: xlSourceAutoFilter, xlSourceChart, xlSourcePivotTable, xlSourcePrintArea, **xlSourceQuery darstellt **oder xlSourceRange.

Möglichen Werte sind

HtmlType (XlHtmlType) - Gibt an, ob das Element als Microsoft Office-Webkomponente interaktiv oder als statischer Text mit statischen Bildern gespeichert wird.

DivID - Die eindeutige ID, die im HTML div-Tag verwendet wird, um das Element auf der Webseite zu identifizieren

Title - String

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.PublishObjects.Count

Delete

Löscht das Objekt.

ActiveWorkbook.PublishObjects.Delete

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer des Objekts.

Dim pblobjItem As PublishObject
Set pblobjItem = ActiveWorkbook.PublishObjects(Index:=1)

Publish

Speichert eine Kopie des Elements oder der Elemente in der Kalkulationstabelle, die der PublishObjects -Auflistung zu einer Webseite hinzugefügt wurden.

ActiveWorkbook.PublishObjects.Publish