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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de