由于Excel和Windows的關系，天然就賦予了強大的基因。執行個文件真的太小意思了。

vba shell 函數

格式：Shell(PathName[,WindowStyle])
PathName :要執行的程序名，包括目錄或文件夾
WindowStyle :程序運行時窗口的樣式

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

更多功能看下圖，說了基因強大，由于是一個家族的軟件，所以在windows系統之下，無所不能的樣子，有興趣可以自己去發現。

使用方法

左側為命令功能代碼表，也就是執行命令使用的操作符，具體操作在右邊。

下拉組合框可以選擇功能，選擇之后單擊執行，就會執行相應的系統命令。

具體做這個有什么用呢？我也思考了很久，發現可能真沒什么用，但是對于一個電腦小白來說，或許有點用處。

比如要打開系統中的某個功能項的時候，就要在開始里找好久，有些根本不知道如何查找。

所以，這個工具的可以拿出來了。

例如，需要打開密碼管理，進行密碼設置的時候，可以打開這個文件選擇密碼，單擊執行按鈕之后，就打開密碼管理功能了。

雖然在開始里面也很好找，但是如果要打開組策略呢！是不是就有點犯難了？

也不難，只要認識組策略就以上面的方法操作就可以打開了。

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

其實，Shell執行了一個代碼：Shell "cmd.exe /c gpedit.msc "

完整代碼

這個例子代碼量很少，所以就全部貼出來了。

喜歡的趕快收藏起來，不要錯過喲。

Option ExplicitPrivate Sub CommandButton1_Click()Dim Strr As StringStrr = Me.OLEObjects("ComboBox1").Object.ValueIf VBA.Len(Strr) = 0 Then Exit SubDim 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 IfNext RxEnd SubPrivate Sub Worksheet_Activate() Dim LsVarr As String LsVarr = Me.Range("D2:D" & Range("D65535").End(xlUp).Row).Address ''ComboBox組合框賦值 Me.OLEObjects("ComboBox1").ListFillRange = LsVarrEnd Sub

Shell命令

上圖為簡單的一些系統命令，收藏備用。

總結

以上是生活随笔為你收集整理的.sql文件如何执行_Excel如何运行可执行文件，别急，用过vba Shell函数的都知道的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。