另存为Excel宏以保存到Windows 7或XP上的桌面

Question

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

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

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

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

提前多多感谢，

道格。

Answer 1

 Function userDesktop() As String
    Dim oWH As Object

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

End Function