vba可实现打开关闭edge浏览器,代码如下:
Sub Open_and_closeEdge()
'yngqq443440204@2024年4月9日11:51:03
Dim strCommand As String
' 构建启动 Edge 的命令行
strCommand = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe https://www.baidu.com"
' 使用 Shell 函数执行命令行
Shell strCommand, vbNormalFocus
Dim cmd As String
Dim com1 As String
com1 = "msedge.exe"
cmd = "TASKKILL /F /IM " & com1 & " /T"
' 执行命令
Dim success As Integer
success = Shell(cmd, vbHide)
' 检查命令是否成功执行
If success = 0 Then
MsgBox "无法关闭edge浏览器。"
Else
MsgBox "edge浏览器已成功关闭。"
End If
End Sub
Shell 函数
执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有下面这些命名参数:
部分 | 描述 |
---|---|
pathname | 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。在Macintosh中,可以使用MacID函数来指定一个应用程序的署名而不是名称。下面的例子使用了Microsoft Word的署名:Shell MacID("MSWD") |
Windowstyle | 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。在Macintosh(系统7.0或更高)中,windowstyle仅决定当应用程序运行时是否获得焦点。 |
windowstyle 命名参数有以下这些值:
常量 | 值 | 描述 |
---|---|---|
vbHide | 0 | 窗口被隐藏,且焦点会移到隐式窗口。常数vbHide在Macintosh平台不可用。 |
VbNormalFocus | 1 | 窗口具有焦点,且会还原到它原来的大小和位置。 |
VbMinimizedFocus | 2 | 窗口会以一个具有焦点的图标来显示。 |
VbMaximizedFocus | 3 | 窗口是一个具有焦点的最大化窗口。 |
VbNormalNoFocus | 4 | 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。 |
VbMinimizedNoFocus | 6 | 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 |
说明
如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序,则会产生错误。
在Macintosh中,vbNormalFocus、vbMinimizedFocus和vbMaximizedFocus都将应用程序置于前台;vbHide、vbNoFocus、vbMinimizeFocus都将应用程序置于后台。
注意 缺省情况下,Shell 函数是以异步方式来执行其它程序的。也就是说,用 Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell 函数之后的语句。