실거래가 데이터 엑셀에 줄이 안 맞는 경우 어떻게 수정하나요?

VBA
작성자
랜드프로
작성일
2023-08-27 12:29
조회
1187
엑셀버전 : 엑셀2021

운영체제 : 윈도우11

질문 요약 : 실거래가 데이터 줄 맞추기

안녕하세요.

실거래가 api 질문 드려요.

 

아파트의 경우는 문제가 없는데..

오피스텔이나 다가구는 아래처럼 건축년도 데이터가 빠지는 경우 한칸씩 밀리는데..

이런경우는 어떻게 해야 제대로 데이터를 받을 수 있을까요?

 

코드는 아래와 같아요.

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

Set nodelist = objxml.SelectNodes("/response/body/items/item")

nrowcount = 7
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

 

 

 

신고
스크랩
공유
전체 2

  • 2023-08-27 16:42

    @랜드프로 님 Each NodeCell로 하나씩 꺼내 쓰면 중간에 비어 있거나 하면 말씀하신 문제가 발생합니다.
    정확히 해당 속성을 찾아서 해당하는 열에 넣어 주어야 합니다.
    값이 없더라도 빈 태그를 넣어 주면 좋겠지만 아닌 경우도 많이 있으므로 하나씩 확인합니다.

    예를들면

    Set xmlNode = .getElementsByTagName("NSDI:REGSTR_SE_CODE")(0): If Not xmlNode Is Nothing Then vF(1) = xmlNode.Text          
    Set xmlNode = .getElementsByTagName("NSDI:LNM_LNDCGR_SMBOL")(0): If Not xmlNode Is Nothing Then vF(2) = xmlNode.Text          
    Set xmlNode = .getElementsByTagName("NSDI:STDR_YEAR")(0): If Not xmlNode Is Nothing Then vF(3) = xmlNode.Text                
    Set xmlNode = .getElementsByTagName("NSDI:STDR_MT")(0): If Not xmlNode Is Nothing Then vF(4) = xmlNode.Text                  
    Set xmlNode = .getElementsByTagName("NSDI:PBLNTF_PCLND")(0): If Not xmlNode Is Nothing Then vF(5) = xmlNode.Text              
    Set xmlNode = .getElementsByTagName("NSDI:LNDCGR_CODE_NM")(0): If Not xmlNode Is Nothing Then vF(6) = xmlNode.Text            
    Set xmlNode = .getElementsByTagName("NSDI:LNDPCL_AR")(0): If Not xmlNode Is Nothing Then vF(7) = xmlNode.Text                
    Set xmlNode = .getElementsByTagName("NSDI:PRPOS_AREA_1_NM")(0): If Not xmlNode Is Nothing Then vF(8) = xmlNode.Text          
    Set xmlNode = .getElementsByTagName("NSDI:PRPOS_AREA_2_NM")(0): If Not xmlNode Is Nothing Then vF(9) = xmlNode.Text          
    Set xmlNode = .getElementsByTagName("NSDI:LAD_USE_SITTN_NM")(0): If Not xmlNode Is Nothing Then vF(10) = xmlNode.Text        
    Set xmlNode = .getElementsByTagName("NSDI:ROAD_SIDE_CODE_NM")(0): If Not xmlNode Is Nothing Then vF(11) = xmlNode.Text

     

     

     


    • 2023-08-27 20:21

      @원조백수 님 초보라 이해가 어렵네요.

      위에 코드도 검색하다 우연히 발견해서 잘 쓰고 있었거든요..

      올려주신 코드를 어디에 복사해서 넣어야 하는건가요?? ^^;;


전체 16,931
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 844444
오빠두엑셀 2022.02.03 554 844444
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31513
오빠두엑셀 2021.10.28 304 31513
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 38
배고픈짐승 2024.10.30 - 38
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 54
iwnqn 2024.10.30 - 54
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2) 답변완료
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 42
퉁퉁이 2024.10.30 - 42
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (6) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 63
저도해볼게요 2024.10.30 - 63
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 46
스톤스톤 2024.10.30 - 46
74585 VBA
New UserForm 크기질문 첨부파일 (4) 답변완료
땡이 | 2024.10.30 | 추천 0 | 조회 59
땡이 2024.10.30 - 59
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (4)
qlcc**** | 2024.10.30 | 추천 0 | 조회 65
qlcc**** 2024.10.30 - 65
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 59
김은상 2024.10.30 - 59
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 47
2024.10.30 - 47
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 53
구리구리이 2024.10.30 - 53
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3) 답변완료
서기 | 2024.10.30 | 추천 0 | 조회 48
서기 2024.10.30 - 48
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 2024.10.30 | 추천 0 | 조회 52
문과적남자 2024.10.30 - 52
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (1)
라핼 | 2024.10.30 | 추천 0 | 조회 64
라핼 2024.10.30 - 64
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 69
정재욱 2024.10.30 - 69
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 72
침착해 2024.10.30 - 72
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 61
ek02 2024.10.30 - 61
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (3)
야만용사 | 2024.10.29 | 추천 0 | 조회 97
야만용사 2024.10.29 - 97
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 86
rarara 2024.10.29 - 86
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (10)
| 2024.10.29 | 추천 0 | 조회 121
2024.10.29 - 121
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 94
gys**** 2024.10.29 - 94
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 89
Moto 2024.10.29 - 89
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 78
ViVaViva 2024.10.29 - 78
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 92
TMOH 2024.10.29 - 92
74528 함수/공식
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ 엑셀파일첨부파일 (7)
말하지마00 | 2024.10.29 | 추천 0 | 조회 98
말하지마00 2024.10.29 - 98
74526 함수/공식
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다. 엑셀파일 (2) 답변완료
깐부 | 2024.10.29 | 추천 0 | 조회 78
깐부 2024.10.29 - 78
74521 함수/공식
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요 첨부파일 (2)
Moto | 2024.10.29 | 추천 0 | 조회 79
Moto 2024.10.29 - 79
74520 VBA
New VBA 런타임 오류 관련 질문 첨부파일 (1)
angelriun | 2024.10.29 | 추천 0 | 조회 61
angelriun 2024.10.29 - 61
74518 함수/공식
New 두 시트에서 교집합 찾기 (3)
우파루파 | 2024.10.29 | 추천 0 | 조회 87
우파루파 2024.10.29 - 87
74516 구글시트
New 렌덤으로 배치 할수 있는 방법이 있을까요? 첨부파일 (8)
피망이 | 2024.10.29 | 추천 0 | 조회 78
피망이 2024.10.29 - 78
74513 함수/공식
New 엑셀로 명리를 정리하던 중에.. 엑셀파일 (8)
Ballad | 2024.10.29 | 추천 0 | 조회 104
Ballad 2024.10.29 - 104