shell 创建文件_vba代替鼠标打开文件夹

在 VBA造文件夹的思考 一文中介绍了如何用vba代码新建文件夹。

在用VBA操作文件和文件夹的过程中，除了新建文件夹，我们还经常需要与文件夹有个人机交互的过程，比如选择文件所在的文件夹，然后再执行一系列VBA动作。

这个选择的过程也是打开文件夹的一种，这种在VBA里用内置的对话框对象FileDialog就可以实现。

今天要讲的打开文件夹不是这种，而是指在完成了一系列VBA动作后，如何直接打开结果文件夹，看下执行的情况。

以前我们往往都是执行完程序后，再用鼠标去打开结果文件夹看下结果，今天介绍的方法可以直接连这个鼠标步骤都免了。

1.用Shell函数打开指定的文件夹

代码如下：

Sub exceloffice()    '*****************    '上面一连串代码    '最后打开文件夹看下效果    Dim sPath As String    sPath = "c:\test"    Shell "explorer.exe " & sPath, vbMaximizedFocusEnd Sub

Shell函数是vb