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。

语法</