주제 생산성
상품트랜드가 궁금하거나 부동산 가격 추이가 궁금해 빅데이터를 만드는 방법 중에 추천드리는 방법 중 하나라고 생각됩니다.
유튜브동영상
아래 동영상 클릭해서 보면 네이버쇼핑 상품 리스트를 크롤링해서 엑셀로 저장하고 파워쿼리로 저장된 파일 병합하여 필요한 목록만 취합하고 Ximage 란 VBA를 이용해 해당 이미지 셀로 불러오기 합니다.
https://youtu.be/SYQMKXs8x48
LISTLY
https://www.listly.io/en
위 주소를 클릭해서 설치하시기 바랍니다.
네이버쇼핑크롤링
네이버쇼핑크롤링 완료
네이버쇼핑크롤링 엑셀로 저장
파워쿼리로 폴더 속 엑셀파일 모두 불러기오
xIMAGE 모듈등록하기 위해 리본메뉴에 개발자 메뉴 체크
xIMAGE 모듈등록
xIMAGE 함수 (,)안에 이미지 주소 셀 지정하여 이미지 불러오기
xIMAGE다운로드 주소
https://www.oppadu.com/엑셀-리스틀리-크롤링/#download
xIMAGE소스
위 주소에서 받은 소스 원본입니다. (출처 오빠두엑셀)
Function xIMAGE(Link, Optional UpdateImage As Boolean = True) As Boolean
Dim aRng As Range: Dim aWS As Worksheet
Dim shpImg As Shape
On Error Resume Next
Set aRng = Application.Caller
Set aWS = aRng.Parent
Application.EnableEvents = False
If IsEmpty(Link) Then Exit Function
For Each shpImg In aWS.Shapes
If shpImg.TopLeftCell.Address = aRng.Address Then
If UpdateImage = True Then
shpImg.Delete
Else
xIMAGE = True
GoTo Final
Exit Function
End If
End If
Next
Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, aRng.Left + 3, aRng.Top + 3, aRng.Width - 6, aRng.Height - 6)
shpImg.Placement = xlMoveAndSize
If shpImg Is Nothing Then xIMAGE = CVErr(xlValue)
xIMAGE = True
Exit Function
Final:
Set shpImg = Nothing: Set aRng = Nothing: Set aWS = Nothing
Application.EnableEvents = True
End Function
웨일브라우저
웨일확장프로그램 추가도 됩니다.
바다기획추천 생산성향상방법 크롬확장프로그램 관련 글 모음
바다기획추천_생산성향상방법_크롤링 관련 글 모음
프로그램 주제별 모아 보기
생산성향상방법 주제별 모아 보기
댓글