Excel vba 打开一个文件夹并显示在最前端

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
   ShellExecute 0, "open", "d:\", 0, 0, SW_SHOWNORMAL
End Sub

示例打开D盘 供你修改

追问

谢谢你！！！

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/e7v7rxv2xyj2rf227y.html