VBA代码 特殊文件夹路径 桌面 收藏夹 开始菜单 文档 发送到 Excel安装目录
发表于 2025年3月18日 14:24
返回列表PathStr = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") '桌面
PathStr = CreateObject("Wscript.Shell").SpecialFolders.Item("Favorites") '收藏夹
PathStr = CreateObject("Wscript.Shell").SpecialFolders.Item("AllUsersStartMenu") '开始菜单
PathStr = CreateObject("Wscript.Shell").SpecialFolders.Item("MyDocuments") '文档
PathStr = CreateObject("Wscript.Shell").SpecialFolders.Item("SendTo") '发送到
PathStr = Application.Path 'Excel安装目录