VBA获取桌面路径

Function GetDesktop() As String
    With CreateObject("wscript.shell")
        GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\desktop")
    End With
End Function