Свойство PublishObjects.Item (Excel)

Возвращает один объект из коллекции.

Синтаксис

expression. Item (Index)

выражение Переменная, представляющая объект PublishObjects .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Variant	Имя или номер индекса объекта.

Пример

Этот пример получает идентификатор из тега <DIV> и находит строку на веб-странице (q198.htm), сохраненную из книги. Затем в примере создается копия веб-страницы (newq1.htm) и вставляется строка комментария перед <DIV> тегом в копию файла.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.