在excel中用vba写一段启动资源管理器的代码

以下是在Excel中使用VBA启动资源管理器的代码：

Sub OpenExplorer()
    Dim path As String
    path = ThisWorkbook.Path '获取当前工作簿的路径
    Shell "explorer.exe " & path, vbNormalFocus '启动资源管理器并打开目录
End Sub

这段代码会打开当前工作簿所在的文件夹，并在资源管理器中显示该文件夹的内容。您可以将其放在一个按钮或快捷键上，以便随时打开资源管理器。