使用默认的通用路径

Question

我有一个小程序，它创建一个文件加载并保存到用户指定的文件夹。目前userform的顶部看起来像下面这样初始化时：

如果当用户窗体打开，我宁愿还可以当对话框（通过目的地按钮）选择一个看起来一般默认已经显示：

程序能找到途径在用户的桌面？

Answer 1

为了获取路径给用户桌面上，使用：

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

Answer 2

如果你在excel-vba中这样做，下面的代码会将当前工作簿保存为用户桌面的副本......你可以从那里弄清楚你正在做什么。

Dim DesktopPath As String 
DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator 
ActiveWorkbook.SaveAs DesktopPath & "filename.xls"