vba 크롤링 POST 사용에 막혀서 질문드립니다.

VBA

작성자

꽃가마

작성일

2021-02-18 22:57

조회

3974

KB의 liveOn 사이트 검색창에 아래처럼 POST 를 사용했읍니다.

계속 읽기는 하고 데이터는 비었는데 무엇이 빠진것인지 모르겠읍니다.

조언좀 부탁드립니다.

아래의 검색창입니다.

https://onland.kbstar.com/quics?page=C059652

Sub macroPOST()

Dim objHTTP As Object
Dim URL As String
Dim replyTXT As String

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "https://onland.kbstar.com/quics?page=C059652&QAction=837389&RType=json"
objHTTP.Open "POST", URL, False
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.Send ("노원구 월계동 그랑빌")

replyTXT = objHTTP.ResponseText

If objHTTP.Status = "200" Then 'success
MsgBox replyTXT
Else
'Do something
End If
End Sub

공감

0명

꽃가마

회원등급 : 4레벨

포인트 : 238 EP

총질문 : 7 개 (마감율 : 29%)

채택답변 : 0 개

게시글

전체 2

오빠두엑셀 님 446

2021-02-19 00:25

@꽃가마 님 적어주신 페이지를 살펴보니 아래 링크에서 JSON 정보를 받아옵니다.

https://onland.kbstar.com/quics?page=C059652&QAction=827218&RType=json

OAction 값을 어디에서 받아오는지는 페이지에서 추가로 분석이 필요합니다.

데이터를 받아오려면 헤더값을 추가로 넣어줘야 합니다. 아래 관련 헤더 적어드리니 참고해보세요.

Request 방식은 POST 그대로 사용하시면 됩니다.

답변이 문제 해결에 도움이 되셨길 바랍니다.
꽃가마 님 작성자

2021-02-19 20:05

^^매우 어렵네요.
아래 URL및 Header를 여러케이스로 바꿔가며 했는데... 잘 안되는군요
조금만 더 가르침이 있으면 알것같읍니다.

'검색 작업하고 있는 사이트: https://onland.kbstar.com/quics?page=C059652

Dim objHTTP As Object
Dim t As String
Dim URL As String

검색어 = "노원구 월계동 그랑빌"

'URL = "https://onland.kbstar.com/quics?page=C059652&QAction=837389&RType=json"
'URL = "https://onland.kbstar.com/quics?page=C059652&QAction=835627&RType=json"
URL = "https://onland.kbstar.com/quics?page=C059652&QAction=827218&RType=json"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
'Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

objHTTP.Open "POST", URL, False

objHTTP.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.182 Safari/537.36"
objHTTP.SetRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
objHTTP.Send (검색어)

« countif 함수 질문드립니다.

값 입력 시 입력값에 대한 디스크립션 표시 가능한지요? »

목록보기

전체 18,468

