如何将额外的工作簿位置设置为桌面？答案

【问题标题】：How to set the extra workbook location as desktop?如何将额外的工作簿位置设置为桌面？
【发布时间】：2016-08-16 11:21:25
【问题描述】：

我想在桌面上保存一个额外的工作簿。

但应注意，我的公司计算机有许多不同的用户帐户。此工作簿应适合所有用户并存储在他们的用户帐户桌面上。

具体来说，

我的桌面位置= c:\Users\knd\Desktop 彼得桌面位置=c:\Users\peterd\Desktop

有可能吗？

strFileName = "c:\Users\(username)\Desktop"

wb.SaveAs strFileName

【问题讨论】：

是的，试试下面的代码
VBA: How to save Excel Workbook to Desktop regardless of user?的可能重复

标签： vba excel

【解决方案1】：

是的，你需要使用命令：

Environ("Username")

试试下面的代码：

strFileName = "c:\Users\" & Environ("Username") & "\Desktop"

【讨论】：

【解决方案2】：

您可以使用 Wscript.Shell 获取桌面路径。

Function getDeskTopPath() As String
    Dim oShell As Object
    Set oShell = CreateObject("Wscript.Shell")
    getDeskTopPath = oShell.SpecialFolders("Desktop")
    Set oShell = Nothing
End Function

参考：WshShell.SpecialFolders

其他特殊文件夹

  AllUsersDesktop
  AllUsersStartMenu
  AllUsersPrograms
  AllUsersStartup
  Desktop
  Favorites
  Fonts
  MyDocuments
  NetHood
  PrintHood
  Programs
  Recent
  SendTo
  StartMenu
  Startup
  Templates

【讨论】：

你在这里达到了所有 P.H.D 水平 :)
大声笑...我更喜欢你的回答，因为它是一行代码。我只是忘记了语法。