Propriedade PublishObject.DivID (Excel)

Retorna o identificador exclusivo usado para identificar uma marca HTML <DIV> em uma página da Web. A marca está associada a um item em um documento que você salvou 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.

Sintaxe

expressão. DivID

Expressão Uma variável que representa um objeto PublishObject .

Exemplo

Este exemplo salva um intervalo de células em uma página da Web e, em seguida, obtém o identificador da <DIV> marca deste item e localiza a linha na página da Web salva (q198.htm). O exemplo também cria uma cópia da página da Web (newq1.htm) e insere uma linha de comentário antes da <DIV> marca na cópia do arquivo.

Set objPO = ActiveWorkbook.PublishObjects.Add( _ 
 SourceType:=xlSourceRange, _ 
 Filename:="\\Server1\Reports\q198.htm", _ 
 Sheet:="Sheet1", _ 
 Source:="C2:D6", _ 
 HtmlType:=xlHtmlStatic) 
objPO.Publish 
strTargetDivID = objPO.DivID 
Open "\\Server1\Reports\q198.htm" For Input As #1 
Open "\\Server1\Reports\newq1.htm" For Output As #2 
While Not EOF(1) 
 Line Input #1, strFileLine 
 If InStr(strFileLine, strTargetDivID) > 0 And _ 
 InStr(strFileLine, "<div") > 0 Then 
 Print #2, "<!--Saved item-->" 
 End If 
 Print #2, strFileLine 
Wend 
Close #2 
Close #1

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.