Excel VBA运行宏时保持UserForm前台激活并后台启动浏览器的方法

前置配置：确保UserForm始终置顶 #

首先在标准模块中加入兼容32/64位Office的窗口置顶API声明：

#If VBA7 Then
    Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Const HWND_TOPMOST As LongPtr = -1
    Private Const SWP_NOSIZE As Long = &H1
    Private Const SWP_NOMOVE As Long = &H2
#Else
    Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Const HWND_TOPMOST As Long = -1
    Private Const SWP_NOSIZE As Long = &H1
    Private Const SWP_NOMOVE As Long = &H2
#End If

在UserForm的Initialize事件中调用API，固定表单始终在所有窗口顶层显示：

Private Sub UserForm_Initialize()
    ' 你的原有初始化代码（尺寸、配色设置等）
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

核心实现：后台异步启动浏览器 #

不要使用原生FollowHyperlink或同步Shell调用，改用WScript.Shell的Run方法后台加载目标网址，完全不会抢占Excel焦点：

Sub 后台启动浏览器加载(目标网址 As String)
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    ' 参数说明：第二个参数0=隐藏浏览器窗口运行，第三个参数False=不等待浏览器启动完成，直接返回VBA逻辑
    wsh.Run "chrome.exe " & Chr(34) & 目标网址 & Chr(34), 0, False
    ' 如需使用Edge将chrome.exe替换为msedge.exe，火狐替换为firefox.exe即可
    Set wsh = Nothing
End Sub

进度条逻辑调整 #

必须在进度条每次更新数值后加入DoEvents语句，主动触发界面重绘，保证进度值实时显示：

' 你的原有进度条计时逻辑
For 已等待秒数 = 1 To 60 ' 按最长1分钟加载时间设计
    ' 原有进度条更新代码
    进度条控件.Value = 已等待秒数
    提示标签.Caption = "页面加载中，已等待" & 已等待秒数 & "秒"
    ' 强制刷新界面，必不可少
    DoEvents
    ' 原有1秒等待逻辑
    Application.Wait Now + TimeValue("00:00:01")
    ' 可自行扩展加载完成检测逻辑，匹配到银行页面加载状态后提前跳出循环
Next 已等待秒数
' 加载完成后通知用户
MsgBox "银行页面已加载完成，点击确定即可切换到浏览器操作", vbInformation
' 如需自动呼出浏览器，可调用AppActivate激活对应浏览器进程

可选优化 #

如果不想固定等待1分钟，可添加WMI进程查询逻辑，定时检测浏览器窗口标题是否匹配银行官网标题，匹配后直接终止计时循环，减少用户等待时间。

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