Donald正在编写一个宏,他需要在其中引用用户的桌面。但是,桌面的路径必然因系统和用户而异。他想知道无论系统如何,他可以使用哪种编码来确定到桌面的路径。

有几种方法可以在VBA中找到桌面的路径。一种方法是以这种方式调用Windows脚本宿主:

Function GetDesktop() As String     Dim oWSHShell As Object

Set oWSHShell = CreateObject("WScript.Shell")

GetDesktop = oWSHShell.SpecialFolders("Desktop")

Set oWSHShell = Nothing End Function

请注意,这是一个用户定义的宏,您可以从工作表或另一个宏中使用它。工作表中的用法如下:

=GetDesktop()

确定桌面路径的另一种方法是在代码中使用以下行:

sPath = Environ("USERPROFILE") & "\Desktop"

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(8233)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: