excel利用VBA获取系统特殊文件夹路径
发布时间：2023-10-07 19:25:58
标签：代码,文件夹,获取,路径,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
0
投稿猜你喜欢
- ppt 怎样提取物体并 增加 平面 结果？ppt导入的图片想要 零丁提取图片中的马并 增加 平面 结果，该 怎样 完成呢？ 上面 咱们就来看
WPS如何隔行删除重复项？WPS表格中有很多小技巧，下面这篇文章主要给大家风向一个WPS分享删除重复项的小技巧，感兴趣的小伙伴们一起来看下吧- 闹钟是自win10系统以来就在系统中的应用功能，不少小伙伴会通过设置闹钟来提醒自己做什么事情，但有的小伙伴升级到Win11系统后却不知道闹钟
- Win10更新20H2出现错误显示0x800707e7怎么办？一些朋友在更新20H2的时候会出现这个问题，下面小编就为大家带来Win10更新
- 小编所用的Win7电脑中近来突然出现了一个奇怪的现象，那就是桌面右下角的扬声器无法正常打开，甚至连音量也不能进行调整了。那么，Win7系统右
- 创建完成 WPS⁺云办公企业账号后，如何将文档上传到云办公并与同事分享呢？根据您使用的产品端的不同，上传和分享文档的方式也有所不同：一、网页
- XP想必是大家早已熟悉的系统，不过在本文要为大家介绍的是几个不为人知的隐秘的操作技巧，大概有十个左右吧，感兴趣的朋友可以参考下1、以Wind
- 我们经常会缩小窗口或者将其还原，通常使用的是“win+D”这个快捷键，但是在Win7旗舰版当中有个“Aero Shake”的功能，只需通过鼠
- win7电脑，不知道为什么打不开控制面板，控制面板一般是很少出现打不开的情况，万一遇到，请首先进行电脑全盘杀毒!如果电脑杀完毒后，显示电脑正
- ppt怎么设计一款漂亮的电子日历？想要使用ppt设计一款漂亮的日历图片，该怎么设计呢？下面我们就来看看详细的制作方法，需要的朋友可以参考下p
- 电脑使用的时候，如果出现卡顿的状态，是十分影响电脑操作的。而电脑出现卡顿的原因有很多，有时候是因为服务主机：本地服务(无网络)(6)占用了大
- 有很多朋友购买使用微软surface笔记本，时间长了电脑变卡顿，许多人首先想到的就是通过重装系统来解决这种问题，那么surface笔记本应该
- 有些小伙伴升级Win11后，发现在玩游戏的时候，帧数会很低，很是影响玩游戏的体验感，不知道怎么解决，下面就和小编一起来看看解决方法吧。除了T
- 使用计算机的过程中总避免不了遇到一些问题，比如说突然开不了机还是开机一半卡住了，可能是系统发生了错误给大家建议是重新安装系统，可是如何重置电
- 为了简省操作,用户可以在Excel中将录制好的宏直接应用到其他表格当中，但有时可能特殊情况，需要更改一下，那么excel中录制好的宏如何更改
- excel中输入一串数字后怎样设置单元格格式呢？今天小编来教下大家，希望能够帮助到有需要的小伙伴。01、打开ecxel表格，02、选中一串数
- 电脑开机慢时，最大的原因就是开机启动项过多，那么如何管理电脑的开机启动项呢？其实一般可以通过360安全卫士进行优化，但是如果你没有安装360
- 欣赏一下别人的成品： 1、尽量使用Tab、圆点的项目符号对齐，尽量不用空格找齐。用表格制作也可以，但是发送wor
- 最近有用户反映自己的U盘分区之后，手机OTG却只认一个区，那么这是怎么回事呢？接下来小编就为大家分享U盘分区后手机OTG只认一个区的解决方法
- Win11怎么改变桌面图标间距？很多刚开始体验win11系统的用户发现，自己安装升级后，桌面上的软件图标间距太大了，那应该怎么把间距调到适合
