강좌 / 팁

소프트웨어 엑셀로 KBS1 KBS2 MBC SBS 등 편성표 가져오기

2022.06.06 20:10

지후빠 조회:1832 추천:13

몇가지 추가 또는 수정하였습니다. 이것으로 마무리 할까 합니다.^^ 지상파 편성표 웹크롤링.xlsm

- 오늘 이후 날로 특정 날짜나 요일 입력시 해당 데이터를 하루씩 가져오도록 하였습니다.

- 일주일치 작성하려면 각 시트 추가 후 해당 일자 각각 실행하면 되겠습니다.

- 당연히 요일 지정은 오늘을 포함하여 일주일 치에만 사용할 수 있습니다.

- 날짜와 요일을 시트 이름으로 설정

- 보기 좋게 시간 부분을 두자리로 통일

 

alt+F8 -> GetTVProgramOn 실행

지상파 편성표 msgbox.jpg

지상파 편성표 웹크롤링.jpg

참고로 코드중 Array(9, 7, 11, 5) 에 채널 번호를 추가/제거하여 쉽게 원하는 채널만 가져 올 수 있습니다. 


안녕하세요? 쉬는 날 질문게시판에 올라온 내용을 YouTube 보고 공부하였습니다.

 

질문; excel 시트로 방송 편성표 가져올 때의 질문 입니다 - https://windowsforum.kr/qna/18100846

 

YouTube에 알맞은 동영상이 있어서 따라하였습니다. ; https://www.youtube.com/watch?v=h6CUDIyF0fw

- 첨부 엑셀 파일 속성에 링크 기록하였습니다.

- 동영상을 보시면 아시겠지만, Microsoft HTML Object Library와 Microsoft Internet Controls를 참조합니다.

 

질문의 Daum 홈페이지가 아닌 https://tv.kt.com/ 에서 채널 정보를 가져옵니다.

인터넷익스플로러를 이용합니다. 크롬(셀레니움)을 이용하는 방법도 있는 것 같습니다.

 

지상파 편성표.xlsm 매크로 포함으로 열어야 합니다.

 

alt + F8 누르면 매크로 실행 창이 나오고, 

GetTVProgram.jpg

 

GetTVProgram 실행하면,

아래쪽 화면처럼 질문한 양식과 비슷한 데이터를 얻을 수 있습니다. ^^ 포맷은 좀 더 추가하면 될 것 같습니다.

 

지상파편성표_2022-06-06.jpg

 

단순한 웹페이지는 가져올때 엑셀-데이터-웹으로 가져올 수 있는데, 요즘 웹페이지는 구조가 복잡하여 쉽지만은 않습니다.

파워쿼리를 좀 더 잘 사용할 수 있으면 가능할지 모르겠습니다만, 표 안에 표 구조를 가지고 있어서 잘 안되더군요.

 

관심있으신 분은 alt+F11 누르면 코드를 볼 수 있습니다만,

유튜브 내용을 조금 수정한 정도라서 유튜브 동영상을 보시고 포함된 코드를 보시는 것을 추천드립니다.^^

 

유튜브 동영상에서 코드를 제공하지 않아서 모두 보면서 타이핑하였습니다. 2~3시간 걸린듯 합니다.

- PC 성능에 따라서, 성능이 느려서 에러가 나면 아래 코드중 TimeValue("00:00:01") 부분의 초를 늘려 주면 될 것 같습니다.

- 아래는 유튜브 원본 코드입니다.(수정된 코드는 엑셀 파일안에 있으니 참고하십시오.)

 

