(추가) 유튜브나 글을 찾아도 방법을 못찾아 문의드립니다(VBA 크롤링).

VBA
작성자
반니
작성일
2022-11-06 13:19
조회
69
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

질문 요약 : 아래와 같이 사이트에서 Class값을 가져오는 매크로를 만드려는데요, 다른 항목이 딸려옵니다.

래와 같은 사이트에서 서버종류, 제목, 가격, 날짜 값을 엑셀로 불러오려고하는데요,

Class값(pt005 pb005,Price 등)을 가져와도 물품리스트 전체가 아닌, 프리미엄 물품의 리스트 3개만 가져옵니다.
어떻게 해야 수정가능할 지 궁금합니다..
- 사이트: https://www.barotem.com/product/lists/2382r44#

- 매크로문

Sub test1()
    Dim Http As New MSXML2.ServerXMLHTTP60
    Dim Html As New MSHTML.HTMLDocument
    Dim URL As String
    Dim drwNo As String
    URL = "https://www.barotem.com/product/lists/2382r44"
    With Http
        .Open "GET", URL, False
        .setRequestHeader "User-Agent", "Mozilla/5.0"
        .send
        Html.body.innerHTML = .responseText
    End With
    'Html.body.innerHTML = Html.getElementsByClassName("pb005")(0).outerHTML
    'Cells(5, 5).Value = doc.querySelectorAll("pt005 pb005").Item(1).innerText
    Cells(5, 5).Value = Html.getElementsByClassName("pt005")(0).innerText
    Cells(5, 6).Value = Html.getElementsByClassName("price")(0).innerText
    Cells(6, 5).Value = Html.getElementsByClassName("pt005")(1).innerText
    Cells(6, 6).Value = Html.getElementsByClassName("price")(1).innerText
(추가) 아래처럼 물품리스트를 가져오고자 하는데 계속 프리미엄리스트 쪽 3개 항목만 가져옵니다...
도움을 구합니다.