excel利用VBA获取系统特殊文件夹路径
时间:2023-10-07 19:25:58
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函数
0
投稿
猜你喜欢
相机太老像素不高?试试合成高分辨率大片!
2023-10-23 23:31:59
wifi共享大师如何限制别人上网速度?wifi共享大师限制别人上网速度的方法教程
2022-10-23 19:22:34
Win7系统8080端口被占用怎么解决?
2023-01-01 12:32:59
如何自定义Excel加载项
2023-10-19 03:27:53
Win7无法安装软件的解决方法
2023-01-21 20:03:46
XP系统开机“最后一次正确配置”选项不见了如何找回?
2023-01-29 06:06:55
Win10专业版环境变量在哪设置
2023-11-22 00:21:40
Win10预览版10041上手体验怎么样 win10预览版10041上手使用视频
2022-02-10 14:07:48
wps演示中如何插入图表图文教程
2023-04-08 04:45:12
360浏览器怎么设置兼容模式?360兼容性视图设置在哪?
2022-01-15 17:05:28
win10更新完后变卡了怎么办-win10更新完后变卡了解决方法
2023-04-12 20:31:22
PowerPoint2013发光特效图片处理基础教程
2022-04-26 12:08:08
如何将Windows 7临时文件夹请出系统盘
2022-09-22 17:17:56
修复:Win8.1/Win10专业版出现“Clfs.sys”错误
2023-06-30 14:04:43
电脑主板的鼠标和键盘只有一个插口怎么办
2022-06-20 15:36:17
MacBook Pro用法攻略:MacBook Pro如何开启语音通知?
2023-01-01 04:05:42
用word如何制作小抄呢?
2022-02-10 09:37:29
excel 条件格式与函数也能结合进行自定义条件格式
2022-09-13 22:27:39
Win11一共有几个版本?Windows11不同版本的区别介绍
2023-05-26 08:15:27
Excel显示隐私问题警告怎么办
2023-06-03 01:39:18