使用MSHTA打开文件时Excel意外崩溃问题求助

问题原因 #

原代码通过WScript.Shell.Exec调用mshta.exe弹出文件选择框，这种方式在Excel环境下容易触发进程交互冲突、安全权限限制，甚至死锁，导致Excel直接崩溃——这类底层进程级的异常，VBA的On Error Resume Next错误捕获机制无法拦截。

替代方案：使用Excel原生FileDialog #

直接用Excel内置的文件选择对话框，兼容性更好，不会引发崩溃，代码实现更简单：

Dim fd As FileDialog
Dim selectedPath As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .AllowMultiSelect = False ' 允许选择单个文件，需要多选可改为True
    .Title = "选择文件"
    .Filters.Clear
    .Filters.Add "所有文件", "*.*" ' 可自定义筛选格式，比如"Excel文件", "*.xlsx;*.xls"
    
    If .Show = -1 Then
        selectedPath = .SelectedItems(1)
        ' 后续处理选中的文件路径
        MsgBox "选中的文件：" & selectedPath
    Else
        ' 用户取消选择
        selectedPath = ""
    End With
End With
Set fd = Nothing

原代码崩溃的核心原因 #

• mshta.exe作为独立进程，其ActiveX对象与Excel进程的上下文交互存在兼容性问题，容易导致内存冲突。
• WScript.Shell.Exec方法在Excel的安全沙箱中可能被限制，触发未被VBA错误捕获机制覆盖的底层异常。
• 代码中mshta的脚本逻辑里，close()和resizeTo(0,0)的执行时机可能和Excel的消息循环冲突，引发死锁。

内容的提问来源于stack exchange，提问作者Mr. Tacio