Dim shell Set shell = CreateObject("Shell.Application") shell.ToggleDesktop
其中，Shell.Application不区分大小。