另存为 Excel 宏以在 Windows 7 或 XP 上保存到桌面 [重复]答案

【问题标题】：Save as Excel macro to save to desktop on Windows 7 or XP [duplicate]另存为 Excel 宏以在 Windows 7 或 XP 上保存到桌面 [重复]
【发布时间】：2015-02-17 08:51:12
【问题描述】：

我有一个电子表格，我想使用宏在 Excel 2010 中“另存为 PDF”，并始终保存到桌面。

我已经能够使用“Environ”功能成功读取计算机的用户名，但是，由于 Windows 7 和 Windows XP 上桌面文件夹的位置不同，它并不总是有效。

有没有办法让操作系统像用户名一样被读取？然后我可以有一个 IF( OS=W7 , C:/Users.... , C:/Docs... ) 来设置文件路径。

我的计划是在单元格中显示这些，然后将这些单元格连接成一个字符串，并在宏中读取整个保存文件路径和名称。

非常感谢，

道格。

【问题讨论】：

使用API获取操作系统，然后根据结果使用xp_Parth或win7_Path，这应该是预定义的
如果您只是在 Google 中搜索“vba 桌面文件夹”，就会有数百万个示例。不知道您为什么期望我们会为您搜索并粘贴它。 ;)

标签： windows excel vba

【解决方案1】：

 Function userDesktop() As String
    Dim oWH As Object

    Set oWH = CreateObject("WScript.Shell")
    userDesktop = oWH.SpecialFolders("Desktop")

End Function

【讨论】：

@MikeD 谢谢！！。现已编辑。