번호	카테고리	제목	작성자	작성일	추천	조회
알림		[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (313) 오빠두엑셀 \| 2022.02.03 \| 추천 572 \| 조회 599990	오빠두엑셀	2022.02.03	572	599990

공지사항	문서서식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197) 오빠두엑셀 \| 2021.10.28 \| 추천 310 \| 조회 34926	오빠두엑셀	2021.10.28	310	34926
78414	파워쿼리/피벗	New 다른 엑셀 파일에서 필요한 값만 불러오는 방법 망그러진나나 \| 13:34 \| 추천 0 \| 조회 2	망그러진나나	13:34	-	2
78413	함수/공식	New 경과주 구하는 수식 문의 엑셀렙업용 \| 13:19 \| 추천 0 \| 조회 5	엑셀렙업용	13:19	-	5
78411	문서서식	New 숫자 문자인식 숫자변환하는 법 (3) 패션피플 \| 10:37 \| 추천 0 \| 조회 34	패션피플	10:37	-	34
78410	VBA	New [매크로관련] 특정셀 자동증가하며, 연속출력할수 있을까요? (1) 박병호 \| 10:34 \| 추천 0 \| 조회 34	박병호	10:34	-	34
78408	문서서식	New 숫자 서식 변경하기 (3) 에그셀 \| 09:59 \| 추천 0 \| 조회 22	에그셀	09:59	-	22
78407	기능/도구	New 원드라이브 MICROSOFT 365 사용중 공동작업시 필터 (1) 록키발보아 \| 00:31 \| 추천 0 \| 조회 34	록키발보아	00:31	-	34
78402	함수/공식	New 괄호안의 시간:분 데이터를 분으로 합산하는 방법 질문드립니다. (1) 답변완료 nams \| 2025.04.28 \| 추천 0 \| 조회 57	nams	2025.04.28	-	57
78400	함수/공식	New 2차배열에서 countif (8) 라면이가좋아 \| 2025.04.28 \| 추천 0 \| 조회 72	라면이가좋아	2025.04.28	-	72
78399	함수/공식	New 한달의 마지막주 스케쥴 작성시 전주까지의 휴무 누적 합계 구하는 방법이 궁금합니다. (3) 쭈누 바라기 \| 2025.04.28 \| 추천 0 \| 조회 44	쭈누 바라기	2025.04.28	-	44
78398	VBA	New VBA 매크로 여러 엑셀 파일에서 사용 (1) shhhha \| 2025.04.28 \| 추천 0 \| 조회 67	shhhha	2025.04.28	-	67
78396	함수/공식	New 직원별로 근태 합계를 확인하고 싶어요 (12) 답변완료 배진희 \| 2025.04.28 \| 추천 0 \| 조회 91	배진희	2025.04.28	-	91
78395	함수/공식	New 특정 단어를 포함한 행 골라내는 방법에 대해 문의드립니다. (3) 답변완료 mmm1010 \| 2025.04.28 \| 추천 0 \| 조회 57	mmm1010	2025.04.28	-	57
78392	함수/공식	New 도와주세요... ( 특정값에 해당하는 반 번호 찾아 목록만들기) (6) 김동생 \| 2025.04.28 \| 추천 0 \| 조회 66	김동생	2025.04.28	-	66
78389	기능/도구	New 오빠두LIVE 196회 - 엑셀 프로젝트 관리 _ 일,주 바꾸는법 (1) 일류 \| 2025.04.28 \| 추천 0 \| 조회 58	일류	2025.04.28	-	58
78387	함수/공식	New 엑셀 관련 질문입니다. SUM과 IFERROR 입니다 ㅠ (6) 류 \| 2025.04.27 \| 추천 0 \| 조회 106	류	2025.04.27	-	106
78382		New Excel 추세선 이상 (2) eagle \| 2025.04.27 \| 추천 0 \| 조회 79	eagle	2025.04.27	-	79
78381	함수/공식	New 같은 이름 N 번째 데이터 (14) 답변완료 박정호 \| 2025.04.27 \| 추천 1 \| 조회 113	박정호	2025.04.27	1	113
78380	함수/공식	New On Error Resume Next 문구를 삽입하는 위치는? (2) 답변완료 GEEM \| 2025.04.27 \| 추천 0 \| 조회 85	GEEM	2025.04.27	-	85
78376	함수/공식	New 지역별 증감금액 확인 (3) 답변완료 충무공 \| 2025.04.26 \| 추천 0 \| 조회 76	충무공	2025.04.26	-	76
78374	함수/공식	New index를 활용한 조건에 맞는 금액을 찾는 방법 (4) 뚜둥뚜둥 \| 2025.04.26 \| 추천 0 \| 조회 91	뚜둥뚜둥	2025.04.26	-	91
78372	기능/도구	New 표서식 차이 문의 (2) 답변완료 hossang**** \| 2025.04.25 \| 추천 0 \| 조회 65	hossang****	2025.04.25	-	65
78370	피벗테이블	New (피벗테이블) 2024년 2025년 판매 TOP10 비교데이터 (13) 패션피플 \| 2025.04.25 \| 추천 0 \| 조회 89	패션피플	2025.04.25	-	89
78369	구글시트	New 엑셀을 구글 시트와 연동하는 법 (1) 물만둡 \| 2025.04.25 \| 추천 0 \| 조회 71	물만둡	2025.04.25	-	71
78368	함수/공식	New 곱하기 계산시 0일때도 계산하고 싶습니다 (2) 또야 \| 2025.04.25 \| 추천 0 \| 조회 88	또야	2025.04.25	-	88
78366		New 엑셀 일정 범위 내 최대값 가져오기 함수식 문의 (조건 있음) (3) peac**** \| 2025.04.25 \| 추천 0 \| 조회 64	peac****	2025.04.25	-	64
78358		New 파워포인트 글씨 굵게 (1) 쫄면김밥 \| 2025.04.24 \| 추천 0 \| 조회 46	쫄면김밥	2025.04.24	-	46
78354	문서서식	New 구글스프레드시트 숨기기 질문이에요! (1) Aberdeen \| 2025.04.24 \| 추천 0 \| 조회 63	Aberdeen	2025.04.24	-	63
78352	피벗테이블	New 여러 피벗테이블 하나의 슬라이서로 동작과 테이블간 관계 만들기 문의 (3) 답변완료 이미자 \| 2025.04.24 \| 추천 0 \| 조회 87	이미자	2025.04.24	-	87
78347	대시보드	New 대시보드 결과 값끼리 열 비교하기 (4) 아네모네 \| 2025.04.24 \| 추천 0 \| 조회 78	아네모네	2025.04.24	-	78
78346	함수/공식	New 요일별 색상 구분 (4) 슈토파이터 \| 2025.04.24 \| 추천 0 \| 조회 94	슈토파이터	2025.04.24	-	94