excel运用VBA取得系统特殊文件夹路径|萝卜系统

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。

Windows 特殊文件夹，包括 "Desktop" 文件夹、"MyDocuments" 文件夹等，如果我们要在VBA中用到这些文件夹，可以用下列代码来获取这些特殊文件夹的路径。

Option Explicit
Sub GetMyDocumentsPath()
Dim WSHShell As Object
Set WSHShell = CreateObject("Wscript. Shell") ‘请去掉Shell前的空格
MsgBox "MyDocuments文件夹位于：" & WSHShell.SpecialFolders("MyDocuments")
Set WSHShell = Nothing
End Sub

说明：上述代码获取的是“MyDocuments”文件夹的路径，如果要获取其他特殊文件夹路径，可以将代码中的“MyDocuments”更换为下面的文件夹名称。如果指定的文件夹不存在，“SpecialFolders”属性返回空值。
这些特殊文件夹有：

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

Excel整体界面趋于平面化，显得清新简洁。流畅的动画和平滑的过渡，带来不同以往的使用体验。

……

标签:excel运用VBA取得系统特殊文件夹路径