VBA打开文件夹和打开指定文件

打开指定文件夹，请注意路径，采用浏览器打开

Private Sub CommandButton1_Click()

mOpen = Shell("Explorer.exe C:\Program Files\", vbNormalFocus)

 

End Sub

 

 

打开指定文件，请注意路径，采用浏览器打开

Private Sub CommandButton2_Click()

'mOpen = Shell("Explorer.exe F:\1.txt\", vbNormalFocus)

mOpen = Shell("Explorer.exe F:\2.doc\", vbNormalFocus)

End Sub