如何实现Excel xlsx文件开机自动跨8台指定布局显示器打开？

需求与背景 #

• 目标：开机自动打开指定Excel工作簿，窗口跨8台混合分辨率显示器准确定位，不同工作表对应指定显示器
• 显示器参数：
  • 水平排列（左→右）：1→6→5→7→8→4→2，分辨率均为1920×1080；显示器7为3840×2160
  • 显示器3位于显示器1正下方，分辨率1920×1080
• 已尝试无效方案：VBA内置Arrange方法、任务计划程序、第三方窗口管理工具

1. 原生VBA+Windows API实现精准定位 #

通过调用Windows系统API获取显示器虚拟坐标，直接控制Excel窗口位置，避开Excel内置方法的分辨率适配缺陷。

步骤1：声明API函数 #

打开Excel工作簿，按Alt+F11进入VBA编辑器，插入模块，粘贴以下代码：

Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Declare PtrSafe Function EnumDisplayMonitors Lib "user32" (ByVal hdc As LongPtr, ByVal lprcClip As LongPtr, ByVal lpfnEnum As LongPtr, ByVal dwData As LongPtr) As Boolean
Declare PtrSafe Function GetMonitorInfo Lib "user32" Alias "GetMonitorInfoA" (ByVal hMonitor As LongPtr, ByRef lpmi As MONITORINFO) As Boolean

Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Type MONITORINFO
    cbSize As Long
    rcMonitor As RECT
    rcWork As RECT
    dwFlags As Long
End Type

Dim monitorCoords As Collection

Sub EnumMonitorsProc(ByVal hMonitor As LongPtr, ByVal hdcMonitor As LongPtr, ByRef lprcMonitor As RECT, ByVal dwData As LongPtr) As Boolean
    Dim mi As MONITORINFO
    mi.cbSize = Len(mi)
    GetMonitorInfo hMonitor, mi
    monitorCoords.Add mi.rcMonitor
    EnumMonitorsProc = True
End Sub

Function GetAllMonitorCoords() As Collection
    Set monitorCoords = New Collection
    EnumDisplayMonitors 0, 0, AddressOf EnumMonitorsProc, 0
    Set GetAllMonitorCoords = monitorCoords
End Function

步骤2：自定义窗口定位逻辑 #

在ThisWorkbook的Workbook_Open事件中，添加以下代码（需根据实际系统枚举的显示器顺序调整对应关系）：

Private Sub Workbook_Open()
    Dim monitors As Collection
    Dim mon As RECT
    Dim totalWidth As Long, maxHeight As Long
    Dim targetMon As RECT
    
    ' 获取所有显示器的虚拟坐标
    Set monitors = GetAllMonitorCoords()
    
    ' 计算跨所有显示器的主窗口尺寸
    totalWidth = 0
    maxHeight = 0
    For Each mon In monitors
        totalWidth = totalWidth + (mon.Right - mon.Left)
        maxHeight = IIf((mon.Bottom - mon.Top) > maxHeight, (mon.Bottom - mon.Top), maxHeight)
    Next
    
    ' 拉伸Excel主窗口覆盖所有显示器
    With Application
        .WindowState = xlNormal
        .Left = 0
        .Top = 0
        .Width = totalWidth
        .Height = maxHeight
    End With
    
    ' 示例：将Sheet1定位到显示器1，Sheet2定位到显示器7
    ' 需先运行GetAllMonitorCoords函数，输出各显示器坐标，对应到你的布局编号
    Set targetMon = monitors(1) ' 假设第一个枚举的是显示器1
    With Sheets("Sheet1").Window
        .Left = targetMon.Left
        .Top = targetMon.Top
        .Width = targetMon.Right - targetMon.Left
        .Height = targetMon.Bottom - targetMon.Top
        .WindowState = xlNormal
    End With
    
    Set targetMon = monitors(4) ' 假设第四个枚举的是显示器7
    With Sheets("Sheet2").Window
        .Left = targetMon.Left
        .Top = targetMon.Top
        .Width = targetMon.Right - targetMon.Left
        .Height = targetMon.Bottom - targetMon.Top
        .WindowState = xlNormal
    End With
End Sub

关键提示：系统枚举显示器的顺序可能和你命名的1-8顺序不一致，需先运行GetAllMonitorCoords函数，输出各显示器的Left/Right/Top/Bottom值，手动匹配布局编号。

2. 设置开机自动启动 #

方法1：用户启动文件夹 #

复制Excel工作簿的快捷方式到：
C:\Users\[你的用户名]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

右键快捷方式→属性→快捷方式，可在目标栏添加Excel路径确保启动："C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" "D:\你的工作簿路径.xlsx"

方法2：注册表（全局生效） #

按Win+R输入regedit，导航到：
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
新建字符串值，名称自定义，值为：
"C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" "D:\你的工作簿路径.xlsx"

3. 多显示器坐标映射说明 #

• Windows多显示器采用虚拟桌面坐标系，所有显示器坐标连续排布（左到右累加宽度，上下则累加高度）
• 无需修改注册表，EnumDisplayMonitorsAPI是原生获取显示器坐标的最可靠方式
• 若显示器布局变更，仅需调整VBA中显示器的对应顺序即可

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