vba打开关闭浏览器——shell函数

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 函数之后的语句。