네이버 부동산 크롤링 런타임 오류 계속되면 소스를 변경해야하나요?

VBA
작성자
나눙너모귀여워용
작성일
2021-04-03 12:01
조회
48
"웹 크롤링, 이것만 알면 다 됩니다. | 네이버 부동산, 연관검색어 실전 크롤링"

유튜브보고 열심히 따라하는데

 

 

 

연관검색어 JSON 데이터 파싱 부분에서 

실행하면 직접실행창에 결과물이 안떠요 ㅠ

예제파일로 따라하고있습니다.

Sub 연관검색어()
' 변수설정
Dim URL As String
Dim htmlResult As Object '<- Get HTTP 명령문의 결과값 ...>> HTML 문서
Dim strResult As String '<-htmlResult 에서 받아온 HTML 문서열
Dim strSearch As String '< - 검색단어
strSearch = "바이든"
URL = "https://ac.search.naver.com/nx/ac?q=" & strSearch & "&frm=nx&st=100"
Set htmlResult = GetHttp(URL)
strResult = htmlResult.body.innerhtml
strResult = Splitter(strResult, "items"" : [ [", "] ] }")
Debug.Print strResult
End Sub
이부분에서 실행을 하면
'9'런타임 오류가 발생하였다고 z-CrawlModule 창의
vaArr = Split(v, Cutter)(1) 부분에 노란색 표시가
뜨고 넘어가지를 않네용 다른분들 조언대로 띄어쓰기가
문제인거 같아서 다른분들거 복붙해도 안되네요ㅠ
어쓰기 문제가 아니라 소스코드문제 같아서 
z-CrawlModule 창의
------------------------------------------------------------------------------------------------

Function Splitter(v As Variant, Cutter As String, Optional Trimmer As String)

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ Splitter 함수
'▶ Cutter ~ Timmer 사이의 문자를 추출합니다. (Timmer가 빈칸일 경우 Cutter 이후 문자열을 추출합니다.)
'▶ 인수 설명
'_____________v : 문자열입니다.
'_________Cutter : 문자열 절삭을 시작할 텍스트입니다.
'_________Trimmer : 문자열 절삭을 종료할 텍스트입니다. (선택인수)
'▶ 사용 예제
'Dim s As String
's = "{sa;b132@drama#weekend;aabbcc"
's = Splitter(s, "@", "#")
'msgbox s '--> "drama"를 반환합니다.
'###############################################################

Dim vaArr As Variant

vaArr = Split(v, Cutter)(1)
If Not IsMissing(Trimmer) Then vaArr = Split(vaArr, Trimmer)(0)

Splitter = vaArr

End Function


구문을

VBA 문자열 자르기 :: Splitter 명령문 사용법 총정리

보고 이걸로 바꿔넣었는데  바꾸고나니 '9'런타임 오류'창은 안뜨는데
결과값이안나와요 ㅜㅜ 실행이 안되는건가
Function Splitter(v As Variant, Cutter As String, Optional Trimmer As String)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ Splitter 함수
'▶ Cutter ~ Timmer 사이의 문자를 추출합니다. (Timmer가 빈칸일 경우 Cutter 이후 문자열을 추출합니다.)
'▶ 인수 설명
'_____________v       : 문자열입니다.
'_________Cutter      : 문자열 절삭을 시작할 텍스트입니다.
'_________Trimmer  : 문자열 절삭을 종료할 텍스트입니다. (선택인수)
'▶ 사용 예제
'Dim s As String
's = "{sa;b132@drama#weekend;aabbcc"
's = Splitter(s, "@", "#")
'msgbox s   '--> "drama"를 반환합니다.
'###############################################################
 
Dim vaArr As Variant
 
On Error GoTo EH:
 
vaArr = Split(v, Cutter)(1)
If Not IsMissing(Trimmer) Then vaArr = Split(vaArr, Trimmer)(0)
 
Splitter = vaArr
 
Exit Function
 
EH:
    Splitter = ""
 
