>

이 코드는 가정용 랩톱에서 실행할 수 있었지만 업무용 랩톱에서는 실행할 수 없었습니다.

Sub Autologin()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate "my_url"
    IE.Document.GetElementByID("j_username").Value = "my_username"`

마지막 줄에 오류가 발생했습니다.

Run-time error '-2147417848 (80010108)':
Automation error, The object invoked has disconnected from its client.

  • 답변 # 1

    이것으로 가십시오 :

    Dim mainDoc As HTMLDocument 
    Set mainDoc = IE.document
    
    

    '액세스하려는 컨트롤의 id 이름을 추가하는 위치입니다. Internet Explorer에서 '보기 – 소스'를 통해 소스를 검색하여 ID 이름을 찾을 수 있습니다.

    mainDoc.all("j_username").value="my_username"
    Set IE = Nothing
    Set mainDoc = Nothing
    
    

  • 답변 # 2

    이것을 알려주세요 :

    Dim mainDoc As HTMLDocument
    Set mainDoc = IE.document
    
    

    '액세스하려는 컨트롤의 id 이름을 추가하는 위치입니다. Internet Explorer에서 '보기 – 소스'를 통해 소스를 검색하여 ID 이름을 찾을 수 있습니다.

    mainDoc.all("j_username").value="my_username"
    Set IE = Nothing
    Set mainDoc = Nothing
    
    

  • 이전 플러터 아이콘이 표시되지 않습니다
  • 다음 sql - 발생률 캡처