Classe PublishObjects (Excel VBA)

Uma coleção de todos os objetos PublishObject na pasta de trabalho. Para usar uma variável de classe PublishObjects, ela primeiro precisa ser instanciada por exemplo

Dim pos as PublishObjects
Set pos = ActiveWorkbook.PublishObjects

For Each

Aqui está um exemplo de processamento dos itens PublishObjects em uma coleção.

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

Add

Cria um objeto que representa um item em um documento salvo em uma página da Web. Esses objetos facilitam atualizações subsequentes na página da Web enquanto as alterações automatizadas estão sendo feitas no documento no Microsoft Excel. Retorna um objeto PublishObject.

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

O seguinte argumento é opcional

SourceType (XlSourceType) - O tipo de fonte.

Os valores possíveis são

Filename (String) - A URL (na intranet ou na Web) ou o caminho (local ou de rede) para o qual o objeto de origem foi salvo.

Optional arguments

Os seguintes argumentos são opcionais

Sheet - O nome da planilha que foi salva como uma página da Web

Source (XlSourceType) - Um nome exclusivo usado para identificar itens que possuem como argumento SourceType uma destas constantes: xlSourceAutoFilter, xlSourceChart, xlSourcePivotTable, xlSourcePrintArea, xlSourceQuery ou xlSourceRange. Se SourceType for xlSourceRange, Source especificará um intervalo, que pode ser um nome definido. Se SourceType for xlSourceChart, xlSourcePivotTable ou xlSourceQuery, Source especificará o nome de um gráfico, um relatório de tabela dinâmica ou uma tabela de consulta.

Os valores possíveis são

HtmlType (XlHtmlType) - Especifica se o item será salvo como um componente interativo do Microsoft Office Web Components ou como texto e imagens estáticas. Pode ser uma das constantes XlHTMLType : xlHtmlCalc, xlHtmlChart, xlHtmlListou xlHtmlStatic.

DivID - O identificador exclusivo usado na marca DIV HTML para identificar o item na página da Web

Title (String) - O título da página da Web.

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveWorkbook.PublishObjects.Count

Delete

Exclui o objeto.

ActiveWorkbook.PublishObjects.Delete

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

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

Publish

Salva uma cópia do item ou itens na planilha que foram adicionados à coleção PublishObjects em uma página da Web.

ActiveWorkbook.PublishObjects.Publish