VBA 利用Wscript.Shell打開記事本 …

Sub 打开记事本()
Dim Notep As Object
Set Notep = CreateObject("wscript.Shell")
Notep.Run "notepad"
Set Notep = Nothing
End Sub

 

Sub 打开计算器()
Dim cal As Object
Set cal = CreateObject("wscript.Shell")
cal.Run "calc"
Set cal = Nothing
End Sub