vba를 이용한 웹스크랩핑 시, 'href' 불러오기 문제

VBA
작성자
진격의크롤링
작성일
2020-03-22 19:14
조회
2040

vba를 이용한 웹스크랩핑 연습을 하고 있습니다.

첨부드린 사진에서 보이는 1. <span lass="tit"> - <a href>에 있는 링크주소와 기사 제목 2. <span lass="desc"> - <a href>에 있는 기사 요약부분을 뽑아오고 싶습니다.

강의에서 본대로 아래와 같이 명령문을 작성하니 기사 요약부분은 가져와지는데 도저히 링크주소와 기사 제목을 뽑아올 수 가 없습니다.

도와주시면 감사하겠습니다.

참고로 링크도 적어드립니다.  https://sports.donga.com/news?p=1&c=all

'// 개체검색
For Each iarticle In HTMLDoc.getElementsByClassName("tit")
Sheet2.Cells(i, 1) = iarticle.getattribute("href")

i = i + 1

Next

For Each iarticle In HTMLDoc.getElementsByClassName("desc")
Sheet2.Cells(j, 2) = iarticle.innerText
j = j + 1

Next

크롤링-연습.jpg

회원등급 : 2레벨
포인트 : 58 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 2

  • 2020-03-23 05:09

    안녕하세요~^^
    적어주신 링크의 기사제목과 링크는 따로 불러주셔야 합니다.

    기사제목 : tit 클래스의 innerText
    기사링크 : tit 클래스묶음 내 a태그의 Href 속성

    따라서 아래 명령문으로 불러오시면 바로 해결되실겁니다 ^^

    For Each iArticle In HTMLDoc.getElementsByClassName("tit")
    Dim iArticleItems As IHTMLElementCollection
    Dim iArticleItem As IHTMLElement
    Set iArticleItems = iArticle.Children
    Dim str1 As String: Dim str2 As String
    str1 = iArticle.innerText
    For Each iArticleItem In iArticleItems
    If iArticleItem.tagName = "A" Then
    str2 = iArticleItem.getAttribute("href")
    End If
    Next
    Cells(i, 1).Value = str1 & ", " & str2
    Next

    뉴스-기사-스크랩.png


  • 2020-03-24 13:35

    이렇게 하니깐 네이버 쇼핑에서도 가격이랑 여러개 정보를 한번에 가져올 수 있네요..
    감사합니다


전체 4,703
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (12)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 807
트로피 오빠두엑셀 2021.10.28 16 807
24350 VBA
New 다른 시트에서 값 불러오기 첨부파일
지혜 | 15:37 | 추천 0 | 조회 2
지혜 15:37 0 2
24347 파워쿼리/피벗
New 질문 있습니다. 파워쿼리에서 Text.Select가 실행이 안됩니다. 첨부파일 (1)
railway | 14:34 | 추천 0 | 조회 5
railway 14:34 0 5
24343 파워쿼리/피벗
New 엑셀 파워쿼리 파일병합
min**** | 13:43 | 추천 0 | 조회 14
min**** 13:43 0 14
24339 VBA
New 크롤링 반복 (재질문 입니다) 첨부파일 (1)
하늘의 꿈 | 12:48 | 추천 0 | 조회 12
하늘의 꿈 12:48 0 12
24330 VBA
New 매크로를 원하는 범위에서만 사용하는 방법을 알고싶습니다. 첨부파일 (3) 답변완료
호랑이파워 | 01:37 | 추천 0 | 조회 35
호랑이파워 01:37 0 35
24321 VBA
New 열 나누기 (4)
정미현 | 2021.12.05 | 추천 0 | 조회 33
정미현 2021.12.05 0 33
24317 피벗테이블
New 상품별로 기간 판매량을 구하고 싶습니다 첨부파일 (5) 답변완료
wlfl**** | 2021.12.05 | 추천 0 | 조회 40
wlfl**** 2021.12.05 0 40
24315 함수/공식
New 선택한 2개 열/행의 값의 곱을 구하고 싶습니다. (2)
(알수없음) | 2021.12.05 | 추천 0 | 조회 27
(알수없음) 2021.12.05 0 27
24310 VBA
New 제발 도와주세요 ㅠㅠ 첨부파일 (1)
떠희아빠 | 2021.12.04 | 추천 0 | 조회 59
떠희아빠 2021.12.04 0 59
24307 함수/공식
New 엑셀 초보인데 count 함수 관련 질문 있습니다. 첨부파일 (4)
야기분좋다 | 2021.12.04 | 추천 1 | 조회 31
야기분좋다 2021.12.04 1 31
24305 VBA
New 이문제는 시트를 변수로 지정을 해아하나요?? 첨부파일 (3) 답변완료
어려워 | 2021.12.04 | 추천 0 | 조회 32
어려워 2021.12.04 0 32
24300 VBA
New 떨어져 있는 특정 셀 선택 매크로 (1) 답변완료
제비제비 | 2021.12.04 | 추천 0 | 조회 41
제비제비 2021.12.04 0 41
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (3)
열공합시다 | 2021.12.04 | 추천 0 | 조회 36
열공합시다 2021.12.04 0 36
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1) 답변완료
이치영 | 2021.12.04 | 추천 0 | 조회 37
이치영 2021.12.04 0 37
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (5) 답변완료
naver_5f055a605ee7d | 2021.12.04 | 추천 0 | 조회 45
naver_5f055a605ee7d 2021.12.04 0 45
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (2) 답변완료
ㅈㄱㄹ | 2021.12.04 | 추천 0 | 조회 31
ㅈㄱㄹ 2021.12.04 0 31
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (4) 답변완료
다우미노 | 2021.12.03 | 추천 0 | 조회 38
다우미노 2021.12.03 0 38
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 42
워싱턴 2021.12.03 0 42
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 46
뚜루루 2021.12.03 1 46
24275 VBA
병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 55
007 2021.12.03 0 55
24271 VBA
Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (5)
Lucas's | 2021.12.03 | 추천 0 | 조회 34
Lucas's 2021.12.03 0 34
24270 기능/도구
여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (2) 답변완료
함수시르미 | 2021.12.03 | 추천 1 | 조회 36
함수시르미 2021.12.03 1 36
24262 VBA
불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 51
파퍼 2021.12.03 0 51
24259 함수/공식
계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 43
skyzza**** 2021.12.03 0 43
24253 함수/공식
파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 34
안녕 2021.12.02 0 34
24252 함수/공식
표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 38
김성환 2021.12.02 0 38
24251 기능/도구
엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 35
너의나라 2021.12.02 0 35
24248 차트/그래프
그래프에서 가로 축 Data 설정하는 법 첨부파일 (1)
Etter | 2021.12.02 | 추천 0 | 조회 38
Etter 2021.12.02 0 38
24245 VBA
아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 41
argus 2021.12.02 0 41