Propiedad PublishObjects.Item (Excel)

Devuelve un solo objeto de una colección.

Sintaxis

expresión. Elemento (índice)

expresión Variable que representa un objeto PublishObjects .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Index	Obligatorio	Variant	Nombre o número de índice del objeto.

Ejemplo

En este ejemplo se obtiene el identificador de una <DIV> etiqueta y se busca la línea de una página web (q198.htm) que guardó de un libro. A continuación, el ejemplo crea una copia de la página web (newq1.htm) e inserta una línea de comentario antes de la <DIV> etiqueta en la copia del archivo.

strTargetDivID = ActiveWorkbook.PublishObjects.Item(1).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.