편집 기록

질문: 위의 그림처럼 검색창에 커서를 띄우는 엑셀 vba 명령문이 알고 싶습니다.

예제문처럼 로그인창 에 값을 바로 입력하는 방법은 알겠는데 위의 그림처럼 검색창에 커서를 띄우는 방법을 모르겠습니다.

---------예제-------

Sub NaverLogin()

'// 네이버 자동 로그인 명령문 시작

Dim MyBrowser As InternetExplorer
Dim MyURL As String
Dim htmldoc As HTMLDocument
Dim txtID As IHTMLElement
Dim txtPW As IHTMLElement
Dim btnLogin As IHTMLElement

On Error GoTo Err_Clear

MyURL = "https://nid.naver.com/nidlogin.login"

Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.Visible = True
MyBrowser.Navigate MyURL



Set htmldoc = MyBrowser.Document

Set txtID = htmldoc.getElementById("id")
txtID.Value = LoginID



END SUB

htmldoc.getElementById("id").Click 의 구문을 써도 검색창에 커서가 띄워지지 않네요.

예제문과는 다르게 제가 쓰는 회사 전산망은 클릭해서 접속 할 수 있는 버튼이 없고, 커서가 뜬 상태에서 엔터키를 눌러야지 접속이 되는 환경입니다.

고수님의 답변을 기다립니다.

질문: 위의 그림처럼 검색창에 커서를 띄우는 엑셀 vba 명령문이 알고 싶습니다.

예제문처럼 로그인창 에 값을 바로 입력하는 방법은 알겠는데 위의 그림처럼 검색창에

커서를 띄우는 방법을 모르겠습니다.

---------예제-------

Sub NaverLogin()

'// 네이버 자동 로그인 명령문 시작

Dim MyBrowser As InternetExplorer Dim MyURL As String Dim htmldoc As HTMLDocument Dim txtID As IHTMLElement Dim txtPW As IHTMLElement Dim btnLogin As IHTMLElement

On Error GoTo Err_Clear

MyURL = "https://nid.naver.com/nidlogin.login"

Set MyBrowser = New InternetExplorer MyBrowser.Silent = True MyBrowser.Visible = True MyBrowser.Navigate MyURL

Set htmldoc = MyBrowser.Document

Set txtID = htmldoc.getElementById("id") txtID.Value = LoginID

END SUB

htmldoc.getElementById("id").Click 의 구문을 써도 검색창에 커서가 띄워지지 않네요

예제문과는 다르게 제가 쓰는 회사 전산망은 클릭해서 접속 할 수 있는 버튼이 없고,

커서가 뜬 상태에서 엔터키를 눌러야지 접속이 되는 환경입니다.

고수님의 답변을 기다립니다.