使用Excel VBA打开Access时如何隐藏弹出的Access窗口

你此前设置acApp.Visible = False不生效，核心原因是Access的OpenCurrentDatabase方法执行时会默认重写实例的可见性属性，强制将窗口置为显示状态，导致之前的设置失效。可根据你的使用场景选择以下两种方案解决：

方案1：调整可见性配置（需保留Access.Application实例的场景） #

如果需要用到Access应用层能力（例如运行Access宏、打开Access内置对象等），可以调整可见性设置的时机，或搭配Win32 API强制隐藏窗口：

基础调整方法 #

Dim acApp As New Access.Application
' 打开数据库前先设置隐藏
acApp.Visible = False
acApp.OpenCurrentDatabase "File Address"
' 打开数据库后再次设置隐藏，覆盖方法默认的可见性赋值
acApp.Visible = False
Dim db As DAO.Database: Set db = acApp.CurrentDb

如果上述方法仍存在窗口闪现问题，可以用API强制隐藏，兼容性更强：
首先在模块顶部添加API声明：

#If VBA7 Then
    Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long
#Else
    Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
#End If
Const SW_HIDE = 0

调用逻辑：

Dim acApp As New Access.Application
acApp.OpenCurrentDatabase "File Address"
' 直接调用系统API隐藏Access主窗口
ShowWindow acApp.hWndAccessApp, SW_HIDE
Dim db As DAO.Database: Set db = acApp.CurrentDb

方案2：直接通过DAO连接数据库（完全无窗口，推荐） #

如果你的需求仅为操作数据库中的表、查询数据，无需使用Access应用层功能，完全不需要创建Access.Application实例，直接调用DAO的OpenDatabase方法连接即可，全程不会弹出任何界面，运行效率也更高：

Dim db As DAO.Database
' 直接连接数据库，无需启动Access应用
Set db = OpenDatabase("你的Access文件完整路径")
' 后续直接使用db对象执行查询、读写表数据即可

注意事项 #

如果目标Access数据库配置了自动启动宏、自动加载窗体，需要先取消该类启动配置，或打开数据库时按住Shift跳过启动项，避免启动逻辑强制弹出窗口。

内容的提问来源于stack exchange，提问作者Jason Brady