VBA代码大全014：如何用vba返回桌面文件夹的路径？

为用户写VBA代码，有时候我们会按照用户的要求将结果文件另存到具体的指定文件夹。

​如果用户没有指定具体的文件夹，一般我会选择将结果输出到桌面。

我们每天看到的电脑桌面其实也是一个文件夹，只不过是一个特殊的文件夹罢了。

每个人的电脑桌面的路径都不一定是一样的，为了代码的通用性，保证在任何电脑上使用时都可以将结果输出到桌面，就需要用代码获取电脑桌面文件夹的路径。

如果要用vba返回任意电脑的桌面文件夹路径，可以使用内核对象Shell的SpecialFolders属性返回桌面文件夹的路径，代码如下：

Sub 获取桌面文件夹的路径()
    Dim oWShell
    '创建内核对象
    Set oWShell = CreateObject("WScript.Shell")
    With oWShell
        '获取桌面文件夹的路径
        sDesktopPath = .SpecialFolders("Desktop")
        MsgBox sDesktopPath
    End With
End Sub