通过 SaveAsTemplate 方法，可以将现有 Access 数据库文件转换为数据库模板 (.accdt) 格式化文件，该格式文件可在 Microsoft Office Access 入门 页面上提供。
语法
expression。 SaveAsTemplate (TemplateLocation、 TemplateName、 PreviewImage、 Description、 Category、 Keywords、 Identifier、 Reserved)
表达 一个代表 TemplateCreator 对象的变量。
下表描述了 SaveAsTemplate 方法的参数。
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| TemplateLocation | 必需 | 字符串 | 要创建的数据库模板的完整路径和文件名。若要使模板显示在具有 Microsoft Office Access 的入门页上，必须将其保存到用户的“应用程序数据”文件夹的 Microsoft\Templates 子文件夹中。 在 Windows XP 中，“应用程序数据”文件夹的默认位置为 C：\Documents and Settings\ User Name \Application Data，其中 “用户名” 是当前登录的用户的名称。 在 Windows Vista 中，“应用程序数据”文件夹的默认位置为 C：\Users\ User Name \AppData\Roaming，其中 “用户名” 是当前登录的用户的名称。 使用 Environ 函数确定用户的 Application Data 文件夹的当前位置。 以下代码演示了如何执行此操作。 strTemplateLocation = Environ("AppData") & "\Microsoft\Templates\" |
| TemplateName | 可选 | 字符串 | 用户打开模板时创建的数据库的名称。 |
| PreviewImage | 可选 | 字符串 | 用作 Microsoft Office Access 入门上数据库模板预览的图像文件。 |
| 说明 | 可选 | 字符串 | 当用户在“使用 Microsoft Office 访问的入门”页中选择数据库模板时显示的说明。 |
| 类别 | 可选 | 字符串 | 数据库模板将显示在 Microsoft Office Access 入门页上的模板类别。 |
| Keywords | 可选 | 字符串 | 要添加到模板的文件属性的关键字。 |
| 标识符 | 可选 | 字符串 | |
| Reserved | 可选 | String |
用法
在调用 SaveAsTemplate 方法之前，必须实例化 TemplateCreator 对象。 实例化 TemplateCreator 对象需要与在 Access 中实例化内置对象不同的技术。 若要实例化 TemplateCreator 对象，必须使用 COMAddins 集合。
以下代码演示如何通过 COMAddins 集合实例化 AccessDeveloperExtensions 对象。
Set objTemplate = Application.COMAddIns("AccessAddIn.ADE").Object.TemplateObject
以下示例创建名为“资产跟踪器”的新模板，并将其分配给“使用 Microsoft Office 访问的入门”页面上的“部门数据”类别。
Dim objTemplate As TemplateCreator
Dim strTemplateLocation As String
' The database template must be saved to this location to appear on the
' Getting Started with Microsoft Office Access page.
strTemplateLocation = Environ("AppData") & "\Microsoft\Templates\"
' Instantiate a TemplateObject object.
Set objTemplate = Application.COMAddIns("AccessAddIn.ADE").Object.TemplateObject
' Create the database template.
objTemplate.SaveAsTemplate TemplateLocation:=strTemplateLocation & "AssetTracker.accdt", _
TemplateName:="Asset Tracker", _
Category:="Departmental Data"
必须设置对 Access 开发人员扩展类型库的引用才能使用 SaveAsTemplate 方法。 为此，请按照下列步骤操作：
- 在“工具”菜单上，单击“引用”。
- 选中“ Microsoft Office Access 开发人员扩展类型库 1.0 ”复选框，然后单击“ 确定”。
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。