双屏PC下如何自动打开Excel文件并移至指定显示器？

需求概述 #

• 双显示器PC，需打开两个Excel文件（LEFT、RIGHT）
• RIGHT文件默认打开在右侧显示器，LEFT文件默认打开在左侧显示器
• Excel默认仅记住软件上次打开的显示器位置，所有文件会统一使用该位置，无法按文件区分

现有方案的问题 #

批处理脚本问题 #

原脚本尝试用SendKeys模拟Win+Shift+Right快捷键，但{#}不是Win键的正确标识，导致#字符被输入到单元格，脚本失效。同时固定等待时间依赖系统状态，稳定性差。

@echo off
start excel.exe "C:\Users\vacationcalendar\Desktop\VacationCalendar_RIGHT.xlsx"
timeout /t 5 /nobreak >nul
powershell -Command "(new-object -ComObject WScript.Shell).SendKeys('{ESC}')"
timeout /t 1 /nobreak >nul
powershell -Command "(new-object -ComObject WScript.Shell).SendKeys('{#}{SHIFT}{RIGHT}')"
timeout /t 15 /nobreak >nul
start excel.exe "C:\Users\vacationcalendar\Desktop\VacationCalendar_LEFT.xlsx"

VBA宏问题 #

原VBA代码存在三个核心问题：

1. Screen对象仅指代当前Excel窗口所在的显示器，无法获取双显示器的完整分辨率信息
2. 最大化窗口后设置Left属性会被覆盖，因为最大化状态下位置属性不生效
3. 两个工作簿共用同一个Excel实例，仍会继承默认窗口位置记忆

Sub OpenAndPositionWorkbooks()
Dim ExcelApp As Object
Dim Workbook1 As Object
Dim Workbook2 As Object

' Create a new instance of Excel
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True

' Open the first workbook and position it on the left monitor
Set Workbook1 = ExcelApp.Workbooks.Open("C:\Users\whull\Desktop\VacationCalendar_LEFT.xlsx")
Workbook1.Windows(1).WindowState = xlMaximized
Workbook1.Windows(1).Left = 0

' Open the second workbook and position it on the right monitor
Set Workbook2 = ExcelApp.Workbooks.Open("C:\Users\whull\Desktop\VacationCalendar_RIGHT.xlsx")
Workbook2.Windows(1).WindowState = xlMaximized
Workbook2.Windows(1).Left = Screen.Width \ Screen.TwipsPerPixelX

' Release objects
Set Workbook1 = Nothing
Set Workbook2 = Nothing
Set ExcelApp = Nothing
End Sub

改进方案 #

方案1：修正VBA宏（推荐） #

通过Windows API获取双显示器分辨率，为右侧文件创建独立Excel实例，先设置窗口位置再最大化，确保精准定位。

Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0 ' 主显示器宽度（像素）
Const SM_CYSCREEN = 1 ' 主显示器高度（像素）
Const SM_CXVIRTUALSCREEN = 78 ' 虚拟屏幕总宽度（所有显示器）

Sub OpenAndPositionWorkbooks()
    Dim ExcelLeft As Object, ExcelRight As Object
    Dim wbLeft As Object, wbRight As Object
    Dim leftMonitorWidth As Long, rightMonitorLeftPos As Long
    
    ' 获取双显示器参数：主显示器宽度、右侧显示器起始X坐标
    leftMonitorWidth = GetSystemMetrics(SM_CXSCREEN)
    rightMonitorLeftPos = leftMonitorWidth
    
    ' 为右侧文件创建独立Excel实例，避免继承默认位置
    Set ExcelRight = CreateObject("Excel.Application")
    ExcelRight.Visible = True
    Set wbRight = ExcelRight.Workbooks.Open("C:\Users\vacationcalendar\Desktop\VacationCalendar_RIGHT.xlsx")
    ' 先恢复窗口为正常状态，设置位置后再最大化
    With wbRight.Windows(1)
        .WindowState = xlNormal
        .Left = rightMonitorLeftPos
        .Top = 0
        .Width = GetSystemMetrics(SM_CXVIRTUALSCREEN) - leftMonitorWidth
        .Height = GetSystemMetrics(SM_CYSCREEN)
        .WindowState = xlMaximized
    End With
    
    ' 打开左侧文件（使用默认实例，若不存在则新建）
    On Error Resume Next
    Set ExcelLeft = GetObject(, "Excel.Application")
    On Error GoTo 0
    If ExcelLeft Is Nothing Then Set ExcelLeft = CreateObject("Excel.Application")
    ExcelLeft.Visible = True
    Set wbLeft = ExcelLeft.Workbooks.Open("C:\Users\vacationcalendar\Desktop\VacationCalendar_LEFT.xlsx")
    With wbLeft.Windows(1)
        .WindowState = xlNormal
        .Left = 0
        .Top = 0
        .Width = leftMonitorWidth
        .Height = GetSystemMetrics(SM_CYSCREEN)
        .WindowState = xlMaximized
    End With
    
    ' 释放对象
    Set wbLeft = Nothing
    Set wbRight = Nothing
    Set ExcelLeft = Nothing
    Set ExcelRight = Nothing
End Sub

关键要点

• 使用GetSystemMetrics API获取真实的双显示器布局信息
• 为右侧文件创建独立Excel实例，彻底脱离默认位置记忆
• 先设置窗口位置和尺寸，再切换到最大化状态（最大化状态下位置设置无效）

方案2：修正批处理脚本（PowerShell替代SendKeys） #

通过PowerShell定位目标窗口并激活，再发送正确的Win+Shift+Right快捷键，替代不稳定的固定等待时间。

@echo off
:: 打开RIGHT文件
start "" "excel.exe" "C:\Users\vacationcalendar\Desktop\VacationCalendar_RIGHT.xlsx"
timeout /t 2 /nobreak >nul

:: 用PowerShell定位并激活RIGHT文件窗口，发送Win+Shift+Right
powershell -Command "$excelWin = Get-Process | Where-Object {$_.MainWindowTitle -like '*VacationCalendar_RIGHT*'}; if ($excelWin) { $sig = '[DllImport(""user32.dll"")] public static extern bool SetForegroundWindow(IntPtr hWnd);'; $type = Add-Type -MemberDefinition $sig -Name Win32 -Namespace SetForeground -PassThru; $type::SetForegroundWindow($excelWin.MainWindowHandle); Start-Sleep -Milliseconds 500; $wshell = New-Object -ComObject wscript.shell; $wshell.SendKeys('+({RIGHT})', $true) }"

:: 打开LEFT文件
start "" "excel.exe" "C:\Users\vacationcalendar\Desktop\VacationCalendar_LEFT.xlsx"

关键要点

• 通过窗口标题精准定位RIGHT文件的Excel窗口，确保激活后再发送快捷键
• SendKeys('+({RIGHT})', $true)中，+代表Shift，$true启用扩展键模式（支持Win键），组合后即为Win+Shift+Right
• 用窗口存在性判断替代固定超时，提升脚本稳定性

注意事项 #

• VBA方案需将文件另存为.xlsm格式，并在Excel信任中心启用宏
• 确保双显示器排列为左侧主显示器、右侧扩展显示器（若布局相反，需调整VBA中Left参数的数值）
• 批处理方案依赖窗口标题匹配，需确保文件名唯一，避免误操作其他Excel窗口

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