Api 데이터 불러오기를 한후 셀 순서가 섞이네요.ㅡㅜ

VBA
작성자
‍‍
작성일
2022-01-09 22:39
조회
77
엑셀버전 : 엑셀2019

운영체제 : 윈도우11

안녕하세요. 질문하나 드립니다.  도와주세요!

오픈api에서 데이터상 사진과 같이 서울시라는 명칭이 있는데이터도 있고 기입하지 않은 데이터도 있어서 자료를 불러오면 이렇게 셀에 어긋나게 표현됩니다.

Vba는

 

Sub CallOpenAPI()

Dim strURL As String
Dim strResult As String

Dim objHttp As New WinHttpRequest

strURL = "Open API 주소를 입력하세요"
objHttp.Open "GET", strURL, False
objHttp.send

If objHttp.Status = 200 Then '성공했을 경우
strResult = objHttp.responseText

'XML로 연결
Dim objXml As MSXML2.DOMDocument60
Set objXml = New DOMDocument60
objXml.LoadXML (strResult)

'노드 연결
Dim nodeList As IXMLDOMNodeList
Dim nodeRow As IXMLDOMNode
Dim nodeCell As IXMLDOMNode
Dim nRowCount As Integer
Dim nCellCount As Integer

Set nodeList = objXml.SelectNodes("/response/fields/field")

nRowCount = Range("A60000").End(xlUp).Row
For Each nodeRow In nodeList
nRowCount = nRowCount + 1

nCellCount = 0
For Each nodeCell In nodeRow.ChildNodes
nCellCount = nCellCount + 1
'엑셀에 값 반영
Cells(nRowCount, nCellCount).Value = nodeCell.Text
Next nodeCell

Next nodeRow

Else
MsgBox "접속에 에러가 발생했습니다"

End If

End Sub

 

웹상에서 돌아다니는 것을 썼습니다.

제외하고 불러오려면 어떻게 해야하는건가요?

혹 엑셀상에서 없는데이터는 빈칸으로 표시할수 있어도 괜찮습니다.

방법좀 알려주세요.ㅡㅜ

 

아 그리고 서울시라는건 첫줄에<areaname>가 있고

다른 것들은 <areaname>이 없고 첫줄에 바로 <biztitle>로 시작하네요.

바쁘시겠지만 엑셀 초보좀 도와주세요.

(사진용량이 커서 용량을 줄였더니 화질이 안좋습니다. 죄송합니다.)

1641735490909.jpg

전체 6

  • 2022-01-10 02:47

    원하시는 내용이 맞을지 모르겠지만..

    아래 부분을 수정해보세요

    Cells(nRowCount, nCellCount).Value = nodeCell.Text

    If nodeCell.Text <> "" Then Cells(nRowCount, nCellCount).Value = nodeCell.Text

    이렇게 수정하면 될겁니다


    • 2022-01-10 13:17

      @엑셀은즐거워 님 네 감사합니다. 수정해보겠습니다.

      그런데 2개 차이는 뭔지 알려주실수 있으신가요? 부탁드립니다.


    • 2022-01-10 15:35

      @엑셀은즐거워 님 Cells(nRowCount, nCellCount).Value = nodeCell.Text 를

      If nodeCell.Text <> "" Then Cells(nRowCount, nCellCount).Value = nodeCell.Text 으로

      수정해보았습니다.

      그런데 "컴파일 오류입니다. 적합한 개체가 없으므로 메서드가 잘못되었습니다."

      이렇게 나오네요. 무엇이 잘못된걸까요? ㅡㅜ


      • 2022-01-14 16:57

        @‍‍

        nodeCell.Text

        이 부분에서 발생하는 것 같은데, Stop 으로 오류 발생전 단계에서 nodeCel.Text 값이 어떻게 반환되는지 한번 확인해보세요


        • 2022-01-16 19:30

          @엑셀은즐거워 님 감사합니다. 그런데 그건 어떻게 확인을 해봐야하나요? ㅡㅜ 제가 초보라...


          • 2022-01-17 04:16

            @‍‍ 님 구글에 VBA 디버깅이라고 검색해서 살펴보세요


