20201021 1255
Sub zSearchSource()
'This does not work##########
If False Then
Set vb = CreateObject("WScript.Shell")
vb.SendKeys "^{ESC}"
SendKeys "^{ESC}"
SendKeys "^{ESC}"
End If
'#############################
zTarget = "C:\Program Files\Everything\Everything.exe"
zStr = ActiveCell.Value
Call Shell(zTarget, vbNormalFocus)
SendKeys zStr
End Sub'[PA] 업무자동화 > [XL]Excel & VBA' 카테고리의 다른 글
| XL remove links (0) | 2020.12.24 |
|---|---|
| XL Pivot Table Calculated Fields (0) | 2020.11.06 |
| XL Last Cell 다루기 (0) | 2020.10.08 |
| XL Date Time Formatting (0) | 2020.10.07 |
| XL Group Pivot Table (0) | 2020.10.07 |
