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安装目录
全部回复（0）