Excel VBA 代码：快速重启资源管理器

以下是在 Excel 内重启资源管理器的 VBA 代码：

Sub RestartExplorer()

On Error GoTo ErrorHandler

' 关闭资源管理器
Shell "taskkill /f /im explorer.exe", vbHide

' 等待1秒
Application.Wait (Now + TimeValue("0:00:01"))

' 启动资源管理器
Shell "explorer.exe", vbHide

Exit Sub

ErrorHandler:
MsgBox "无法重启资源管理器，请手动重启。", vbExclamation, "错误"

End Sub

这段代码使用 Shell 函数在后台启动了命令行窗口，执行了 taskkill 命令结束了资源管理器进程。在等待 1 秒后，再次使用 Shell 函数启动资源管理器。如果出现错误，将会弹出一个警告框提示用户手动重启资源管理器。