Donald正在编写一个宏，他需要在其中引用用户的桌面。但是，桌面的路径必然因系统和用户而异。他想知道无论系统如何，他可以使用哪种编码来确定到桌面的路径。

有几种方法可以在VBA中找到桌面的路径。一种方法是以这种方式调用Windows脚本宿主：

Function GetDesktop() As String     Dim oWSHShell As Object

Set oWSHShell = CreateObject("WScript.Shell")

GetDesktop = oWSHShell.SpecialFolders("Desktop")

Set oWSHShell = Nothing End Function

请注意，这是一个用户定义的宏，您可以从工作表或另一个宏中使用它。工作表中的用法如下：

=GetDesktop()

确定桌面路径的另一种方法是在代码中使用以下行：

sPath = Environ("USERPROFILE") & "\Desktop"

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（8236）适用于Office 365中的Microsoft Excel 2007、2010、2013、2016、2019和Excel。您可以在此处为Excel的较旧菜单界面找到此技巧的版本：

查找桌面路径。