由于Excel和Windows的关系，天然就赋予了强大的基因。执行个文件真的太小意思了。

vba shell 函数

格式：Shell(PathName[,WindowStyle])
PathName :要执行的程序名，包括目录或文件夹
WindowStyle :程序运行时窗口的样式

例：Shell "control.exe" '打开Windows控制面板

更多功能看下图，说了基因强大，由于是一个家族的软件，所以在windows系统之下，无所不能的样子，有兴趣可以自己去发现。

使用方法

左侧为命令功能代码表，也就是执行命令使用的操作符，具体操作在右边。

下拉组合框可以选择功能，选择之后单击执行，就会执行相应的系统命令。

具体做这个有什么用呢？我也思考了很久，发现可能真没什么用，但是对于一个电脑小白来说，或许有点用处。

比如要打开系统中的某个功能项的时候，就要在开始里找好久，有些根本不知道如何查找。

所以，这个工具的可以拿出来了。

例如，需要打开密码管理，进行密码设置的时候，可以打开这个文件选择密码，单击执行按钮之后，就打开密码管理功能了。

虽然在开始里面也很好找，但是如果要打开组策略呢！是不是就有点犯难了？

也不难，只要认识组策略就以上面的方法操作就可以打开了。

不然就要在控制面板里找啊找。

其实，Shell执行了一个代码：Shell "cmd.exe /c gpedit.msc "

完整代码

这个例子代码量很少，所以就全部贴出来了。

喜欢的赶快收藏起来，不要错过哟。

Option Explicit
Private Sub CommandButton1_Click()
Dim Strr As String
Strr = Me.OLEObjects("ComboBox1").Object.Value
If VBA.Len(Strr) = 0 Then Exit Sub
Dim R As Range, Rx As Range
''定义功能名称单元格区域
Set R = Me.Range("D2:D" & Range("D65535").End(xlUp).Row)
For Each Rx In R ''遍历名称
    If Rx.Value = Strr Then ''如果找到相同名称
        Shell Rx.Offset(0, -1).Value ''执行命令
        Exit For
    End If
Next Rx
End Sub
Private Sub Worksheet_Activate()
 Dim LsVarr As String
 LsVarr = Me.Range("D2:D" & Range("D65535").End(xlUp).Row).Address
 ''ComboBox组合框赋值
 Me.OLEObjects("ComboBox1").ListFillRange = LsVarr
End Sub

Shell命令

上图为简单的一些系统命令，收藏备用。