"sendkeys"는 숫자 잠금을 해제하는 데만 좋은 것 같습니다. 다른 작업을 수행하지 않는 것 같습니다. 메모장에 임의의 문자를 작성하는 여러 가지 방법을 시도했지만 성공하지 못했습니다. 내 유일한 직감은 지난주까지 잘 작동했던 최근 Windows 업데이트에 의해이 기능이 비활성화되었다는 것입니다. 다음은 몇 가지 예제 코드입니다. 누구든지 키를 다시 보내는 방법을 알고 있습니까?
Public Sub WriteToNotePad()
Dim vReturn As Variant
vReturn = Shell("NotePad.exe", vbNormalFocus) 'open notepad
AppActivate vReturn 'ensure notepad is active
Application.Wait (Now() + TimeValue("00:00:03")) 'wait a few seconds
SendKeys "You should see this in notepad", True
End Sub
Office 365 업데이트를받지 못한 컴퓨터를 사용했는데 코드가 제대로 작동했습니다. 그래서 그게 문제라고 확신합니다. 이 문제를 해결하기 위해 John Coleman의 제안을 사용하여 대신 VBS 파일을 작성한 다음 VBA 코드에서 해당 스크립트를 호출했습니다.
위의 예에서 다음을 변경하십시오.
SendKeys "You should see this in notepad", True
이에:
Call Shell("wscript C:\writeToNotepad.vbs", vbNormalFocus)
그리고 VBS 파일은 해당 위치에 해당 이름과 다음 내용으로 저장됩니다.
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "You should see this in notepad"
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다