---------------------------------------
Sub openurl()
URL = Range("A1")
Shell "cmd /k start 360chrome.exe " & URL, vbNormalFocus
End Sub
自动打开网页后自动关闭cmd窗口
---------------------------------------
---------------------------------------
Sub openurl()
URL = range（"A1"）
Shell "cmd /k start 360chrome.exe " & URL & "&&EXIT ", vbNormalFocus
End Sub
优化连接前后加引号
---------------------------------------
---------------------------------------
Sub openurl()
URL = Range("A1")
Shell "cmd /k start 360chrome.exe " & Chr(34) & URL & Chr(34), vbNormalFocus
End Sub
运行后关闭cmd窗口
---------------------------------------
---------------------------------------
Sub openurl()
URL = Range("A1")
Shell "cmd /c start 360chrome.exe " & Chr(34) & URL & Chr(34), vbNormalFocus
End Sub
隐藏窗口运行（直接打开）
---------------------------------------
---------------------------------------
Sub openurl()
URL = "http://www.baidu.com"
With CreateObject("WScript.Shell")
.Run "cmd /c start 360chrome.exe " & Chr(34) & URL & Chr(34), WshHide, True
End With
End Sub
