아하
생활

생활꿀팁

정직한참매186
정직한참매186

엑셀 크롤링 관련해서 질문드립니다.

카카오채널에서 쇼핑몰을 만들어서 고객님 명단을 댓글에서 추출해서 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

1개의 답변이 있어요!