vbscript 在VBA中运行Shell命令

Posted 2021-05-21

Sub OpenCamera()
'
' OpenCamera Macro
'

'
Dim path As String
Dim cmd As String

'
' Camera.lnk is a desktop shortcut for the Windows Camera app.
' To create a shortcut for this app.
'
' 1. Open File Explorer.
' 2. Paste the following in the address bar and press enter:  %windir%\explorer.exe shell:::{4234d49b-0245-4df3-b780-3893943456e1}
' 3. Right click on the ‘Camera’ app and select ‘Create shortcut’.
path = "C:\Users\" & CurrentUser & "\Desktop\Camera.lnk"
cmd = "RunDLL32.EXE shell32.dll,ShellExec_RunDLL "
Shell (cmd & path)
End Sub