VBA 코드를 사용하여 사용자 이름 및 암호를 전달하십시오.

Question

일부 데이터를 SharePoint 문서로 업데이트하려고하는데 로컬 환경에서이 문제를 해결하는 동안 문제가 발생하지 않습니다.

그러나 가상 데스크톱에서 동일한 작업을 수행하려고 할 때 만들 수 없습니다. Windows 암호를 사용하여 사용자 이름 &의 암호를 입력합니다. 이 시나리오에서는 'SendKeys'를 사용하여 시도했지만 이해가되지 않습니다.

.... 
SendKeys "abc\ATX123",5 
SendKeys "Password1",5 
SendKeys "{ENTER}",5 
.... 

이 스 니펫은 ID가 & 인 Pwd를 입력하지 않고 'ENTER'를 전달하는 것입니다. 아무도 내게 가능한 해결책을 제안 할 수 있습니까?

Answer 1

마지막으로,이 요구 사항을 간접적으로 달성 할 수있는 방법을 찾았지만, 이것이 결국 찾을 수있는 유일한 방법이었습니다. .

내가 한 것은 간단합니다. 단지 하나의 창 스크립트 파일 'Logon.vbs'를 만들어 팝업 화면을 처리하고 VBA에서 vbs를 호출했습니다.

Shell "WScript C:\Users\ABC\Desktop\Logon.vbs", vbNormalFocus 

: - :

Windows 스크립트 : Logon.vbs VBS 스크립트를 호출하는

'Creating an script object 
Set oWSH = WScript.CreateObject("WScript.Shell") 

'Activating alert screen  
oWSH.AppActivate ("Windows Security") 

'Passing the value UserName/UserID 
oWSH.SendKeys "USERNAME"  'ensure to complete the username with apropriate domain e.g., abc/A123456 

'Changing the focus to password textbox 
oWSH.SendKeys "{TAB}" 

'Passing the value password 
oWSH.SendKeys "PASSWORD" 

'Clicking enter to complete the screen 
oWSH.SendKeys "{ENTER}" 

'Releasing the script object 
Set oWSH = Nothing 

VBA 코드이 같은 뭔가를 찾고 있다면

, 아래의 샘플을 참조하십시오

Answer 2

우선 당신은 SendKeys "yourString", Boolean을 원할 것입니다. 내가 알고 있듯이 SendKeys 명령은 True 또는 False을 두 번째 입력으로 원합니다. 또한 다른 필드에서 "탭 이동"을 시도 할 수 있습니다 : 첫 번째 기록 얻을되지 않은 경우

가

SendKeys "abc\ATX123", True 
SendKeys "{TAB}", True 
SendKeys "Password1", True 
SendKeys "{ENTER}", True 

, 어쩌면 초점이 정의 폼의 또 다른 구성 요소에 있습니다. "탭"을 사용하여 사용자 정의 폼이 나타나면 "사용자 이름"텍스트 상자가 아직 활성화되어 있는지 확인하십시오. 경우에 따라서는 포커스를 설정하려고 시도 할 수도 있습니다.