默认使用通用路径

Question

我有一个小程序，可以创建一堆文件并保存到用户指定的文件夹中。目前userform的顶部在初始化时如下所示：

我更喜欢当用户窗体打开时，以及用于选择a的对话框（通过“目标”按钮）显示已显示常规默认值时：

程序能否找到通向用户桌面的途径？

Answer 1

如果您在excel-vba中执行此操作，以下代码会将当前工作簿保存为用户桌面的副本...您可以从中找出您正在做的事情。

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

Answer 2

要获取用户桌面的路径，请使用：

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