Метод PublishObjects.Add (Excel)

Статья
04/07/2023

Создает объект , представляющий элемент в документе, сохраненном на веб-странице. Такие объекты упрощают последующие обновления веб-страницы, а в документ в Microsoft Excel вносятся автоматические изменения. Возвращает объект PublishObject .

Синтаксис

expression. Добавить (SourceType, FileName, Sheet, Source, HtmlType, DivID, Title)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SourceType	Обязательный	XlSourceType	Тип источника.
FileName	Необязательный	Variant	Строка. URL-адрес (в интрасети или интернете) или путь (локальный или сетевой), на который был сохранен исходный объект.
Sheet	Необязательный	Variant	Имя листа, сохраненного в качестве веб-страницы.
Source	Optional	Variant	Уникальное имя, используемое для идентификации элементов с одной из следующих констант в качестве аргумента SourceType : xlSourceAutoFilter, xlSourceChart, xlSourcePivotTable, xlSourcePrintArea, xlSourceQuery или xlSourceRange. Если параметр SourceType имеет значение xlSourceRange, источник указывает диапазон, который может быть определенным именем. Если sourceType имеет значение xlSourceChart, xlSourcePivotTable или xlSourceQuery, источник указывает имя диаграммы, отчета сводной таблицы или таблицы запросов.
HtmlType	Необязательный	Variant	Указывает, сохраняется ли элемент как интерактивный веб-компонент Microsoft Office или как статический текст и изображения. Может быть одной из констант XlHTMLType : xlHtmlCalc, xlHtmlChart, xlHtmlList или xlHtmlStatic.
DivID	Необязательный	Variant	Уникальный идентификатор, используемый в теге DIV HTML для идентификации элемента на веб-странице.
Title	Необязательный	Variant	Название веб-страницы.

Возвращаемое значение

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

Пример

В этом примере диапазон D5:D9 на листе "Первый квартал" в активной книге сохраняется на веб-странице с именем Stockreport.htm.

With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _ 
    Filename:="\\Server\Stockreport.htm", Sheet:="First Quarter", Source:="$G$3:$H$6", _ 
    HtmlType:=xlHtmlStatic, DivID:="Book1_4170") 
        .Publish (True) 
        .AutoRepublish = False 
End With

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

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

Поделиться через