vba 打开文件夹

在 VBA 中，打开文件夹可以使用 Shell 函数结合 Windows 命令实现。下面是打开文件夹的 VBA 代码：

Sub OpenFolder()
    Dim folderPath As String
    folderPath = "C:\Users\Username\Documents" '替换为你要打开的文件夹路径
    Shell "explorer.exe " & folderPath, vbNormalFocus '打开文件夹
End Sub
在上面的代码中，首先声明了一个变量 folderPath，用于存储要打开的文件夹路径。然后使用 Shell 函数调用 Windows 的 explorer.exe 命令，将文件夹路径作为参数传递给该命令，最后使用 vbNormalFocus 参数设置打开的窗口为普通焦点。
注意：如果要打开的文件夹路径包含空格或其他特殊字符，需要使用双引号将其括起来，以避免出现错误。例如，如果要打开的文件夹路径为 C:\Users\Username\My Documents，则应该将代码中的 folderPath 变量设置为 "C:\Users\Username\My Documents"。
希望这个回答能够帮到你！