웹크롤링 Class 질문입니다.
VBA
작성자
후훗카카
작성일
2021-01-14 18:29
조회
54
안녕하세요
<div id="releaseInfo" class="releaseInfo bold">
<span>최근 발표<div class="noBold">2021년 01월 13일</div></span><span>발표<div class="arial_14 greenFont">1.4%</div> </span><span>예측<div class="arial_14 noBold">1.3%
위의 웹페이지에서 저 빨간색 1.4% 값을 가져오고 싶은데
Dim ie As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim ele As IHTMLElement
Dim i As Integer
Set ie = CreateObject("InternetExplorer.application")
With ie
.Navigate ActiveSheet.Range("D" & i).Value
Wait_Browser ie
Set HTMLDoc = .Document
range("e" & i) = HTMLDoc.getElementsByClassName("arial_14 greenFont").innerText로 하면
디버깅이(438 '런타임 오류가 발생하였습니다. 개체가 이 속성 또는 매서드를 지원하지 않습니다.)나는데
어떻게 해야 끌어올수 있을까요? 검색해보니 "arial_14 greenFont" 클래스는 한개입니다.
감사합니다!
전체 2,169
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
2161 | VBA |
New 웹에 업로드되어있는 csv, pdf 파일에서 크롤링해오는방법?!
![]() |
![]() |
01:09 | 0 | 1 |
2160 | 함수/공식 |
New 주차 알기 함수
(2)
![]() |
![]() |
2021.01.24 | 0 | 33 |
2159 | 함수/공식 |
New 주중으로만 보이는 출석부
![]() ![]() |
![]() |
2021.01.24 | 1 | 34 |
2158 | 함수/공식 |
New 두 날짜 사이에 해당 값 추출 질문
(1)
![]() |
![]() |
2021.01.24 | 0 | 22 |
2157 | VBA |
New DuTool 엑셀 파일 열 때 오류가 나는데 어떻게 하면 삭제가능한가요?
![]() ![]() |
![]() |
2021.01.24 | 0 | 19 |
2156 | VBA |
New 둘중에 어떤것 사용하는것이 더 좋은가요?
(2)
답변완료
![]() |
![]() |
2021.01.24 | 0 | 26 |
2155 | 피벗테이블 |
New 슬라이서 사용시 값필터 초기화되는 현상 해결 방법
![]() |
![]() |
2021.01.24 | 0 | 17 |
2154 | 함수/공식 |
New 여러업체중에 가장 낮은금액의 업체표시하기 (엑셀도움 부탁드립니다)
(4)
답변완료
![]() |
![]() |
2021.01.24 | 0 | 35 |
2153 | 문서서식 |
New 각대봉투(대봉투) 인쇄방법
(4)
![]() |
![]() |
2021.01.24 | 0 | 26 |
2152 | 파워쿼리/피벗 |
New 파워쿼리 질문
![]() ![]() |
![]() |
2021.01.23 | 0 | 45 |
2151 | VBA |
New 오버플로 뜨는 이유와 해결책
![]() ![]() |
![]() |
2021.01.23 | 0 | 35 |
2150 | 함수/공식 |
New 범위를 지정한 경우의 범위값의 합계 내는 방법
(3)
답변완료
![]() |
![]() |
2021.01.23 | 0 | 50 |
2149 | VBA |
New VBA 셀병합 코드 수정 부탁드림니다.
![]() |
![]() |
2021.01.23 | 0 | 34 |
2148 | VBA |
New 특정 정보에 연동된 내용을 웹에서 크롤링할 수 있나요..?
(2)
![]() |
![]() |
2021.01.23 | 0 | 30 |
2147 | 파워쿼리/피벗 |
New 회사 웹 페이지 데이터 엑셀에 연동시키기
(1)
![]() |
![]() |
2021.01.23 | 0 | 38 |
2146 | 함수/공식 |
New 조건부 서식 함수 문의
(2)
![]() |
![]() |
2021.01.23 | 0 | 43 |
2145 | 기능/도구 |
New 엑셀 창 크기가 어떠한 경우에도 페이지 전체를 볼수 있는 법이 있을까요?
(2)
답변완료
![]() |
![]() |
2021.01.23 | 0 | 29 |
2144 | 함수/공식 |
New 함수문의
(1)
![]() |
![]() |
2021.01.22 | 0 | 33 |
2143 | VBA |
New winhttp.winHttpRequest.5.1 , 쿠키와 Jsession을 둘다 사용하기
(4)
![]() |
![]() |
2021.01.22 | 0 | 27 |
2142 | 함수/공식 |
New 새로운 달이 나오면 번호가 1부터 매겨지게 하는 방법
![]() ![]() |
![]() |
2021.01.22 | 0 | 46 |
2141 | VBA |
New .Delete 후 셀병합이 있을경우 확인창 않나오게 하기
(1)
답변완료
![]() |
![]() |
2021.01.22 | 0 | 21 |
2140 | VBA |
New .Delete 뒤에 옵션 이 있나요?
(4)
답변완료
![]() |
![]() |
2021.01.22 | 0 | 24 |
2139 | 기능/도구 |
New 엑셀 표(Table)에서 절대참조 방법?
(1)
![]() |
![]() |
2021.01.22 | 0 | 25 |
2138 | VBA |
New 확인란 / 옵션 단추 박스를 눌렀을 때 연결된 시트가 출력 되게 할 수 없을까요?
![]() |
![]() |
2021.01.22 | 0 | 24 |
2137 | 함수/공식 |
New 다른 시트에서 값을 불러오는 함수
(2)
![]() |
![]() |
2021.01.22 | 0 | 29 |
2136 | 함수/공식 |
New iferror 사용목적?
(4)
![]() |
![]() |
2021.01.22 | 0 | 43 |
2135 | 함수/공식 |
New 엑셀 테이블 자동입력관련
(1)
![]() |
![]() |
2021.01.22 | 0 | 42 |
2134 | 함수/공식 |
New 엑셀로 신규거래업체 걸러낼수 있을까요?
(5)
![]() |
![]() |
2021.01.22 | 0 | 38 |
2133 | VBA |
New 시트 다른 엑셀파일로 시트복사
(2)
![]() |
![]() |
2021.01.22 | 0 | 28 |
2132 | 함수/공식 |
New 0을 제외하고 값 비교하기
(1)
![]() |
![]() |
2021.01.22 | 0 | 30 |
안녕하세요.
VBA 편집기의 [도구] - [참조] 에서 'Microsoft HTML Object Library' 를 활성화하신 뒤 명령문을 실행해보세요.
https://www.oppadu.com/%EC%97%91%EC%85%80-vba-%EC%9B%B9-%ED%81%AC%EB%A1%A4%EB%A7%81-%EA%B0%95%EC%9D%98-%EB%84%A4%EC%9D%B4%EB%B2%84-%EB%89%B4%EC%8A%A4-%EC%8A%A4%ED%81%AC%EB%9E%A9/
위 링크의 두번째 내용 참고해보시길 바랍니다. 🙂
답변이 도움이 되셨길 바랍니다. 감사합니다.
체크는 다했는데도 에러가나네요. 코딩에는 이상이 없을까요?
HTMLDoc.getElementById("releaseInfo").innerText 하면 (최근 발표, 2021년 01월 13일, 발표, 1.4%, 예측, 1.3%, 이전
1.2%)
전부다 끌어오는데 1.4%만 끌어고싶어서 위의 예문처럼 클래스로 바꾸니 에러가나네요 ㅠ
HTMLDoc.getElementsByClassName("arial_14 greenFont").innerText 에서
HTMLDoc.getElementsByClassName("arial_14 greenFont")(0).innerText 으로 수정하니 잘되네요.
근데 왜 (0)을 넣어야지 에러가 안나고 진행되는걸까요? ㅠ