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

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

但是应该小心，我的公司计算机有许多不同的用户帐户。这个工作簿应该适合所有用户，并存储在他们的用户帐户桌面上。

再具体一点 ，

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

可以做到吗？

 strFileName = "c:\Users\(username)\Desktop" wb.SaveAs strFileName 

Answer 1

是的，你需要使用这个命令：

 Environ("Username") 

试试下面的代码：

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

Answer 2

您可以使用Wscript.Shell来获取桌面path。

 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