abyul.com > Excel > Question & Answer - [ XML PARSING ] 오픈 API 관련된 질문입니다.

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

글 수 822

[ XML PARSING ] 오픈 API 관련된 질문입니다.

VBA 조회 수 4895 추천 수 0 2012.07.26 16:31:50

난호 *.36.51.250 http://abyul.com/zbxe/109386

밑에 분도 관련해서 질문드린 글을 보았습니다만..

제가 VBA만 어설피 만질 줄 알아서 다른거와 연동하는 부분에 있어서 상당히 약합니다.

http://dev.naver.com/openapi/

여기서 봤지만 VBA와 어떻게 연동을 시켜야 할지 전혀 감이 안잡혀서 정말 힘든 질문을 드립니다 ㅠㅠ

영화 데이터베이스(예를 들어 영화인 순위 1~100위, 그에 따른 영화인들의 출연영화 목록 및 페이지 주소 등등)을 가져오고자 하는데 어떤식으로 해야되는지 정말 간단한 예제만 하나 만들어주시면 제가 응용해서 해보겠습니다 ㅠㅠ

현재 쓰는 엑셀은 2007이며, OS는 7 64bit입니다. 별 중요한건 아니겠지만..ㅠ

고생하십시오..

이 게시물을...

엮인글 :: http://abyul.com/zbxe/109386/57b/trackback

댓글 '3'

2012.07.27 16:18:16
*.36.51.250

지금은 xml주소로 가져오기 한 다음에 행과 열을 편집하는 매크로로 해본 상태입니다..

2012.08.01 11:53:01
*.104.126.21

난호님..

안녕하세요? ㅎㅎ 답변이 늦어졌네요..

개인적으로 회사 다니랴, 애들 가르치랴, 책 쓰랴, 프로그램 개발하랴.. 좀 바쁜 시간이었습니다.

예전에 샘플로 만들어 봤던 코드를 살짝 수정해서 공유합니다.

첨부파일을 참고하세요..

다운받기 : abyul.com_20120801_naverAPI_XML_Parsing-1.xlsm

코드 보기..

Option Explicit

'### Refer to XML DOM
'### code by Joowon Oh '### 2011.12.26 21:05
'### http://abyul.com/ '### abyul@naver.com
Sub naverAPI()
    '### DOMDocument 형식을 사용하려면, 도구 > 참조에서
    '### Microsoft XML 3.0을 참조시켜줘야합니다.
    Dim XmlDoc As DOMDocument: Dim blnXml As Boolean
    Dim strFileName As String: strFileName = "abyul.com_XML.xml"
    Dim strAPIKey As String
    '### 네이버API를 사용하기 위해서는 개인별로 Key를 받아야합니다.
    '### 아래 사이트에서 키를 받으세요..
    '### https://dev.naver.com/openapi/register
    strAPIKey = "개인별로받으셔야함다" '### ◀==이 부분에 꼭 개인키를 넣어야 동작합니다!!!!
    If strAPIKey = "개인별로받으셔야함다" Then
        MsgBox "네이버에서 개인 API키를 받으셔야합니당.. ㅎㅎ" & vbNewLine & _
            "확인 누르시면 해당 사이트로 이동합니당..", vbInformation, "친절한 아별닷컴 주인장 쵝오.."
        Dim ie As Object, objDoc As Object
        Set ie = CreateObject("internetexplorer.application")
        ie.Navigate "https://dev.naver.com/openapi/register"
        ie.Visible = True
        Exit Sub
    End If
    Dim strPath As String: strPath = "http://openapi.naver.com/search?key=" & strAPIKey & "&query=nexearch&target=rank"
    strPath = "http://openapi.naver.com/search?key=" & strAPIKey & "&query=movie&target=ranktheme"
    Dim strTitle As String: strTitle = " XML 파일 불러오기 에라.. abyul.com"
    Dim strMsg As String: strMsg = strPath & "파일을 불러오다가 에러가 발생했습니다."

    Set XmlDoc = CreateObject("Microsoft.XMLDom")
    blnXml = XmlDoc.Load(strPath)
    Application.Wait (Now + TimeValue("0:00:1"))
    Dim shtTarget As Worksheet: Set shtTarget = Sheets.Add
    Dim rngTarget As Range: Set rngTarget = shtTarget.Range("B4")
    Dim i As Integer, j As Integer, k As Integer

    If blnXml = True Then
        Range(rngTarget.Offset(-1, 0), rngTarget.Offset(-1, 3)) = Array("No", "Key", "Rank", "Rank")
        With XmlDoc.ChildNodes(1)
            For i = 0 To .ChildNodes(0).ChildNodes.Length - 1
                'rngTarget.Offset(i, 0) = .ChildNodes(0).ChildNodes(i).nodeName
                rngTarget.Offset(i, 0) = i + 1
            Next i
            For i = 0 To .ChildNodes.Length - 1
                For j = 0 To .ChildNodes(i).ChildNodes.Length - 1
                    For k = 0 To .ChildNodes(i).ChildNodes(j).ChildNodes.Length - 1
                        rngTarget.Offset(j, i + 1 + k) = .ChildNodes(i).ChildNodes(j).ChildNodes(k).Text
                    Next k
                Next j
            Next i
        End With
        Set XmlDoc = Nothing
    Else
        MsgBox strMsg & vbCrLf & Err.Number & " : " _
               & Err.Description, vbCritical, strTitle
    End If

