In diesem Beispiel wird der Name des Tabellenblatts bestimmt, das das erste PublishObject-Objekt enthält, das in der Webseite als statischer HTML-Code gespeichert wurde. Anschließend wird in dem Beispiel die Variable blnSheetFound vom Typ Boolean auf True festgelegt. Wurden keine Elemente in dem Dokument als statischer HTML-Code gespeichert, ist blnSheetFound False.
blnSheetFound = False For Each objPO In Workbooks(1).PublishObjects If objPO.HtmlType = xlHTMLStatic Then strFirstPO = objPO.Sheet blnSheetFound = True Exit For End If Next objPO