Classe PublishObject - um item em uma pasta de trabalho que foi salva em uma página da Web e pode ser atualizada de acordo com os valores especificados pelas propriedades e métodos do objeto PublishObject (Excel VBA)

A classe PublishObject representa um item em uma pasta de trabalho que foi salva em uma página da Web e pode ser atualizada de acordo com os valores especificados pelas propriedades e métodos do objeto PublishObject. Para usar uma variável de classe PublishObject, ela primeiro precisa ser instanciada por exemplo


Dim pblobj as PublishObject
Set pblobj = ActiveWorkbook.PublishObjects(Index:=1)

For Each

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


blnChartFound = False 
For Each objPO In Workbooks(1).PublishObjects 
 If objPO.SourceType = xlSourceChart Then 
 strFirstPO = objPO.Source 
 blnChartFound = True 
 Exit For 
 End If 
Next objPO

AutoRepublish

Quando uma pasta de trabalho é salva, o Microsoft Excel determina se qualquer item na coleção PublishObjects tem a propriedade autorepublic definida como truee, em caso afirmativo, o republicará. O valor padrão é False. Boolean de leitura/gravação.


ActiveWorkbook.PublishObjects(1).AutoRepublish = True

Delete

Exclui o objeto.


ActiveWorkbook.PublishObjects(1).Delete

DivID

Retorna o identificador exclusivo usado para identificar uma marca

HTML em uma página da Web. A marca é associada a um item em um documento salvo em uma página da Web. Um item pode ser uma pasta de trabalho inteira, uma planilha, um intervalo de impressão selecionado, um intervalo de AutoFiltro, um intervalo de células, um gráfico, um relatório de tabela dinâmica ou uma tabela de consulta. String somente leitura.


Dim strDivID As String
strDivID = ActiveWorkbook.PublishObjects(1).DivID

Filename

Retorna ou define a URL na intranet ou na Web ou o caminho (local ou de rede) para o local onde o objeto de origem especificado foi salvo. String de leitura/gravação.

A propriedade filename gera um erro se uma pasta no caminho especificado não existir.


ActiveWorkbook.PublishObjects(1).FileName = _ 
 "\\Server2\Q1\StockReport.htm"

HtmlType

Retorna ou define o tipo de HTML gerado pelo Microsoft Excel quando você salva o item especificado em uma página da Web. Pode ser uma das constantes XlHtmlType que especificam se o item é estático ou interativo na página da Web. O valor padrão é xlHtmlStatic.


ActiveWorkbook.PublishObjects(1).HtmlType = xlHtmlStatic

Publish

Salva um item ou uma coleção de itens em um documento em uma página da Web.

A propriedade filename retorna ou define o local e o nome do arquivo HTML.

Publish (Create)

Create: Se o arquivo HTML existir, a definição deste argumento como True substitui o arquivo, enquanto a definição como False insere o(s) item(ns) no final do arquivo. Se o arquivo não existir, o arquivo será criado independentemente do valor do argumento Create .


With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ 
 "\\Server1\sharedfolder\Stockreport.htm", "First Quarter", _ 
 "$D$5:$D$9", xlHtmlStatic, "Book2_25082", "") 
 .Publish (True) 
 .AutoRepublish = True 
End With

Sheet

Retorna o nome de planilha do objeto PublishObject especificado. String somente leitura.


Dim strSheet As String
strSheet = ActiveWorkbook.PublishObjects(1).Sheet

Source

Retorna um valor que representa o nome exclusivo que identifica itens que possuem um valor de propriedade SourceType igual a xlSourceRange, xlSourceChart, xlSourcePrintArea, xlSourceAutoFilter, xlSourcePivotTable ou xlSourceQuery.

Se a propriedade SourceType estiver definida como xlSourceRange, ela retornará um intervalo, que pode ser um nome definido. Se a propriedade SourceType estiver definida como xlSourceChart, xlSourcePivotTable ou xlSourceQuery, ela retornará o nome do objeto, como um nome de gráfico, de tabela de consulta ou de relatório de tabela dinâmica.


Dim strSource As String
strSource = ActiveWorkbook.PublishObjects(1).Source

SourceType

Retorna um valor XlSourceType que representa o tipo de item que está sendo publicado. Os valores de retorno possíveis são xlSourceAutoFilter - Um intervalo de AutoFiltro, xlSourceChart - Um gráfico, xlSourcePivotTable - Um relatório de tabela dinâmica, xlSourcePrintArea - Um intervalo de células selecionado para impressão, xlSourceQuery - Uma tabela de consulta (intervalo de dados externos), xlSourceRange - Um intervalo de células, xlSourceSheet - Uma planilha inteira, xlSourceWorkbook - Uma pasta de trabalho.


Dim xstSourceType As XlSourceType
xstSourceType = ActiveWorkbook.PublishObjects(1).SourceType

Title

Retorna ou define o título da página da Web quando o documento é salvo como uma página da Web. String de leitura/gravação.

O título geralmente é exibido na barra de título da janela quando o documento é exibido no navegador da Web.


Workbooks(1).PublishObjects(1).Title = "Sales Forecast"