rngTarget.CurrentRegion.Columns.AutoFit

End Sub

abyul.com_20120801_naverAPI_XML_Parsing-1.xlsm [File Size:18.7KB/Download83]

2012.08.01 15:44:07
*.36.51.250

정말 감사합니다! 감사히 받고 잘 연구해보겠습니다!

» 편집 도구모음 건너뛰기

하이퍼링크

새 창으로
특수문자 삽입
선택한 기호
찾기/바꾸기
- 찾기
- 바꾸기
찾을 단어

찾을 단어
바꿀 단어

칸 수 지정

행
열

표 속성 지정

테두리 굵기
테두리 색
표 배경색

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)

비밀글 기능

List of Articles

번호	제목	글쓴이	날짜	조회 수
공지	공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..	아별	2015-04-23	137717
엑셀일반 공백을 활용한 함수 _ 텍스트 나누기 수식으로 나누기 [1] 요셉 2013-01-18 조회 수 7866
엑셀일반 빠른실행도구모음 자동숨김 해제 [2] 데피 2014-06-16 조회 수 7854
차트 엑셀 2007 그래프 선 두께 [1] 지단고고 2013-04-12 조회 수 7853
아별툴관련질문 오류 - 셀서식이 너무 많습니다 [2] darthvader 2013-11-08 조회 수 7833
자동으로 잡히는 인쇄영역 [1] 울산전기쟁이 2010-03-03 조회 수 7833
칸나누기?? [1] 몽 2009-12-29 조회 수 7832
피벗테이블 피벗테이블 날짜 버튼 생성에 대한 문의 [2] thoi 2014-02-13 조회 수 7825
VLookup Vlookup으로 하이퍼링크를 땡겨오고 싶습니다. [2] wooljima0 2014-10-23 조회 수 7823
SUMIF 해당조건에 맞는 월사용액 구하기 [2] 성투은자 2013-04-29 조회 수 7816
다른시트의 도형색깔 바꾸기 [3] ryanoh 2010-05-03 조회 수 7808
엑셀일반 필터링된 시트에 붙혀넣기 [2] 섭지코지 2011-10-29 조회 수 7807
초보 엑셀사용자입니다. 회사안에선 아무도 모르는 거라 엑신님께 여쭈어봅니다.!! [1] 박민철 2009-07-01 조회 수 7803
원하는 데이터만 가져오려면? [1] 여현 2010-05-04 조회 수 7783
2007에서 그래프 사용시 [2] 푸른바다 2009-07-03 조회 수 7782
어떻게 하면 이렇게 변환하는 기능을 만들수 있을까요? [1] 칼리스토 2009-07-01 조회 수 7747
엑셀 차트(표식이 있는 꺾은선형)에서 특정 data 에 색깔 표시 [5] Mike 2009-07-09 조회 수 7735
ISERROR 건 입니다. [4] 리자딘 2009-08-11 조회 수 7723
엑셀일반 한가지 질문요 싸이킥 2015-01-10 조회 수 7716
엑셀일반 이중 데이터 유효성 검사에서 궁금한게 있습니다~ 새벽녘 2014-03-02 조회 수 7716
작업 완료일 구하는 함수 중 일요일만 제외할 수 있나요? [2] rusl1 2009-08-23 조회 수 7716

번호