VBA 크롤링 검색창을 클릭하여 커서 활성화하는 방법이 궁금합니다.

VBA
작성자
뚜루루
작성일
2020-07-03 02:26
조회
297

요약: 첨부파일처럼 검색창의 커서를 활성화시키는 방법

vba 크롤링을 배우면서 검색창에 getElementById("id").value 로 값을 넣는 방법을 배웠는데요.

회사내 전산망에서는 따로 검색확인버튼이 없어서 검색창에 데이터를 넣고 엔터를 쳐야지 목록이 뜨는

웹페이지가 있습니다.

원하는 값을 넣고 검색창을 클릭한 뒤 SendKeys "~" 코드를 사용하면 접속할 수 있는데

아무리 찾아봐도 검색창을 클릭하여 커서가 깜빡이게 하는 방법이 없네요. ㅠㅠ

getElementById("id").Focus 도 해보고, getElementById("id").click 을 써봐도

검색창이 활성화 되지가 않네요. ㅠㅠ

 

마지막 희망이 오빠두 입니다. vba로는 방법이 없는 걸까요?

작은 실마리라도  부탁드립니다 ㅠ

ezgif-4-a886c720a3f2.gif

전체 1

  • 2020-07-03 10:52

    해당 페이지를 볼수없어 정확한 해답을 드리긴 어렵지만, getElementByID 또는 getElementByClass 로 받아온 개체를 Element 라고 했을 때,
    Element.Value = "값" 으로 설정하면 값이 입력되야 하는데요. ID를 잘못 넣으신게 아닐까 생각됩니다.

    근본적인 해결책은 아니지만, 물리적으로 포커싱을 변경하는 방법도 있습니다.

    IE.Visible = False
    IE.Visible = True

    를 하시면, 인터넷 익스플로러 창이 포커싱 됩니다.
    이 상태에서,
    SendKeys "{TAB}"
    를 통해 원하는 개체로 포커싱을 하는 것으로 구현할 수 있으니 한번 고려해보세요.
    단 SendKeys 를 여러개 입력하실 때에는 중간에

    For i = 1 to 500
    Next

    처럼 딜레이를 넣어주셔야 올바르게 동작합니다.
    답변이 도움이 되셨길 바랍니다.


