注意
如果 Microsoft Jet 表达式服务在沙盒模式下运行，则本主题中描述的函数、方法、对象或属性将被禁用，这会阻止对潜在不安全表达式进行评估。 有关沙盒模式的详细信息，请在帮助中搜索“沙盒模式”。
返回最初使用 SaveSetting 创建) (Windows 注册表中的应用程序条目或 Macintosh 上的 (创建的键设置及其各自值的列表或应用程序初始化文件中的) 信息。
语法
GetAllSettings (appname， section)
GetAllSettings 函数语法具有以下参数：
| 参数 | 说明 |
|---|---|
| 应用名称 | 必需。 包含请求其键设置的应用程序或项目名称的字符串表达式。 在 Macintosh 中，这是“系统”文件夹中“首选项”文件夹中初始化文件的文件名。 |
| 节 | 必需。 包含请求其键设置的部分名称的字符串 表达式 。 GetAllSettings 返回一个变体，其内容是一个二维字符串数组，其中包含指定部分中的所有键设置及其相应的值。 |
备注
如果应用名或部分不存在，GetAllSettings 将返回未初始化的变体。
示例
注意
下面的示例演示了在Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在“搜索”旁边的下拉列表中选择“开发人员参考”，然后在搜索框中输入一个或多个术语。
此示例首先使用 SaveSetting 语句在 Windows 注册表中为指定为 appname 的应用程序创建条目，然后使用 GetAllSettings 函数显示设置。 请注意，无法使用 GetAllSettings 检索应用程序名称和节名称。 最后， DeleteSetting 语句删除应用程序的条目。
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"