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


Метод PublishObjects.Add (Excel)

Создает объект , представляющий элемент в документе, сохраненном на веб-странице. Такие объекты упрощают последующие обновления веб-страницы, а в документ в 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 и обратная связь.