전체 2,458
번호 카테고리 제목 작성자 작성일 추천 조회
2449 차트/그래프
New 간트차트 자동화 양식에 문의 사항
kuh**** | 13:26 | 추천 0 | 조회 6
kuh**** 13:26 0 6
2448 문서서식
New 쿠쿠님 VLOOKUP 사용에 대해서 자세히 설명좀 부탁드립니다. 첨부파일 (3) 답변완료
kp96**** | 01:13 | 추천 0 | 조회 31
kp96**** 01:13 0 31
2447 VBA
New Get_Balance 함수 소수점 계산
새우튀김 | 2021.03.01 | 추천 0 | 조회 28
새우튀김 2021.03.01 0 28
2446 VBA
New 피벗테이블 자동업데이트 명령문 (1) 답변완료
Truman Kim | 2021.03.01 | 추천 0 | 조회 33
Truman Kim 2021.03.01 0 33
2445 문서서식
New vlookup을 어떻게 사용해야 하나요? 첨부파일 (3) 답변완료
kp96**** | 2021.02.28 | 추천 0 | 조회 67
kp96**** 2021.02.28 0 67
2444 기능/도구
New 여러 시트에서 어떠한 표를 동기화 시키고 싶습니다. (1) 답변완료
naver_5fcf626b3f9b3 | 2021.02.27 | 추천 0 | 조회 42
naver_5fcf626b3f9b3 2021.02.27 0 42
2443 함수/공식
[ ]나 { }같은 특정부호를 각자 다른 단어에 한꺼번에 넣고 싶습니다 첨부파일 (1)
이성용 | 2021.02.27 | 추천 0 | 조회 35
이성용 2021.02.27 0 35
2442 VBA
VB offset.resize.value 사용시 빈셀 포함해서 복사 할 수 있는 방법이 있나요? (1)
darkblling | 2021.02.26 | 추천 0 | 조회 36
darkblling 2021.02.26 0 36
2441 문서서식
셀을 전체 새로고침 하는 기능이 있나요? (4)
STA | 2021.02.26 | 추천 0 | 조회 51
STA 2021.02.26 0 51
2440 VBA
여러조건있는 데이터복사 첨부파일 (1)
sevenhills | 2021.02.26 | 추천 0 | 조회 42
sevenhills 2021.02.26 0 42
2439 기능/도구
날짜 표시형식에 "주"표시 (2)
세이클럽 | 2021.02.26 | 추천 1 | 조회 41
세이클럽 2021.02.26 1 41
2438 VBA
엑셀 vba 파일 불러들일때 무한 루프 벗어나기 (3) 답변완료
손님 | 2021.02.26 | 추천 0 | 조회 37
손님 2021.02.26 0 37
2437 기능/도구
[DuTool] HomeTaxBR 함수 문의 (1)
hikary | 2021.02.26 | 추천 1 | 조회 33
hikary 2021.02.26 1 33
2436 VBA
VBA 반복구문 줄이는 방법 (1) 답변완료
H.B | 2021.02.26 | 추천 1 | 조회 39
H.B 2021.02.26 1 39
2435 VBA
이동거리에 따른 출장비 자동 계산 시트 구성 질의 (1)
윤여진 | 2021.02.26 | 추천 0 | 조회 33
윤여진 2021.02.26 0 33
2434 기능/도구
네이버 검색광고 액셀 (1)
빵원카 | 2021.02.26 | 추천 0 | 조회 45
빵원카 2021.02.26 0 45
2433 VBA
함수를 dll로 변환시 Source code가 숨겨지나여? (1)
손님 | 2021.02.26 | 추천 0 | 조회 27
손님 2021.02.26 0 27
2432 문서서식
다중 유효성 검사 도와 주세요 첨부파일 (2) 답변완료
shin**** | 2021.02.26 | 추천 0 | 조회 41
shin**** 2021.02.26 0 41
2431 VBA
VBA .CurrentRegion.AdvancedFilter xlFilterCopy 메소드? 설명가능하신분!!! (2) 답변완료
새우튀김 | 2021.02.25 | 추천 0 | 조회 33
새우튀김 2021.02.25 0 33
2430 함수/공식
조건부 서식을 사용하여 홀수날에만 적용하기 (2) 답변완료
모찌율 | 2021.02.25 | 추천 0 | 조회 35
모찌율 2021.02.25 0 35
2429 함수/공식
offset함수 입니다 첨부파일 (3) 답변완료
khj**** | 2021.02.25 | 추천 0 | 조회 55
khj**** 2021.02.25 0 55
2428 함수/공식
OFFSET 함수 문의드립니다 (3) 답변완료
권보스 | 2021.02.25 | 추천 1 | 조회 57
권보스 2021.02.25 1 57
2427 함수/공식
페이지 수 자동 으로 나오는 함수 있을까요? (1)
유리비 | 2021.02.25 | 추천 0 | 조회 43
유리비 2021.02.25 0 43
2426 피벗테이블
피벗테이블로 트리맵 차트 그리는 방법이 있을까요? (2) 답변완료
용쳐리 | 2021.02.25 | 추천 0 | 조회 34
용쳐리 2021.02.25 0 34
2425 VBA
입력된 여러가지 숫자들 조합해서 일치하는 값이나 가장 근사치를 찾는 방법 (1)
이주 | 2021.02.25 | 추천 0 | 조회 28
이주 2021.02.25 0 28
2424 함수/공식
엑셀 OFFSET 함수 사용법 관련입니다. (2)
모모네 집 | 2021.02.25 | 추천 1 | 조회 47
모모네 집 2021.02.25 1 47
2423 피벗테이블
슬라이서 연동 문제 (한 개 슬라이서로 2개 테이블을 원본으로 하는 피벗테이블 컨트롤하기) (1)
밥상달려 | 2021.02.24 | 추천 1 | 조회 29
밥상달려 2021.02.24 1 29
2422 VBA
VBA 배열 질문 (2) 답변완료
hanikr | 2021.02.24 | 추천 0 | 조회 41
hanikr 2021.02.24 0 41
2421 VBA
중복되는 데이터때문에 입력값이 제대로 입력되지 않습니다. (2) 답변완료
sinbal | 2021.02.24 | 추천 0 | 조회 32
sinbal 2021.02.24 0 32
2420 함수/공식
countifs 관련 문의 입니다. (1)
엑신이되자 | 2021.02.24 | 추천 1 | 조회 60
엑신이되자 2021.02.24 1 60