将Excel宏保存到Windows 7或XP上的桌面

Question

我有一个电子表格，我想使用宏‘保存为PDF’在Excel 2010，始终保存到桌面。

我已经成功地使用'Environ‘函数读取了计算机的用户名，但是，由于桌面文件夹在Windows 7和Windows上的位置不同，它并不总是工作的。

有没有办法让操作系统像用户名一样被读取？然后我可以有一个IF( OS=W7，C:/User.)/医生..。)若要设置文件路径，请执行以下操作。

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

提前谢谢你，

道格。

Answer 1

 Function userDesktop() As String
    Dim oWH As Object

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

End Function