如何用VBA 打开控制面板的“程序和功能”删除应用程序的窗口

利用VBA 打开控制面板的“程序和功能”删除应用程序的窗口

VBA的功能是十分强大的，不仅可以操作Office组件，还可以操作其他第三方应用程序，这里所说的第三方应用程序是指除Office组件以外的应用程序，当然也包括个人开发的可单独执行的应用程序。

现在笔者在此提供另外一种打开操作系统内置控制面板功能组件里的程序和功能窗口，在实际应用中可能实战意义不大，这里只是说明VBA可以这么去操作，不意味着实战中我们非要操作。

准备工作，新创建一个Excel文件，打开VBA编辑器，随意选择Sheet1,Sheet2,Sheet3 或者 ThisWorkbook中的一个，然后把下面分享的代码粘贴进来最后执行即可弹出程序和功能窗口，这时用户就可以删除已安装的程序或许修改程序的功能了。当然利用VBA控制第三方应用程序的方法还有很多，这里只提供了其中一种可行操作方法。

先看看执行后的结果截图：

下面附上完整代码截图：

文中代码具有通用性，如果某些朋友想打开其他窗口，也是可以的，只需要把代码段中的中文改为其他想要打开的窗口的名称即可，例如：您想打开“个性化”窗口，那么就把代码中的程序和功能替换为个性化即可。 另外说明：笔者工作环境为Win7 64位操作系统+Office2010套件。倘若您的操作系统为XP系统，名称会有变化，请对应修改成当前操作系统的控制面板内的显示名称。

为了方便感兴趣的朋友实践一下验证效果，下面把代码以文本的形式分享出来，欢迎各位朋友提出宝贵的意见。

Public Sub 打开程序和功能窗口()

Dim Sh As Shell32.Shell

Dim FldItem As Shell32.FolderItem

Set Sh = CreateObject("Shell.Application")

For Each FldItem In Sh.Namespace(ssfCONTROLS).Items

If FldItem.Name = "程序和功能" Then

FldItem.InvokeVerbEx

Exit For

End If

Next

Set Sh = Nothing

End Sub