썸네일 이미지 url 추출

VBA
작성자
넘버원
작성일
2021-09-16 00:30
조회
92
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

쇼핑몰에 있는 썸네일이미지및 제목 가격을 추출하려 합니다..

상품명 및 가격은 스크래핑에 성공했으나 제가 가지고 오고 싶은 img src 에 적힌 url만 가져오고 싶은데

계속 에러가 나네요..어떻게 수정하면 될까요?

감사합니다.

오빠야.png

회원등급 : 새싹등급
포인트 : 56 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 8

  • 2021-09-16 22:46

    getatrribue("alt")값을 어떻게 만들어야 하는지를 잘 모르겠습니다.

    완전 생초보라 양해좀 부탁드릴께요..이고비만 넘기면 자신감좀 붙을꺼같은데.

     

    밑에 처럼 처음에 알려주신(0)을 붙였더니 에러가 나구요

    get attribute("alt")는 스마일배송이 아닌것이 가져오는것이 맞는데

    전체 문장에선  어떻게 쓰면될까요? 자꾸 질문드려 죄송합니다 ^^;;

    nrow = Range("d60000").End(xlUp).Row + 1

    For Each ele In ie.Document.getElementsByTagName("img")(0)

    Range("d" & nrow) = ele.src

    nrow = nrow + 1


  • 2021-09-16 00:42

    안녕하세요~^^

    .getElementByTagName("xxx")(0).href

    이렇게 사용해보시겠어요? 바로 해결되실겁니다.


    • 2021-09-16 00:59

      선생님 말씀해주신거 듣고 바로 수정해서 해봤는데..뭐가 문제인지 안되네요..

      elements 에 element 로 s를 빼고 해도 안되구요 ㅠㅠ

      빠르게 답해주셔서 감사합니다..

      오빠두.png


      • 2021-09-16 01:26

        퍼오고자 하는 url 다시 한번 첨부드립니다.감사합니다.

        오빠.png


        • 2021-09-16 02:19

          수십번의 시도끝에 이미지 url 가져오는것은 성공 했습니다 선생님

          단..엉뚱한 section에 이미지도 끌고 오게 되는데요..

          if 절을 써서 왼쪽 썸네일만 가져오려면 어떻게 하는게 좋을까요?

          src에 순서를 두니..아예 에러가 뜨고.. If ele.parentElement.className = "link--itemcard" Then 라는 구문을 두었을땐

          에러가 나진 않는데..링크를 아예 못끌어오네요..현명한 지혜가 필요합니다 ^^;;

           

          nrow = Range("d60000").End(xlUp).Row + 1

          For Each ele In ie.Document.getElementsByTagName("img")

          If ele.parentElement.className = "link--itemcard" Then

          Range("d" & nrow) = ele.src

          nrow = nrow + 1

          End If

          Next ele

          오빠씨.png


          • 2021-09-16 13:00

            안녕하세요.

            가져올 이미지, 가져오지 않아야 될 이미지에 대한 명확한 구분자를 우선 확인하시면 좋을 것 같습니다.

            만약 첫번째 이미지만 가져와야 한다면, 개체(0) 으로 가벼올 수 있을 것이고,

            alt 가 "스마일배송"이 아닌 것을 가져와야 한다면, .getAttribute("alt") 값으로 조건을 걸 수 있습니다.

            이미 코드는 다 완성하셨기 때문에, 조건만 잘 걸어주시면 될 듯 합니다.^^


            • 2021-09-17 01:46

              사진과 같이..결국 해냈으나..전체 이미지 url이 안가져와 지고..

              첫번째 줄 부터 3번째까지만 가져와지네요 ㅠㅠ 정말 열심히는 노력하고 있는데..

              원인이 무엇일까요?

              오빠.png


              • 2021-09-18 15:05

                안녕하세요. ^^ 적어주신 내용만으로는 정확한 원인을 알기 어렵습니다.

                For Each 문에 F9 를 눌러 중단점을 설정하신 다음, 지역창에서 ClassName으로 지정한 image--itemcard로 개체가 모두 가져와졌는지 한번 확인해보세요.

                디버깅하는 방법은 아래 포스트에서 확인하실 수 있습니다.

                엑셀 VBA 디버깅 (오류 처리) 모든 방법 - 핵심 정리

                또는 클래스 이름 뒤에 띄어쓰기도 한번 제거해보시길 바랍니다.


