如何消除VBScript调用MS Access退出时的确认弹窗

我之前处理过德语版Access类似的自动退出弹窗问题，你的核心问题其实有两个关键点：VBScript不识别Access的内置常量，以及Access的交互提示没被禁用。下面是分步解决方案：

核心问题分析 #

你遇到的德语提示“您确定要退出Access吗”，主要原因有两个：

1. VBScript不属于Access VBA环境，不认识acQuitSaveAll这类内置常量，直接使用会被当作默认值0（对应acQuitPrompt，也就是弹出退出确认）。
2. Access默认会显示交互提示，即使脚本完成了任务，未关闭的数据库对象或系统设置也会触发弹窗。

具体修复步骤 #

1. 替换未定义的Access常量 #

把objAccess.Quit acQuitSaveAll替换为数值1（acQuitSaveAll的实际对应值），因为VBS无法解析Access的常量名。

2. 禁用Access的交互提示 #

在打开数据库前，设置DisplayAlerts = False让Access自动处理所有确认弹窗，同时设置Visible = False让Access后台运行，避免界面相关的干扰。

3. 确保所有数据库对象关闭 #

如果你的CopyBelegarchiv过程没有关闭打开的表单/报表，手动在VBS里循环关闭所有已加载的对象，防止Access因未关闭窗口触发提示。

修改后的完整VBScript代码 #

Dim objAccess
Set objAccess = CreateObject("Access.Application")

' 关键设置：禁用弹窗+后台运行
objAccess.DisplayAlerts = False
objAccess.Visible = False

' 打开目标数据库
objAccess.OpenCurrentDatabase("C:\FiselTools\Allgemein\Scripte\Pellenc-CopyBelegarchiv3.accdb")

' 运行导出CSV的过程
objAccess.Run "CopyBelegarchiv"

' 可选：关闭所有已加载的表单和报表（避免残留窗口触发提示）
Dim dbObj
' 关闭表单（2对应acForm的数值）
For Each dbObj In objAccess.CurrentProject.AllForms
    If dbObj.IsLoaded Then
        objAccess.DoCmd.Close 2, dbObj.Name
    End If
Next
' 关闭报表（3对应acReport的数值）
For Each dbObj In objAccess.CurrentProject.AllReports
    If dbObj.IsLoaded Then
        objAccess.DoCmd.Close 3, dbObj.Name
    End If
Next

' 用数值1强制保存并退出（替代acQuitSaveAll）
objAccess.Quit 1

Set objAccess = Nothing

额外优化建议 #

如果上述方法还不行，可以手动在Access里关闭退出提示：

1. 打开你的Pellenc-CopyBelegarchiv3.accdb数据库
2. 点击Datei（文件）→Optionen（选项）→Aktuelle Datenbank（当前数据库）
3. 在Anwendungseinstellungen（应用程序设置）里取消勾选Bestätigung beim Beenden anzeigen（退出时显示确认）
4. 保存数据库后再测试脚本

内容的提问来源于stack exchange，提问作者HBB-ThinkTank