Excel BeforeSave事件加载Form2控件显示异常及Form1关闭问题

我完全明白你遇到的困扰——在Excel的BeforeSave事件触发时直接显示Form2，控件会变成只有背景色的方框；而用Application.Run(Form2)虽然能正常显示控件，却又没法关闭Form1。这其实是跨线程UI操作违规和消息循环冲突导致的，下面给你详细的解决方案：

问题根源拆解 #

• Excel的BeforeSave事件是在Excel自身的线程上下文里触发的，而WinForms的所有控件操作必须在创建它们的线程（也就是Form1所在的主线程）上执行。直接在事件里调用Form2.Show()，会让Form2跑在非UI线程上，导致控件渲染逻辑失效。
• Application.Run(Form2)会启动一个独立的新消息循环，这个循环会阻塞Form1原本的消息循环，所以Form1.Close()无法触发Form1的关闭流程。

解决方案：跨线程调用+合理管理消息循环 #

我们需要把Form2的显示操作切回Form1的主线程，同时避免消息循环冲突。这里有两种实用的实现方式：

方式1：用Invoke在主线程显示非模态Form2 #

修改代码，通过Form1的Invoke方法将Form2的显示操作委托回主线程，确保UI操作合规：

' Reference: Microsoft Excel 15.0 Object Library
Imports Microsoft.Office.Interop
Imports System.Threading

Public Class Form1
    Private xlApp As Excel.Application
    Public Shared WithEvents xlBook As Excel.Workbook
    ' 保存Form1实例引用，供跨线程调用使用
    Private Shared _currentInstance As Form1

    Private Sub Workbook_BeforeSave(SaveAsUI As Boolean, ByRef Cancel As Boolean) Handles xlBook.BeforeSave
        ' 检查是否需要跨线程调用
        If _currentInstance.InvokeRequired Then
            ' 委托回到主线程执行显示逻辑
            _currentInstance.Invoke(New Action(Sub()
                                                  ShowForm2AndCloseForm1()
                                              End Sub))
        Else
            ShowForm2AndCloseForm1()
        End If
    End Sub

    Private Sub ShowForm2AndCloseForm1()
        ' 正常显示Form2
        Form2.Show()
        ' 关闭Form1
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        _currentInstance = Me
        Try
            xlApp = Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application")
            xlBook = xlApp.Workbooks(1)
        Catch
            MsgBox("Excel isn't opened.")
            Close()
        End Try
    End Sub
End Class

方式2：显示模态Form2，关闭后再处理Form1 #

如果希望Form2是模态对话框（必须关闭才能继续操作），并且在Form2关闭后再关闭Form1，可以这样实现：

' Reference: Microsoft Excel 15.0 Object Library
Imports Microsoft.Office.Interop
Imports System.Threading

Public Class Form1
    Private xlApp As Excel.Application
    Public Shared WithEvents xlBook As Excel.Workbook
    Private Shared _currentInstance As Form1

    Private Sub Workbook_BeforeSave(SaveAsUI As Boolean, ByRef Cancel As Boolean) Handles xlBook.BeforeSave
        If _currentInstance.InvokeRequired Then
            _currentInstance.Invoke(New Action(Sub()
                                                  Using f2 As New Form2
                                                      ' 显示模态对话框，直到用户关闭
                                                      f2.ShowDialog()
                                                      ' 关闭Form1
                                                      _currentInstance.Close()
                                                  End Using
                                              End Sub))
        Else
            Using f2 As New Form2
                f2.ShowDialog()
                Me.Close()
            End Using
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        _currentInstance = Me
        Try
            xlApp = Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application")
            xlBook = xlApp.Workbooks(1)
        Catch
            MsgBox("Excel isn't opened.")
            Close()
        End Try
    End Sub
End Class

关键细节说明 #

• InvokeRequired用来判断当前线程是否为UI线程，确保所有控件操作都在主线程执行，从根源避免控件渲染异常。
• 保存_currentInstance是因为事件处理方法是Shared的，需要通过实例引用调用Invoke方法。
• 使用Using语句创建Form2可以自动释放资源，避免内存泄漏问题。

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