Propiedad PublishObject.DivID (Excel)

Devuelve el identificador único que se usa para identificar una etiqueta HTML <DIV> en una página web. La etiqueta está asociada a un elemento de un documento que ha guardado en una página web. Un elemento puede ser un libro completo, una hoja de cálculo, un rango de impresión seleccionado, un rango de Autofiltro, un rango de celdas, un gráfico, un informe de tabla dinámica o una tabla de consulta. String de solo lectura.

Sintaxis

expresión. DivID

Expresión Variable que representa un objeto PublishObject .

Ejemplo:

En este ejemplo se guarda un rango de celdas en una página web y, a continuación, se obtiene el identificador de la <DIV> etiqueta de este elemento y se encuentra la línea en la página web guardada (q198.htm). En el ejemplo también se crea una copia de la página web (newq1.htm) y se inserta una línea de comentario antes de la <DIV> etiqueta en la copia del archivo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.