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
投稿
猜你喜欢
- 《Excel2003入门动画教程39、表格中插入超链接》。演示动画 操作步骤在Excel中也完全可以添加网页中一样
- 首先,先来看一张图,如下:
- Excel文件中的数字怎么批量添加颜色?Excel中有文字和数字,想要给数字添加颜色,该怎么添加呢?下面我们就来看看详细的教程,需要的朋友可
- 在苹果发布的最新系统 iOS 15 和 iPadOS 当中,您可以让任何人加入 FaceTime 通话,即使他们没有苹果设备。新系
- 本教程是“邮件合并简介”。在阅读本教程之前,您可以阅读[带照片的Word邮件合并-批量生成入场券]。在本教程中,您可以快速使用现有的命名照片
- Excel软件依靠其强大的功能,成为一款快速、有效处理函数和公式的优秀软件;要把Excel行数据转换为列数据,要怎么做呢?下面小编来告诉你吧
- Excel中经常需要使用到自动增加序号的功能,序号具体该如何自动增加呢?下面是小编带来的关于excel自动增加序号的教程,希望看完本教程的朋
- 在word中输入文字时候,会出现输入一个字后面的字就被覆盖的情况,有可能是你不小心碰了键盘上insert键将word文档设置成了改写的模式,
- 如果您的Excel应用程序中的菜单和工具栏无意中搞乱了,例如调整了菜单项的位置、禁用了一些菜单项而又未恢复、删除了一些菜单项等,您想要恢复为
- 我们平时都会在excel输入数字,但你有没有碰到这种情况,在Excel中输入一串长串数字,例如你在excel单元格中输入8888888888
- 这里提供3种Excel2016启动方式:单击桌面左下角 开始 按钮,在所有程序里面找到Excel2016的程序,点击它即可启动;
- 驾校考试模拟系统哪个好呢?下面小编就为大家介绍一下4款驾校考试模拟系统,希望会对大家能更好的了解驾校考试系统有所帮助一、卓越驾校考试模拟系统
- 在使用excel查看数据时,经常讲表格转换为曲线图,可以使数据集呈现出更加形象、直观的表现形式,从而表达更加丰富、更加隐含却又极有价值的信息
- 获取数字证书以用于签名可以从商业证书颁发机构 (CA) (证书颁发机构 (CA):一个商业组织,它颁发数字证书,跟踪被颁发证书的人员,对证书
- 在Excel中录入数据以后经常需要核对数据,在核对数据的时候就经常要看到表头,如果下右一拉数据,这个数据表的表头就会不见,这个时候就需要固定
- assets文件夹是Win10系统下存放壁纸的文件夹,把图片放到这个文件夹里,就可以自由选择壁纸了。有用户想换个壁纸,却发现assets文件
- 如下图1所示,在一个4行4列的单元格区域A1:D4中,每个单元格内都是一个一位整数,并且目标值单元格(此处为F2)也为整数,要求在单元格G2
- 越来越多的人开始使用Win10系统了,特别是微软上段时间刚推出了Win10 21H1系统,很多用户已经更新升级使用了。但是对于习惯使用Win
- 下面脚本之家小编为大家分享excel表格中设置上标图文教程,教程很实用,对于办公人员非常值得学习,好了,下面我们一起来学习吧在数学运算中经常
- 不知道大家有没有遇到这种情况,要给自己的联想电脑新装固态硬盘,想安装原版ISO镜像的Win10新系统到新固态硬盘里,但是在选择安装的硬盘时,