Свойство PublishObject.DivID (Excel)

Возвращает уникальный идентификатор, используемый для идентификации HTML-тега <DIV> на веб-странице. Тег связан с элементом в документе, сохраненном на веб-странице. Элемент может быть целой книгой, листом, выбранным диапазоном печати, диапазоном автофильтра, диапазоном ячеек, диаграммой, отчетом сводной таблицы или таблицей запросов. Только для чтения, String.

Синтаксис

expression. DivID

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

Пример

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

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

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

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