End Function
오빠두 질문이랑 유튜브댓글 보니까 비슷한 케이스인분들이 많더라고요 ㅠㅠ
해결되신 분들이나 고수님들 답변 주시면 감사하겠습니다 꾸벅 (´▽`ʃ♡ƪ)
전체 0

전체 2,796
번호 카테고리 제목 작성자 작성일 추천 조회
2785 VBA
New VBA로 SQL 형식의 관계형 데이터베이스 구축
루카스 | 2021.04.17 | 추천 0 | 조회 11
루카스 2021.04.17 0 11
2784 함수/공식
New 엑셀 버튼(?)만들기 관련 질문드려요! (2) 답변완료
Philiip Rho | 2021.04.17 | 추천 1 | 조회 34
Philiip Rho 2021.04.17 1 34
2783 기능/도구
New 이중유효성목록상자의 콤보박스 활용 관련 질문입니다. (1)
Butterfly | 2021.04.17 | 추천 1 | 조회 18
Butterfly 2021.04.17 1 18
2782 함수/공식
New 텍스트 나누기 (2)
정기🎵 | 2021.04.17 | 추천 1 | 조회 28
정기🎵 2021.04.17 1 28
2781 VBA
New [VBA] 단어진도표를 활용한 각 개인별 단어엑셀파일 만들기 첨부파일 (1)
가람 | 2021.04.17 | 추천 0 | 조회 18
가람 2021.04.17 0 18
2780 VBA
New vba버튼 표 만들기 요청의건 첨부파일
작은소녀 | 2021.04.16 | 추천 0 | 조회 40
작은소녀 2021.04.16 0 40
2779 VBA
New [vba] 엑셀 표에 있는 지정된 행에 있는 이름의 파일을 순서대로 열고 닫는 코드만들기 (2) 답변완료
가람 | 2021.04.16 | 추천 1 | 조회 31
가람 2021.04.16 1 31
2778 함수/공식
New xFilter 유사일치 적용 가능한 함수 (1)
정길이 | 2021.04.16 | 추천 -1 | 조회 25
정길이 2021.04.16 -1 25
2777 문서서식
New 원가계산이 너무 어렵습니다.. (1)
kai | 2021.04.16 | 추천 -1 | 조회 62
kai 2021.04.16 -1 62
2776 함수/공식
New 값 중복 제외 함수를 알고싶습니다. (1)
오리 | 2021.04.16 | 추천 0 | 조회 41
오리 2021.04.16 0 41
2775 VBA
New 'naverfinancehistory' VBA 관련 질문 남겨보아요 (1)
구릉이 | 2021.04.16 | 추천 0 | 조회 18
구릉이 2021.04.16 0 18
2774 기능/도구
New ' 표시 (1)
유리 | 2021.04.16 | 추천 0 | 조회 31
유리 2021.04.16 0 31
2773 함수/공식
New 중복된 데이터 제거 후 불러오기 첨부파일 (3) 답변완료
seisai | 2021.04.15 | 추천 0 | 조회 74
seisai 2021.04.15 0 74
2772 차트/그래프
New 가로형 차트에서 세로축의 항목이 2개 이상일 때 텍스트 방향 변경 어떻게 하나요? (1)
k**** | 2021.04.15 | 추천 0 | 조회 18
k**** 2021.04.15 0 18
2771 함수/공식
New 중복값 제거 및 축출 함수 첨부파일 (2)
3victor | 2021.04.15 | 추천 0 | 조회 48
3victor 2021.04.15 0 48
2770 기능/도구
New 엑셀 셀안에 내용을 메모삽입후 셀복사+삽입된 메모에 붙여넣기 가능할까요? (3)
엑셀공부 | 2021.04.15 | 추천 1 | 조회 42
엑셀공부 2021.04.15 1 42
2769 함수/공식
New 엑셀 왕초보 질문 2개 영역의 데이터 목록을 순차적으로 자동배치 문의 드립니다 첨부파일 (4)
atoz | 2021.04.15 | 추천 -3 | 조회 34
atoz 2021.04.15 -3 34
2768 함수/공식
추천인 등수와 신규회원 데이터 정리 방법을 어떻게 시작해야할지 모르겠어요ㅠ (2) 답변완료
뿌드득 | 2021.04.14 | 추천 0 | 조회 37
뿌드득 2021.04.14 0 37
2767 함수/공식
다른 시트의 항목값중 한개 입력하면 여러항목 같이 불러오기 첨부파일 (1)
정미니 | 2021.04.14 | 추천 0 | 조회 26
정미니 2021.04.14 0 26
2766 함수/공식
지정한 기간+지정한 조건 사이를 만족하는 값의 갯수를 구할떄 함수질문드려요 (2)
냥냥 | 2021.04.14 | 추천 1 | 조회 32
냥냥 2021.04.14 1 32
2765 함수/공식
다중 조건과 텍스트 추출 첨부파일 (4)
강혜원 | 2021.04.14 | 추천 0 | 조회 103
강혜원 2021.04.14 0 103
2764 VBA
vba 질문 (뒤로가기 버튼 구현) (2)
자신 | 2021.04.13 | 추천 0 | 조회 48
자신 2021.04.13 0 48
2763 VBA
여러 항목별 중 반복되는 특정시각에 맞는 항목 찾기. 논리적 규칙? 방향을 못잡겠습니다. (4)
6ra70 | 2021.04.13 | 추천 0 | 조회 45
6ra70 2021.04.13 0 45
2762 함수/공식
XLOOKUP 함수 활용한 세트구성 원가 합 구하기 첨부파일 (1)
고래 | 2021.04.13 | 추천 0 | 조회 49
고래 2021.04.13 0 49
2761 함수/공식
텍스트 및 수식 불러오기 함수 요청의 건 첨부파일 (3) 답변완료
seisai | 2021.04.13 | 추천 0 | 조회 56
seisai 2021.04.13 0 56
2760 함수/공식
리본메뉴 단축버튼 만들기 첨부파일 (5) 답변완료
SAM | 2021.04.13 | 추천 0 | 조회 48
SAM 2021.04.13 0 48
2759 피벗테이블
피벗테이블 - 계산필드 첨부파일 (5)
나도오빠두한다 | 2021.04.13 | 추천 0 | 조회 46
나도오빠두한다 2021.04.13 0 46
2758 기능/도구
엑셀2007 필터링 및 데이터 붙여넣기, 삭제 관련 첨부파일 (2)
엑셀초보 | 2021.04.13 | 추천 0 | 조회 25
엑셀초보 2021.04.13 0 25
2757 함수/공식
어떤 수식을 써야할지 감이 안잡힙니다... 3탄... 첨부파일 (4) 답변완료
벳남외노자 | 2021.04.13 | 추천 1 | 조회 78
벳남외노자 2021.04.13 1 78
2756 함수/공식
경력의 80페센트를 구하는 수식을 알고 싶습니다. (1)
eggs**** | 2021.04.13 | 추천 0 | 조회 59
eggs**** 2021.04.13 0 59