연관검색어 Debug.Print 화면 에러
VBA
작성자
다올
작성일
2022-06-15 15:04
조회
31
안녕하세요!
엑셀 웹 크롤링 네이버 연관 검색어 & 부동산 크롤링 열공중인 회원입니다
아래 strResult = Splitter(strResult, "items"":[[", "]]}") 부분 입력후 실행시
디버그 프린터 화면에 아무 반응을 하지 않습니다.(디버그 에러도 없음)
혼자 해결 하려 하여도 해결이 안되 문의 드림니다.
살펴 보시고 연락 부탁 드림니다.
Sub 연관검색어()
'변수설정
Dim url As String
Dim htmlresult As Object '<gethttp 명령문의 결과값...>>html문서
Dim strResult As String '<htmlreuslt에서 받아온 html문자열...>
Dim strSearch As String '검색단어
Dim v As Variant
Dim i As Long
strSearch = "바이든"
url = "https://ac.search.naver.com/nx/ac?q=" & strSearch & "&frm=nv&st=100"
Set htmlresult = GetHttp(url)
strResult = htmlresult.body.innerHTML
이부분에서 실행을 하면 정상으로 바이든 프린터 하면이 나오는데
strResult = Splitter(strResult, "items"":[[", "]]}")
위 부분에서 실행을 하면 에러 표시도 없고 프린터 하면이 안나옵니다
Debug.Print strResult
End Sub
전체 0
댓글을 남기려면 로그인하세요.
전체 6,893
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (98)
![]() ![]() |
![]() ![]() |
2022.06.23 | 144 | 17728 | ||
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(79)
오빠두엑셀
|
2021.10.28
|
추천 98
|
조회 5343
|
![]() ![]() |
2021.10.28 | 98 | 5343 |
39044 | VBA |
New 사용자정의함수를 다른PC에 적용
![]() ![]() |
![]() ![]() |
09:40 | 0 | 1 |
39034 | VBA |
New 자동화 프로그램 항목 추가 관련
![]() |
![]() |
03:47 | 0 | 19 |
39032 | VBA |
New VBA 고급자동필터 활용 조건 값이 비워 있을 때 결과 값도 안 나오게 하는 방범 문의 합니다.
![]() ![]() ![]() |
![]() ![]() |
03:13 | 0 | 16 |
39019 | 함수/공식 |
New 엑셀 수식시 범위부분이 절대값이 안되요
![]() ![]() |
![]() |
2022.07.05 | 0 | 21 |
39016 | 함수/공식 |
New vlookup으로 가져온 알파벳을 특정숫자로 바꾸는 방법(쌩초보)
(1)
![]() |
![]() |
2022.07.05 | -2 | 26 |
39014 | VBA |
New 열 추가 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 25 |
39009 | 함수/공식 |
New index,match 함수 중에서 동일한 값이 나올때
![]() ![]() |
![]() |
2022.07.05 | 0 | 21 |
39007 | 함수/공식 |
New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때
![]() ![]() |
![]() |
2022.07.05 | 0 | 29 |
39003 | 함수/공식 |
New 셀에서 영어만 추출하기
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 23 |
38996 | VBA |
New 현재 열넓이 확인후 20 더하는 방법
(1)
![]() |
![]() |
2022.07.05 | 0 | 33 |
38990 | 함수/공식 |
New 중복값중에 하나만 더하기
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.05 | 0 | 25 |
38987 | 함수/공식 |
New 행 열이 모두 숫자입니다.
![]() ![]() |
![]() |
2022.07.05 | 0 | 26 |
38983 | 함수/공식 |
New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 39 |
38982 | 파워쿼리/피벗 |
New 파워쿼리에서 영문과 숫자만 순서대로 추출
(4)
![]() |
![]() |
2022.07.05 | 0 | 36 |
38981 | 구글시트 |
New COUNTIF 함수와 SUBTOTAL
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 21 |
38979 | 문서서식 |
New 서로 다른 엑셀 파일 비교
![]() ![]() |
![]() |
2022.07.05 | 0 | 26 |
38976 | 함수/공식 |
New BOM 오류 확인 방법 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 30 |
38973 | VBA |
New 점수가 6점이상만 시트2에 표기하는 VBA 또는 매크로 표기하는 방법 문의 합니다.
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.05 | 0 | 36 |
38972 | 함수/공식 |
New 함수표현식을 Ctrl + x 사용하여 가져올때, Sheet 참조 제거하는법
(3)
![]() |
![]() |
2022.07.05 | 0 | 36 |
38970 | VBA |
New VBA 1주차 공부하면서 응용해보다가
(2)
답변완료
![]() ![]() |
![]() ![]() |
2022.07.05 | 0 | 31 |
38959 | 기능/도구 |
New 데이터 분할 방법
![]() ![]() ![]() |
![]() |
2022.07.04 | 0 | 23 |
38948 | 문서서식 |
New 액셀 카카오톡 문자보내기 자동화 양식 그림 카톡 보내기 오류 해결 방법 문의 드립니다!
![]() ![]() |
![]() |
2022.07.04 | 0 | 25 |
38942 | 문서서식 |
New 안녕하세요 엑셀 날짜변환에 대해서 질문드립니다.
(3)
![]() |
![]() |
2022.07.04 | 0 | 40 |
38940 | 함수/공식 |
New IF함수 순자적으로 조건 적용되도록 만들고 싶어요
![]() ![]() ![]() |
![]() |
2022.07.04 | 0 | 44 |
38939 | VBA |
New 특정조건일경우 값 입력
(4)
답변완료
![]() |
![]() |
2022.07.04 | 0 | 34 |
38932 | VBA |
New 재고관리 프로그램 중 등록시 '13런타임 오류'나는데 모르겠어요
![]() ![]() |
![]() |
2022.07.04 | 0 | 28 |
38909 | 파워쿼리/피벗 |
New 파워쿼리 작성
![]() ![]() ![]() |
![]() ![]() |
2022.07.04 | 0 | 45 |
38907 | 함수/공식 |
New INDEX + MATCH 함수 에러 문제관련
(2)
![]() |
![]() |
2022.07.04 | -2 | 38 |
38905 | VBA |
New [1주차]VBA 미션... 다들 해보셧나요? 도움 좀..ㅠ
![]() ![]() ![]() |
![]() ![]() |
2022.07.04 | 0 | 34 |
38899 | 함수/공식 |
New 어떤 함수를 써야 될지
(4)
![]() |
![]() |
2022.07.04 | 0 | 48 |