多显示器中 Excel 文件自动打开和定位，告别窗口整理烦恼

2024-03-10 06:43:44

多显示器中的 Excel 文件自动打开和定位

问题陈述

在多显示器的工作环境中，在不同的显示器上打开和移动多个工作区可能会很麻烦。手动调整窗口既耗时又容易出错。本文介绍了使用批处理脚本和 VBA 宏来自动打开和移动 Excel 文件的方法，从而简化多显示器任务。

解决方法

批处理脚本

创建脚本： 在记事本中创建一个文本文件，粘贴以下代码：

@echo off
start excel.exe "C:\Users\路径\文件名_右.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\路径\文件名_左.xlsx"

修改路径： 将文件路径替换为左右 Excel 文件的实际路径。
保存文件： 保存文件为 ".bat" 扩展名，例如 "move_excel_right.bat"。
运行脚本： 双击脚本文件。

该脚本将打开右边的 Excel 文件，将其移动到右显示器，然后打开左边的 Excel 文件。

VBA 宏

创建宏： 在 Excel VBA 编辑器中，插入一个模块并粘贴以下代码：

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

' 打开 Excel 应用程序
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True

' 打开左边的 Excel 文件
Set Workbook1 = ExcelApp.Workbooks.Open("C:\Users\路径\文件名_左.xlsx")
Workbook1.Windows(1).WindowState = xlMaximized
Workbook1.Windows(1).Left = 0

' 打开右边的 Excel 文件
Set Workbook2 = ExcelApp.Workbooks.Open("C:\Users\路径\文件名_右.xlsx")
Workbook2.Windows(1).WindowState = xlMaximized
Workbook2.Windows(1).Left = Screen.Width \ Screen.TwipsPerPixelX

' 释放对象
Set Workbook1 = Nothing
Set Workbook2 = Nothing
Set ExcelApp = Nothing
End Sub