添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
相关文章推荐
从容的路灯  ·  Delphi ControlBar ...·  1 月前    · 
淡定的冰淇淋  ·  Caused by: ...·  4 月前    · 
文雅的炒饭  ·  java docker ...·  1 年前    · 
愤怒的李子  ·  202111-23更文-pgsql中floa ...·  1 年前    · 

---------------------------------------

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