恢复Excel显示尺寸：VBA调整后新工作簿窗口尺寸异常问题

问题根源 #

核心问题出在两点：

• 你修改的是整个Excel应用程序的窗口尺寸（Application.Width/Height），而非单个工作簿的窗口。Excel会在运行期间记住应用窗口的最后状态，但End语句属于强制终止代码，会跳过Excel的正常状态保存流程，导致WrapUp里设置的窗口尺寸没有被正确记录。
• End语句直接终止所有代码执行，是粗暴的退出方式，会干扰Excel的正常状态同步。

修复步骤 #

1. 替换End为正常的工作簿关闭逻辑

把WrapUp里的End删掉，改用ThisWorkbook.Close关闭计时器工作簿，让Excel正常处理窗口状态的保存：

Sub WrapUp()
    ActiveSheet.Cells(1, 1) = "0"
    ' 恢复应用窗口和工具栏
    Application.WindowState = xlNormal
    Application.Top = 25
    Application.Left = 25
    Application.Width = 1000
    Application.Height = 600
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
    ' 关闭当前工作簿，SaveChanges按需设置：True/False/xlPrompt
    ThisWorkbook.Close SaveChanges:=True
End Sub

同时，调用WrapUp的代码里也不需要额外的End：

If ActiveSheet.Cells(1, 1) = "1" Then
    WrapUp
End If

2. 可选优化：仅修改单个工作簿窗口（不影响全局）

如果不想让计时器的窗口设置影响整个Excel应用，可以改用ThisWorkbook.Windows(1)单独设置当前工作簿的窗口大小，这样其他工作簿的窗口不会被干扰：

' 初始化窗口时仅修改当前工作簿的窗口
Sub SetWindowSize1()
    If ActiveWorkbook.Name = "Timer1.xlsm" Then
        With ThisWorkbook.Windows(1)
            .WindowState = xlNormal
            .Top = 25
            .Left = 25
            .Width = 300
            .Height = 300
        End With
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    End If
End Sub

3. 可选：添加延迟确保设置生效

如果替换End后仍有异常，可以在恢复窗口设置后加1秒延迟，给Excel足够时间同步状态：

Sub WrapUp()
    ActiveSheet.Cells(1, 1) = "0"
    Application.WindowState = xlNormal
    Application.Top = 25
    Application.Left = 25
    Application.Width = 1000
    Application.Height = 600
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
    ' 延迟1秒确保设置生效
    Application.Wait Now + TimeValue("00:00:01")
    
    ThisWorkbook.Close SaveChanges:=True
End Sub

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