Метод Range.InsertDatabase (Word)
Извлекает данные из источника данных (например, отдельный документ Microsoft Word, лист Microsoft Excel или база данных Microsoft Access) и вставляет данные в виде таблицы вместо указанного диапазона.
Синтаксис
expression. InsertDatabase (Format, Style, LinkToSource, Connection, SQLStatement, SQLStatement1, PasswordDocument, PasswordTemplate, WritePasswordDocument, WritePasswordTemplate, DataSource, From, To, IncludeFields)
выражение (обязательно). Переменная, представляющая объект Range .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Format | Необязательный | Variant | Формат, указанный в поле Форматы в диалоговом окне Автоформат таблицы (меню Таблица ). Может быть любой из констант WdTableFormat . Граница применяется к ячейкам в таблице по умолчанию. |
| Style | Необязательный | Variant | Атрибуты автоформата, заданные параметром Format, применяемые к таблице. |
| LinkToSource | Необязательный | Variant | Значение true , чтобы установить связь между новой таблицей и источником данных. |
| Connection | Необязательный | Variant | Диапазон, в пределах которого выполняется запрос, заданный SQLStatement. |
| SQLStatement | Необязательный | String | Необязательная строка запроса, которая извлекает подмножество данных в основном источнике данных для вставки в документ. |
| SQLStatement1 | Необязательный | String | Если строка запроса длиннее 255 символов, SQLStatement обозначает первую часть строки, а SQLStatement1 — вторую. |
| PasswordDocument | Необязательный | Variant | Пароль (если он есть), необходимый для открытия источника данных. (См. примечания ниже.) |
| PasswordTemplate | Необязательный | Variant | Если источником данных является документ Word, этот аргумент является паролем (при наличии), необходимым для открытия присоединенного шаблона. (См. примечания ниже.) |
| WritePasswordDocument | Необязательный | Variant | Пароль, необходимый для сохранения изменений в документе. (См. примечания ниже.) |
| WritePasswordTemplate | Необязательный | Variant | Пароль, необходимый для сохранения изменений в шаблоне. (См. примечания ниже.) |
| DataSource | Необязательный | Variant | Путь и имя файла источника данных. |
| From | Необязательный | Variant | Номер первой записи в диапазоне записей для вставки. |
| Для | Необязательный | Variant | Номер последней записи в диапазоне записей для вставки. |
| IncludeFields | Необязательный | Variant | Значение true , чтобы включить имена полей из источника данных в первую строку новой таблицы. |
Безопасность
Важно!
Избегайте использования в приложениях жестко заданных паролей. Если в процедуре требуется пароль, запросите пароль у пользователя, сохраните его в переменной, а затем используйте эту переменную в коде. Рекомендации по этому способу см. в статье Заметки о безопасности для разработчиков решений Office.
Замечания
Значение аргумента Style может быть суммой любого сочетания следующих значений:
| Значение | Описание |
|---|---|
| 0 (ноль) | Нет |
| 1 | Границы |
| 2 | Заливка |
| 4 | Font |
| 8 | Цвет |
| 16 | Автоматическая посадка |
| 32 | Строки заголовков |
| 64 | Последняя строка |
| 128 | Первый столбец |
| 256 | Последний столбец |
Указание аргумента Connection зависит от способа получения данных. Например:
При получении данных через Open Database Connectivity (ODBC) необходимо указать строку подключения.
При получении данных из Excel с помощью динамического обмена данными (DDE) необходимо указать именованный диапазон или "Вся электронная таблица".
При получении данных из Access необходимо указать слово "Таблица" или "Запрос", за которым следует имя таблицы или запроса.
Пример
В этом примере после выбора вставляется электронная таблица Excel с именем "Data.xls". Значение Стиля (191) представляет собой сочетание чисел 1, 2, 4, 8, 16, 32 и 128.
With Selection
.Collapse Direction:=wdCollapseEnd
.Range.InsertDatabase _
Format:=wdTableFormatSimple2, Style:=191, _
LinkToSource:=False, Connection:="Entire Spreadsheet", _
DataSource:="C:\MSOffice\Excel\Data.xls"
End With
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.