求助：如何让VBScript运行宏时弹出窗口置于顶层

我来帮你搞定窗口置顶的问题，你的需求分为两部分：让Excel宏里的进度条不被遮挡，以及让脚本最后的提示弹窗置顶。下面是具体的实现步骤：

一、给Excel宏中的进度条UserForm添加置顶逻辑 #

因为你把Excel主窗口设为隐藏了，但进度条是宏里的UserForm，要让它始终在顶层，得在VBA宏（也就是UpdateOversightBD）里加一点API调用的代码：

1. 打开你的Merging Tool.xlsm，在VBA编辑器里找到存放UpdateOversightBD的模块，在模块最顶部添加以下API声明（要放在所有子过程外面）：

#If VBA7 Then
    Private Declare PtrSafe Function SetWindowPos Lib "user32.dll" (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 LongPtr
#Else
    Private Declare Function SetWindowPos Lib "user32.dll" (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
#End If

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2

2. 找到你显示进度条UserForm的代码（假设你的进度条窗体叫frmProgress），修改成这样：

Load frmProgress
' 调用API把窗体设置为顶层窗口
SetWindowPos frmProgress.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
' 这里如果需要宏在后台运行就用vbModeless，要阻止其他操作就用vbModal
frmProgress.Show vbModeless

这样进度条就会一直显示在所有窗口上面，不会被其他程序遮挡了。

二、让VBScript的MsgBox弹窗置顶 #

VBScript自带的MsgBox默认不会主动置顶，这里给你两种简单的实现方法：

方法1：先激活脚本宿主窗口再弹提示 #

在MsgBox之前加一行代码，激活Windows脚本宿主的窗口，这样弹窗就会跟着置顶：

' 激活脚本窗口，确保MsgBox在最前面
CreateObject("WScript.Shell").AppActivate CreateObject("WScript.Shell").ExpandEnvironmentStrings("%COMPUTERNAME%") & " - Windows Script Host"
MsgBox "Oversight Backing Data Was Created Successfully At " & TimeValue(Now), vbInformation

注意：如果你的系统是非英文的，窗口标题可能不一样，你可以打开任务管理器，找到wscript.exe对应的窗口标题，替换上面的字符串就行。

方法2：用API强制置顶弹窗 #

如果方法1偶尔失效，可以用API的方式直接找到脚本窗口并置顶，把这段代码加到你的VBScript里：

' 声明需要的Windows API
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

' 找到脚本窗口并激活
Dim hwnd
hwnd = FindWindow(vbNullString, "Windows Script Host") ' 同样，标题根据系统调整
If hwnd <> 0 Then SetForegroundWindow hwnd

MsgBox "Oversight Backing Data Was Created Successfully At " & TimeValue(Now), vbInformation

优化后的完整VBScript代码 #

这里用方法1来实现MsgBox置顶，最终的脚本代码如下：

ExcelFilePath = "***\Merging Tool.xlsm"
MacroPath = "UpdateOversightBD"
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = False
ExcelApp.DisplayAlerts = False
Set wb = ExcelApp.Workbooks.Open(ExcelFilePath)
ExcelApp.Run MacroPath
wb.Close False
ExcelApp.DisplayAlerts = True
ExcelApp.Quit

' 新增：激活脚本窗口，让提示弹窗置顶
CreateObject("WScript.Shell").AppActivate CreateObject("WScript.Shell").ExpandEnvironmentStrings("%COMPUTERNAME%") & " - Windows Script Host"
MsgBox "Oversight Backing Data Was Created Successfully At " & TimeValue(Now), vbInformation

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