Range.InsertDatabase 方法 (Word)
从数据源 (例如，一个单独的 Word 文档，Microsoft Excel 工作表中或 Microsoft Access 数据库) 检索数据并将数据插入表替换指定的范围。
语法
表达式。InsertDatabase (Format、 Style、 LinkToSource、 Connection、 SQLStatement、 SQLStatement1、 PasswordDocument、 PasswordTemplate、 WritePasswordDocument、 WritePasswordTemplate、 DataSource、 From、 To、 IncludeFields)
expression 是必需的。 一个代表 Range 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Format | 可选 | Variant | “表格”菜单“表格自动套用格式”对话框的“格式”框中列出的一种格式。 可以是任何的 WdTableFormat 常量。 默认情况下，边框应用到表中的单元格。 |
| Style | 可选 | Variant | Format 指定的应用于表的自动套用格式的属性。 |
| LinkToSource | 可选 | Variant | 为 建立新的表和数据源之间的链接。 |
| Connection | 可选 | Variant | 执行 SQLStatement 指定的查询的范围。 |
| SQLStatement | 可选 | String | 检索主数据源中要插入文档的数据集。 |
| SQLStatement1 | 可选 | 字符串 | 如果查询字符串长度超过 255 个字符， SQLStatement 表示字符串的第一部分， SQLStatement1 表示第二部分。 |
| PasswordDocument | 可选 | Variant | 打开数据源所需的密码（如果有。 请参阅下面的"说明"）。 |
| PasswordTemplate | 可选 | Variant | 如果数据源是 Word 文档，则该参数是打开附加模板所需的密码（如果有。 请参阅下面的"说明"）。 |
| WritePasswordDocument | 可选 | Variant | 保存对文档所作修改所需的密码（如果有。 请参阅下面的"说明"）。 |
| WritePasswordTemplate | 可选 | Variant | 保存对模板所作修改所需的密码（如果有。 请参阅下面的"说明"）。 |
| DataSource | 可选 | Variant | 数据源的路径和文件名称。 |
| From | 可选 | Variant | 要插入的记录区域中第一条记录的编号。 |
| To | 可选 | Variant | 要插入的记录区域中最后一条记录的编号。 |
| IncludeFields | 可选 | Variant | 为 新表的第一行中包含数据源中的字段名称。 |
安全性
重要
尽量避免在应用程序中使用硬编码的密码。 如果过程中需要使用密码，请向用户请求密码并将其存储在一个变量中，然后在代码中使用该变量。 有关如何执行此操作的建议最佳做法，请参阅 Office 解决方案开发人员的安全说明。
备注
Style 参数的值可为以下值的任意组合的总和：
| 值 | Description |
|---|---|
| 0（零） | 无 |
| 1 | 边框 |
| 2 | 底纹 |
| 4 | 字体 |
| 8 | 对应颜色 |
| 16 | 自动填充 |
| 32 | 标题行 |
| 64 | 最后一行 |
| 128 | 第一列 |
| 256 | 最后一列 |
指定 Connection 参数的方式取决于检索数据的方式。 例如：
当通过开放式数据库连接 (Open Database Connectivity, ODBC) 检索数据时，请指定一个连接字符串。
当使用动态数据交换 (DDE) 检索 Excel 的数据时，请指定一个已命名的区域或"整张电子表格"。
当检索 Access 的数据时，请指定单词"Table"或"Query"，后面紧接表格或查询名称。
示例
本示例在所选内容之后插入名为"Data.xls"的 Excel 电子表格。 Style 值 (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 支持和反馈，获取有关如何接收支持和提供反馈的指南。