Sub GetTVProgram()

 

    Dim ie As InternetExplorer

    Dim strURL As String

    

    Dim nCnt As Integer

    Dim i As Integer

    Dim strTVName As String

    Dim strDate As String

    

    Dim ele As IHTMLElement

    

    Set ie = CreateObject("InternetExplorer.application")

    strURL = "https://tv.kt.com/tv/channel/pChInfo.asp"

    

    ie.navigate strURL

    ie.Visible = True

    

    Do While (ie.readyState <> READYSTATE_COMPLETE Or ie.Busy = True)

        DoEvents

    Loop

    

    '1초 추가 대기

    Application.Wait (Now + TimeValue("00:00:01"))

    

    nCnt = Range("A60000").End(xlUp).Row

    

    For i = 0 To 10

        ie.document.getElementById("linkChannel" & i).Click

        

        'TV명 가져오기

        strTVName = ie.document.getElementById("linkChannel" & i).innerText

        

        Application.Wait (Now + TimeValue("00:00:01"))

        

        '날짜 가져오기

        strDate = ie.document.getElementsByClassName("day")(0).innerText

        

        '프로그램 및 장르 가져오기

        For Each ele In ie.document.getElementsByClassName("program")

            If ele.parentElement.parentElement.parentElement.className = "board tb_schedule" Then

                Range("A" & nCnt) = strDate

                Range("B" & nCnt) = strTVName

                Range("C" & nCnt) = ele.innerText '프로그램

                Range("D" & nCnt) = ele.nextElementSibling.innerText '장르

                

                nCnt = nCnt + 1

            End If

        Next ele

    Next i

    

    ie.Quit

    Set ie = Nothing

    

End Sub

 
 
질문 보고 갑자기 궁금하여 공부하였습니다. 편안한 밤 되십시오. 꾸~벅
번호 제목 글쓴이 조회 추천 등록일
[공지] 강좌 작성간 참고해주세요 gooddew - - -
4234 소프트웨어| Symantec Endpoint Protection(SEP) 삭제방법(삭제시 비밀... [3] update 타천사둘리 380 3 06-28
4233 기 타| 지원이 끝난 PC 드라이버 해결하기 [2] Win10pro 1030 1 06-27
4232 윈 도 우| [실사] 스틱PC Windows 10 32bit UEFI 설치 [3] 무월 752 3 06-26
4231 윈 도 우| [실시간 보호 기능 켬/끔] 좀 더 편하게 실행 [21] update 지후빠 1320 28 06-26
4230 기 타| macOS 13 Ventura 설치(Bootable ISO/USB 생성) [2] 무월 1504 8 06-19
4229 소프트웨어| NIUBI Partition Editor에 배드(불량) 섹터 검사 기능이 있... [2] 그루터기 838 7 06-18
4228 윈 도 우| 업무화면과 주식화면을 분리시키기 [1] 좋게멋지게 1572 6 06-17
4227 윈 도 우| [실사] 윈도우7/8.1/10 업그레이드 설치 - 윈도우10(21H2) [5] 무월 2295 12 06-12
4226 윈 도 우| 윈도우11 22621.4 에서 IE 11 사용방법 [11] 타천사둘리 2163 10 06-11
4225 기 타| iptime 공유기. 국가별 접속제한 사용 시 iptv 안 나올 때 ... [4] heykevin 1896 6 06-08
» 소프트웨어| 엑셀로 KBS1 KBS2 MBC SBS 등 편성표 가져오기 [17] 지후빠 1832 13 06-06
4223 하드웨어| [팁] 아이패드에서 마우스 휠 스크롤 방향 바꾸기 [1] asklee 545 1 06-01
4222 소프트웨어| 비즈니스용 MS Office365 신규 UI적용하기 [2] 마집사 2163 6 05-27
4221 윈 도 우| 소소한 배치파일 팁 2가지(start 명령, %time%) [6] 메리아 1483 9 05-26
4220 윈 도 우| 윈도우 10 VHD 업그레이드 설치 [7] 무월 1776 7 05-22
4219 윈 도 우| [팁] 윈도우10/11 설치 중 OneDrive 설치 방지! [17] 무월 3383 16 05-17
4218 기 타| 유튜브 팟플레이어로 보기(블투포함) [5] 내꼬 2826 7 05-14
4217 윈 도 우| 자신의 ISO 파일이 순정인지 아닌지 궁금할 때 [2] Niconii 1939 2 05-13
4216 기 타| [macOS/해킨토시] 몬터레이, 빅서, 카탈리나, 모하비, 하이... [6] 무월 1686 5 05-11
4215 윈 도 우| [실사] 윈도우11 프로 VHD 설치 방법 [11] 무월 2200 21 05-08
XE1.11.6 Layout1.4.8