前言:
此刻各位老铁们对“用命令运行文件”都比较重视,姐妹们都需要知道一些“用命令运行文件”的相关资讯。那么小编同时在网上汇集了一些有关“用命令运行文件””的相关资讯,希望小伙伴们能喜欢,各位老铁们一起来学习一下吧!由于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 SubShell命令
上图为简单的一些系统命令,收藏备用。
标签: #用命令运行文件