실거래가 open api 날짜 변수를 엑셀에서 입력하면 바뀌게 하는게 궁금합니다.

VBA
작성자
랜드프로
작성일
2021-12-22 21:21
조회
92
엑셀버전 : 엑셀2019

운영체제 : 윈도우11

안녕하세요. 엑셀에서 국토부 실거래가 불러오는 연습하고 있습니다.

검색해서 아래 코드 찾았는데.. 해보니 잘 됩니다.

그런데 아래 빨간색 글자 (2021년 12월) 처럼.. 이걸 엑셀 a1 셀에 입력하면

vba에 반영되도록 하고 싶은데..

어떻게 하면 될까요??

 

----------------------------------------

Sub callopenapi()

Dim strurl As String
Dim strResult As String
Dim objHTTP As New XMLHTTP60

strurl = "http://openapi.molit.go.kr/OpenAPI_ToolInstallPackage/service/rest/RTMSOBJSvc/getRTMSDataSvcAptTradeDev?serviceKey=키&pageNo=1&numOfRows=100000000&LAWD_CD=41590&DEAL_YMD=202112"

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

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

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

회원등급 : 잎새등급
포인트 : 90 EP
총질문 : 4 개 (마감율 : 25%)
채택답변 : 0 개
전체 2

  • 2021-12-22 21:38

    아래처럼 바뀌니까 잘 되네요..

    검색하다 알아냈어요..

     

    strsearch = Sheet1.Range("a2").Value

    strurl = "http://openapi.molit.go.kr/OpenAPI_ToolInstallPackage/service/rest/RTMSOBJSvc/getRTMSDataSvcAptTradeDev?serviceKey=키&pageNo=1&numOfRows=100000000&LAWD_CD=41590&DEAL_YMD=" & strsearch


  • 2021-12-22 21:39

    셀 값을 변경할 때 업데이트 하려면 이벤트모듈을 사용해야 합니다.

    프로시져에서 값을 받아올 수 있도록 인수만 하나 추가해주시고.. 이벤트 모듈을 추가하면 됩니다.

    Sub callopenapi(val)
    
    Dim strurl As String
    Dim strResult As String
    Dim objHTTP As New XMLHTTP60
    
    strurl = "http://openapi.molit.go.kr/OpenAPI_ToolInstallPackage/service/rest/RTMSOBJSvc/getRTMSDataSvcAptTradeDev?serviceKey=키&pageNo=1&numOfRows=100000000&LAWD_CD=41590&DEAL_YMD=" & val
    

    유첨파일 확인해보세요 ^^ 키값 변경하면 잘 동작할겁니다

     

    첨부파일 : 오픈API예제.xlsm


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