아하
생활

생활꿀팁

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

엑셀 VBA 하는데 어떻게 손봐야하나요?

카카오채널에서 쇼핑몰을 만들어서 고객님 명단을 댓글에서 추출해서 DB로 관리할려고 연습중인데요.
(참고로 채널은 제 채널은 아니고 만들때 참고할려고 찾은 채널입니다.) 아래 사진에 나오는것 처럼 나눠서 추출할려고 하는데요.
실행하면 일부분 추출이 되지만 홈페이지 처음 들어갔을때 나오는 댓글 15개만 추출되고
댓글 더보기 눌러야지 보이는 댓글들은 추출이 안되요.
그리고 15개 추출될때 추출되고 나면 런타임 오류가 발생하는데
어떻게 해야지 해결될까요? 친절한 답변 기다리겠습니다.

-추출할 값들-

-사용한 코드-

Option Explicit

Sub Crawling()

Dim co As Long, i As Long

Dim join As String

Dim deleteRow As Integer

Dim bunum As Range

'추가할 시트에 Row count 를 알아옵니다.

co = ActiveSheet.Range("A1").CurrentRegion.Rows.Count

Cells(2, "A").Select

For i = 1 To co

join = Cells(i, 1).Value ' 소속셀값

If join = "언니들의즐거운쇼핑타임" Then

Cells(i, 1).EntireRow.Delete

co = co - 1

deleteRow = deleteRow + 1

End If

Next

End Sub

3개의 답변이 있어요!