전체 5,131
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (28)
트로피 오빠두엑셀 | 2021.10.12 | 추천 22 | 조회 750
트로피 오빠두엑셀 2021.10.12 22 750
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 28 | 조회 2330
트로피 오빠두엑셀 2021.10.28 28 2330
26050 함수/공식
New 행과 열의 합의 함수를 알고 싶어요!
Goldhajin | 00:45 | 추천 0 | 조회 12
Goldhajin 00:45 0 12
26041 VBA
New 일정시간이 지나면 MsgBOX로 알림창이 뜨게 하고싶습니다.
을지지뢰 | 2022.01.17 | 추천 0 | 조회 20
을지지뢰 2022.01.17 0 20
26035 함수/공식
New 특정날짜와 시간 고정해서 데이터 추출방법 도와주세요 (3)
박현욱 | 2022.01.17 | 추천 0 | 조회 32
박현욱 2022.01.17 0 32
26033 함수/공식
New 필터 함수를 인덱스 매치 함수로 변환하는 어려움 첨부파일 (1)
미르 | 2022.01.17 | 추천 0 | 조회 21
미르 2022.01.17 0 21
26030 함수/공식
New 원본표에서 일정 조건의 내용을 추출하여 새로운 표에 자료 넣기 첨부파일 (1)
알면서 | 2022.01.17 | 추천 0 | 조회 17
알면서 2022.01.17 0 17
26029 기능/도구
New 필터에서 상하위 % 추출 안됨 오류 첨부파일 (1)
알면서 | 2022.01.17 | 추천 0 | 조회 14
알면서 2022.01.17 0 14
26026 함수/공식
New 한 셀에 입력된 문장 중 조건에 만족하는 문장 개수 함수 (2)
삐약이 | 2022.01.17 | 추천 0 | 조회 24
삐약이 2022.01.17 0 24
26025 기능/도구
New 셀 내용을 지우면 특정 셀 내용도 같이 삭제되는 기능? 첨부파일 (1) 답변완료
올리주인 | 2022.01.17 | 추천 1 | 조회 26
올리주인 2022.01.17 1 26
26023 VBA
New VBA 사용자정의폼 show 0 명령어 (1)
병욱 | 2022.01.17 | 추천 0 | 조회 26
병욱 2022.01.17 0 26
26022 VBA
New 거래처별 파일 나누기 첨부파일
silli**** | 2022.01.17 | 추천 0 | 조회 30
silli**** 2022.01.17 0 30
26015 함수/공식
New 혹시 Crtl + F 찾기 같은 함수와 있나요 (1)
태혁 | 2022.01.17 | 추천 0 | 조회 46
태혁 2022.01.17 0 46
26014 차트/그래프
New 해당 스크린샷의 그래프를 어떻게 만드는지 알려주세요 (1)
민석 | 2022.01.17 | 추천 0 | 조회 22
민석 2022.01.17 0 22
26005 함수/공식
New 한 숫자값에 대한, 홀수/짝수값을 나열하고 싶습니다. (5)
땅콩구리아빠 | 2022.01.17 | 추천 0 | 조회 33
땅콩구리아빠 2022.01.17 0 33
26000 VBA
New Rng.find 함수로 찾은 값을 DB안에 넣고싶습니다. (2)
가을전어 | 2022.01.16 | 추천 0 | 조회 32
가을전어 2022.01.16 0 32
25994 함수/공식
New 날짜 입력하면 당일 주야간 합구하는 함수나 방법을 배우러 왔습니다. (1)
현주아빠 | 2022.01.16 | 추천 0 | 조회 31
현주아빠 2022.01.16 0 31
25993 VBA
New workday 함수를 vba로.. (1)
Hong | 2022.01.16 | 추천 0 | 조회 28
Hong 2022.01.16 0 28
25989 차트/그래프
New 표 자동 입력 첨부파일 (2) 답변완료
미르 | 2022.01.16 | 추천 0 | 조회 42
미르 2022.01.16 0 42
25983 함수/공식
New 년도에 따른 출장 일수 구하고 싶은데 도움 부탁드립니다. (1)
kjin1020@naver.com | 2022.01.16 | 추천 0 | 조회 25
kjin1020@naver.com 2022.01.16 0 25
25982 함수/공식
New 입력하면 옆 셀에 자동으로 '1'이 입력되는 방법 (1) 답변완료
올리주인 | 2022.01.16 | 추천 0 | 조회 51
올리주인 2022.01.16 0 51
25973 함수/공식
New index match로 불러온 여러 목록의 사진을 다시 취합해서 불러오고 싶습니다. 첨부파일
배고픈콩콩 | 2022.01.16 | 추천 0 | 조회 38
배고픈콩콩 2022.01.16 0 38
25969 VBA
New 검색한 셀의 가로열 전부를 복사하는 방법이 알고 싶습니다. vba
ㅈㄱㄹ | 2022.01.16 | 추천 0 | 조회 24
ㅈㄱㄹ 2022.01.16 0 24
25945 함수/공식
New if 함수 중첩 (3)
shheee | 2022.01.15 | 추천 0 | 조회 54
shheee 2022.01.15 0 54
25938 기능/도구
New 수식이 포함된 시트에서 수식이 입력된 셀을 제외한 셀을 선택하는 방법을 알고자 합니다 (1)
yya**** | 2022.01.15 | 추천 0 | 조회 35
yya**** 2022.01.15 0 35
25932 문서서식
New 안녕하세요...도움을 요청합니다. 첨부파일 (1)
violet**** | 2022.01.15 | 추천 0 | 조회 49
violet**** 2022.01.15 0 49
25919 함수/공식
중복일 경우 1개만 카운트 첨부파일 (3) 답변완료
s77**** | 2022.01.14 | 추천 0 | 조회 85
s77**** 2022.01.14 0 85
25918 함수/공식
대출 이자율을 구하는 함수가 있을까요? (3)
늦깎이 | 2022.01.14 | 추천 0 | 조회 61
늦깎이 2022.01.14 0 61
25909 문서서식
셀값에 보이지 않는 값이 있습니다 이게 뭔지 알려주세요ㅠㅠ 첨부파일 (2) 답변완료
닉으로 | 2022.01.14 | 추천 0 | 조회 63
닉으로 2022.01.14 0 63
25908 함수/공식
혹시 매주 월요일마다 자동 작성되게 할 수 있나요? (5)
태혁 | 2022.01.14 | 추천 0 | 조회 85
태혁 2022.01.14 0 85
25905 대시보드
데이터 관리 때문에 질문 드립니다. 첨부파일 (4)
콜럼버스 | 2022.01.14 | 추천 0 | 조회 48
콜럼버스 2022.01.14 0 48
25896 함수/공식
수입, 지출누적액 구하는 방법 (6)
칼있으녀 | 2022.01.14 | 추천 0 | 조회 84
칼있으녀 2022.01.14 0 84