Propriedade PublishObject.DivID (Excel)

Devolve o identificador exclusivo utilizado para identificar uma etiqueta HTML <DIV> numa página Web. A etiqueta está associada a um item num documento que guardou numa página 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 guarda um intervalo de células numa página Web e, em seguida, obtém o identificador da <DIV> etiqueta deste item e localiza a linha na página Web guardada (q198.htm). O exemplo também cria uma cópia da página Web (newq1.htm) e insere uma linha de comentário antes da <DIV> etiqueta na cópia do ficheiro.

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.