엑셀 크롤링 관련해서 질문드립니다.
카카오채널에서 쇼핑몰을 만들어서 고객님 명단을 댓글에서 추출해서 DB로 관리할려고 연습중인데요.
(참고로 채널은 제 채널은 아니고 만들때 참고할려고 찾은 채널입니다.) 아래 사진에 나오는것 처럼 나눠서
추출할려고 하는데요.
실행하면 일부분 추출이 되지만 홈페이지 처음 들어갔을때 나오는 댓글 15개만 추출되고
댓글 더보기 눌러야지 보이는 댓글들은 추출이 안되요.
그리고 15개 추출될때 추출되고 나면 런타임 오류가 발생하는데
어떻게 해야지 해결될까요?원래 제가 똑같은 내용으로 질문을 드렸는데 질문한 코드가 잘못되서....
다시한번 또 물어봅니다.친절한 답변 기다리겠습니다.
추출할 값
사용한 코드
Option Explicit
Public Sub parsehtml()
Dim http As Object, html As New HTMLDocument, topics As Object, titleElem As Object, detailsElem As Object, topic As HTMLHtmlElement
Dim i As Integer
'// 익스플로어(XML변수 설정)
Set http = CreateObject("MSXML2.XMLHTTP")
'// 검색 (XML 요청)
http.Open "GET", "https://pf.kakao.com/_ElxfrT/53587918", False
http.send
html.body.innerHTML = http.responseText
'// HTML 추출
Set topics = html.getElementsByClassName("item_cmt")
i = 2
'// 개체 검색
For Each topic In topics
'// 요소별 값 추출
Set titleElem = topic.getElementsByTagName("div")(2)
Set detailsElem = topic.NextSibling.getElementsByTagName("div")(1)
Sheets(1).Cells(i, 1).Value = detailsElem.getElementsByTagName("strong")(0).innerText
Sheets(1).Cells(i, 2).Value = detailsElem.getElementsByTagName("p")(0).innerText
Sheets(1).Cells(i, 3).Value = detailsElem.getElementsByTagName("span")(0).innerText
i = i + 1
Next
End Sub