전체 4,261
번호 카테고리 제목 작성자 작성일 추천 조회
4245 함수/공식
New raw 데이터를 이용하여 복수 조건에 해당하는 데이터 나열하기
신동 | 14:23 | 추천 0 | 조회 11
신동 14:23 0 11
4244 함수/공식
New if를 사용하여 값 참조하게하기 (2)
현표 | 11:33 | 추천 0 | 조회 25
현표 11:33 0 25
4243 차트/그래프
New 음영 셀만 그래프에 수치가 표기 되거나 강조되게 하는 방법이 있을까요? 첨부파일
은하상회 | 11:14 | 추천 0 | 조회 12
은하상회 11:14 0 12
4242 VBA
New Sheet간 이미지 복사 방법이 있을까요?..(셀병합, 범위..) 첨부파일
tu1541 | 08:54 | 추천 0 | 조회 24
tu1541 08:54 0 24
4241 문서서식
New 기초) 자동필터에서 와일드카드 검색 질문드립니다 (2)
월마리아 | 01:52 | 추천 0 | 조회 29
월마리아 01:52 0 29
4240 VBA
New 피벗테이블 필터자동 변경 문의드려요 ㅠㅠ 첨부파일 (1)
Jun0211 | 2021.10.21 | 추천 0 | 조회 28
Jun0211 2021.10.21 0 28
4239 함수/공식
New 셀 2개의 데이타를 ㄹ합치는 법 (4) 답변완료
마운틴 | 2021.10.21 | 추천 0 | 조회 44
마운틴 2021.10.21 0 44
4238 VBA
New 필터링된 값 붙여넣기 첨부파일 (8) 답변완료
지연 | 2021.10.21 | 추천 0 | 조회 46
지연 2021.10.21 0 46
4237 함수/공식
New 엑셀 수식을 부탁드립니다. 첨부파일 (1)
워싱턴 | 2021.10.21 | 추천 0 | 조회 37
워싱턴 2021.10.21 0 37
4236 VBA
New 도와주세요 첨부파일 (1)
현아 | 2021.10.21 | 추천 0 | 조회 34
현아 2021.10.21 0 34
4235 함수/공식
New 업체명으로 된 DB에서 업체명 + ~월 등 문자가 추가되었을때 DB에서 찾아오는 함수 수식 (3) 답변완료
이수철 | 2021.10.21 | 추천 0 | 조회 37
이수철 2021.10.21 0 37
4234 함수/공식
New 로우데이터에서 특정값을 찾아 값이 있을 경우와 없을 경우 결과 값을 지정하여 도출하는 방법이 궁금합니다. (1)
mysoul**** | 2021.10.21 | 추천 0 | 조회 29
mysoul**** 2021.10.21 0 29
4233 함수/공식
New x,y,z로 이루어진 방정식 두 개를 '해 찾기' 기능으로 풀 수 있을까요? (6)
고대하라 | 2021.10.21 | 추천 0 | 조회 42
고대하라 2021.10.21 0 42
4232 기능/도구
New 셀선택시 설명 팝업 (6) 답변완료
HYODONG | 2021.10.21 | 추천 0 | 조회 33
HYODONG 2021.10.21 0 33
4231 피벗테이블
New 정규화에 대한 문의 첨부파일 (1)
광개토태왕 | 2021.10.21 | 추천 0 | 조회 27
광개토태왕 2021.10.21 0 27
4230 차트/그래프
New 원형 차트에 슬라이서 연결 시 표시 방법 문의 드립니다. (1)
이찬우 | 2021.10.21 | 추천 0 | 조회 23
이찬우 2021.10.21 0 23
4229 함수/공식
New 대량의 데이터를 가지고 있는 다른 시트에서 중복값찾기 (6) 답변완료
라운 | 2021.10.21 | 추천 0 | 조회 54
라운 2021.10.21 0 54
4228 VBA
New 시간이 겹치거나 겹친 시간에 동일 이름이 중복될 경우 찾을려면 어떻게 하면 될까요? (4)
셀라푸우 | 2021.10.20 | 추천 0 | 조회 40
셀라푸우 2021.10.20 0 40
4227 VBA
New 데이터 범위설정 매크로 수식 (2)
젬마 | 2021.10.20 | 추천 0 | 조회 53
젬마 2021.10.20 0 53
4226 피벗테이블
New 피벗테이블 구성 (2)
광개토태왕 | 2021.10.20 | 추천 0 | 조회 45
광개토태왕 2021.10.20 0 45
4225 VBA
New (초보..)vba 웹크롤링(selenium 사용) 문자를 읽어오지않아 문의드립니다!! (4)
윌터너 | 2021.10.20 | 추천 0 | 조회 37
윌터너 2021.10.20 0 37
4224 함수/공식
New 함수 자동입력?
흑형 | 2021.10.20 | 추천 0 | 조회 57
흑형 2021.10.20 0 57
4223 기능/도구
New 구글 스프레드시트 이미지 인쇄 문제 (1)
민 쌤 | 2021.10.20 | 추천 0 | 조회 31
민 쌤 2021.10.20 0 31
4222 파워쿼리/피벗
New 파워쿼리 입문입니다. 시트 합치는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2021.10.19 | 추천 0 | 조회 59
월마리아 2021.10.19 0 59
4221 함수/공식
New 공부용 일정표 관련해서 자동 생성 질문드립니다.
1234느린열차 | 2021.10.19 | 추천 0 | 조회 34
1234느린열차 2021.10.19 0 34
4220 함수/공식
New 변화되는 값 추적하기 첨부파일 (1)
아자사랑 | 2021.10.19 | 추천 0 | 조회 50
아자사랑 2021.10.19 0 50
4219 함수/공식
New 셀에 포함된 특정단어 추출 함수 첨부파일 (6) 답변완료
마운틴 | 2021.10.19 | 추천 0 | 조회 78
마운틴 2021.10.19 0 78
4218 피벗테이블
New 피벗테이블에서 열 (레이블) 상위 10% 필터링 방법 문의 첨부파일 (3)
김성현19 | 2021.10.19 | 추천 0 | 조회 39
김성현19 2021.10.19 0 39
4217 함수/공식
다중조건으로 매출 순위 구하기 첨부파일 (8) 답변완료
newstar | 2021.10.19 | 추천 0 | 조회 59
newstar 2021.10.19 0 59
4216 파워쿼리/피벗
Expression.Error: Table 형식의 값을 Binary 형식으로 변환할 수 없습니다 첨부파일 (3)
슝슝 | 2021.10.19 | 추천 0 | 조회 32
슝슝 2021.10.19 0 32