로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2012.07.06 13:46
파이스님..
전혀 간단하지 않구요~ ㅎㅎ
어떤 방법이 있냐면..
네이버 검색 순위 같은 경우는 오픈 API를 이용하시면 됩니다.
http://dev.naver.com/openapi/
교보문고, 벅스 같은 경우는..
웹쿼리를 이용해서 데이터를 불러온 다음에 일부를 잘라서 사용해야겠네요..
교보문고 : http://www.kyobobook.co.kr/bestseller/bestSellerWeeklyKorList.laf?mallGb=KOR&linkClass=&range=0&kind=0
벅스 : http://music.bugs.co.kr/chart/bugs/newrealtime?wl_ref=home_title2
CGV는 웹쿼리가 제대로 지원이 안되어서..
아래와 비슷한 코드로 웹페이지의 값을 읽어 들인다음.. 일부를 잘라서 써야겠죠..
strURL = "http://www.cgv.co.kr/movie/moviechart/Default.aspx" Set ie = CreateObject("internetexplorer.application") ie.Navigate strURL
Set objDoc = ie.Document
strBodyText = objDoc.body.innertext ActiveCell = strBodyText
근데.. 책이나 영화 등은 네이버에서 오픈API를 지원하므로..
굳이 다른 사이트에서 뽑아올 필요는 없을 것 같네요..
새 창으로
선택한 기호
파이스님..
전혀 간단하지 않구요~ ㅎㅎ
어떤 방법이 있냐면..
네이버 검색 순위 같은 경우는 오픈 API를 이용하시면 됩니다.
http://dev.naver.com/openapi/
교보문고, 벅스 같은 경우는..
웹쿼리를 이용해서 데이터를 불러온 다음에 일부를 잘라서 사용해야겠네요..
교보문고 : http://www.kyobobook.co.kr/bestseller/bestSellerWeeklyKorList.laf?mallGb=KOR&linkClass=&range=0&kind=0
벅스 : http://music.bugs.co.kr/chart/bugs/newrealtime?wl_ref=home_title2
CGV는 웹쿼리가 제대로 지원이 안되어서..
아래와 비슷한 코드로 웹페이지의 값을 읽어 들인다음.. 일부를 잘라서 써야겠죠..
strURL = "http://www.cgv.co.kr/movie/moviechart/Default.aspx"
Set ie = CreateObject("internetexplorer.application")
ie.Navigate strURL
Set objDoc = ie.Document
strBodyText = objDoc.body.innertext
ActiveCell = strBodyText
근데.. 책이나 영화 등은 네이버에서 오픈API를 지원하므로..
굳이 다른 사이트에서 뽑아올 필요는 없을 것 같네요..