안녕하세요. Open API에 대해서 너무 자세한 설명 감사합니다. 제가 해드릴거는 좋아요와 구독 밖에 없네요ㅎㅎ. 본 동영상을 보고 공공API를 이용해 웹을 이용한 공모전에 도전을 하였는데 운이 좋게도 조그만한 입상을 하게 되었습니다. 학업적으로 너무 도움이 되었고 유익한 영상 올려주셔서 감사합니다.
여러 좋은 교육내용 감사히 보고 있습니다. 부탁인데 컨텐츠 하나 배울수 있게 도와주세요.. A2: 출발지주소 B2:도착지주소 C2:도착시간..... 2~입력된 끝번째 순서까지... 버튼누르면 시간 계산.... 카카오맵을 이용하여 예상 시간 데이타를 확인 할수 있도록 해보려하는데... 책을 보고 여러 영상을 보며 연습하려해도 쉽지가 않아서요.. 이것좀 영상으로 알려주실수 있으신지요??
강의 너무 감사드립니다. xml이라 함은 RSS서비스도 같은 원리로 되는거겠죠? 이제 정말 필요한 부분을 알려주신 거 종합해서 만들어갈 수 있을 것 같습니다. 그런데 이 강의에서 이 부분에 계속 컴파일 오류가 나네요. 뭘 잘못한 건지 아무리 찾아봐도 모르겠습니다. objHttp.Open"GET".strURL.False 다음 링크 클릭하시면 스샷보실 수 있습니다. d.pr/i/PwVPpq 이렇게 한번 에러나는게 제일 곤혹스럽네요 ^^
안녕하세요 촬스님 vba를 공부하고 있는 직장인입니다. 현재 vba바이블과 vba무작정따라하기 두 교재로 vba를 익혔는데요... 제가 엑셀 실력을 더 높이고 싶어 api를 활용하는 기초부터 응용까지를 배우고싶은데 api 수준까지를 다루고 있는 교재를 찾지 못하고 구글에 검색해서 공부하기엔 한글로 돼있는 자료가 거의 전무해서 한계를 느끼고 있습니다... 공부를 할 수 있을만한 좋은 자료나 사이트를 추천해주실 수 없을까요?
님의 강의를 열심히 듣고 있는 열혈 구독자입니다. 그런데, 님의 강의를 몇번씩이고 봐도 안되는 것이 있습니다. bondweb.edaily.co.kr 이 사이트에는 로그인 하는 부분이 있는데, 강의 하신 내용중에 과 관련있는 것 같습니다. 그런데, 에 name도 class도 없는 경우입니다. 어떻게 해야 할지 모르겠습니다. 해당 사이트에서 리서치정보->시가평가표로 갈 수 있는 방법이 궁금합니다.
항상 감사하며 시청하고 공부하고 있습니다.진심으로 감사드립니다.실행하게 되면 nRowCount = 0 For Each nodeRow In nodeList 까지 실행된 후 바로 End If 로 마무리 됩니다...ㅠㅠ10번 넘게 해봤는데도 계속 이러니 답답합니다..지도편달 부탁 드립니다.Sub CallOpenAPI() Dim strURL As String Dim strResult As String
Dim objHttp As New WinHttpRequest strURL = "ecos.bok.or.kr/api/KeyStatisticList/Sample/xml/kr/1/10/" objHttp.Open "GET", strURL, False objHttp.Send
If objHttp.Status = 200 Then strResult = objHttp.ResponseText
'XML로 연결 Dim obj As MSXML2.DOMDocument60 Set objxml = New DOMDocument60 objxml.LoadXML (strURL)
'노드연결 Dim nodeList As IXMLDOMNodeList Dim nodeRow As IXMLDOMNode Dim nodeCell As IXMLDOMNode Dim nRowCount As Integer Dim nCellCount As Integer
Set nodeList = objxml.SelectNodes("/KeystatisticList/row")
nRowCount = 0 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
![[엑셀기초] 회사에서 자주 쓰는 엑셀 단축키 5가지](http://i.ytimg.com/vi/sHdnks4XIJY/mqdefault.jpg)
안녕하세요. Open API에 대해서 너무 자세한 설명 감사합니다. 제가 해드릴거는 좋아요와 구독 밖에 없네요ㅎㅎ. 본 동영상을 보고 공공API를 이용해 웹을 이용한 공모전에 도전을 하였는데 운이 좋게도 조그만한 입상을 하게 되었습니다. 학업적으로 너무 도움이 되었고 유익한 영상 올려주셔서 감사합니다.
와우~ 축하드려요 제가 다 뿌듯하네요
헉 감사합니다 ㅠ 열열한 펜입니다
우왕 감사합니다!!
마침 해보고 싶었던 API였는데 잘 배우고 갑니다. 감사합니다~^^
잘 배웠습니다 ^^
Great
여러 좋은 교육내용 감사히 보고 있습니다. 부탁인데 컨텐츠 하나 배울수 있게 도와주세요.. A2: 출발지주소 B2:도착지주소 C2:도착시간..... 2~입력된 끝번째 순서까지... 버튼누르면 시간 계산.... 카카오맵을 이용하여 예상 시간 데이타를 확인 할수 있도록 해보려하는데... 책을 보고 여러 영상을 보며 연습하려해도 쉽지가 않아서요.. 이것좀 영상으로 알려주실수 있으신지요??
잘보았습니다 www.data.go.kr
라고 공공데이터포털이 있는데 그중에서 부동산종합정보에 관해 알려주심 감사하겠습니다
유용한 설명 감사합니다. 혹시 키움증권사 api활용하여 데이타 받는것도 가능할까요?
안녕하세요! 혹시 오픈API가 자바스크립트 코드로 되어 있는데요 이것도 VBA에서 가져올 수 있을까요?
조달청 나라장터에 데이터 사용법도 알려주게요~
이후에 한번 Open API로 제작 검토해보겠습니다.
www.data.go.kr 에서 부동산정보를 매크로로 가져오는방법 알려주시면 감사하겠습니다
강의 너무 감사드립니다. xml이라 함은 RSS서비스도 같은 원리로 되는거겠죠? 이제 정말 필요한 부분을 알려주신 거 종합해서 만들어갈 수 있을 것 같습니다. 그런데 이 강의에서 이 부분에 계속 컴파일 오류가 나네요. 뭘 잘못한 건지 아무리 찾아봐도 모르겠습니다. objHttp.Open"GET".strURL.False 다음 링크 클릭하시면 스샷보실 수 있습니다. d.pr/i/PwVPpq 이렇게 한번 에러나는게 제일 곤혹스럽네요 ^^
해결했어요. '.'이 아니고 ','였네요. 초보라 엄한 부분에서 ^^
dart에서도 지원하는거 같은데 재무정보 자세한 계정을 받아보고 싶은데 가능할까요? ㅠㅠ
나름 엑셀은 잘 사용한다고 생각했는데...이건 뭐 ㅠㅠ 처음듣는 외국어를 보는듯 어렵네요 ㅠㅠ
안녕하세요 촬스님 vba를 공부하고 있는 직장인입니다. 현재 vba바이블과 vba무작정따라하기 두 교재로 vba를 익혔는데요... 제가 엑셀 실력을 더 높이고 싶어 api를 활용하는 기초부터 응용까지를 배우고싶은데 api 수준까지를 다루고 있는 교재를 찾지 못하고 구글에 검색해서 공부하기엔 한글로 돼있는 자료가 거의 전무해서 한계를 느끼고 있습니다... 공부를 할 수 있을만한 좋은 자료나 사이트를 추천해주실 수 없을까요?
혹시 네이버 지도같은 데서 한 지점과 다른 여러 곳의 지역의 거리를 구해서 순위를 매기는 것도 가능할까요? 예를 들어 노량진역을 기준으로 다른 역들과의 거리를 구해서 순위를 얻는 식이요 ㅎㅎ
굳이 네이버 아니더라도 편하신 곳에서!
님의 강의를 열심히 듣고 있는 열혈 구독자입니다. 그런데, 님의 강의를 몇번씩이고 봐도 안되는 것이 있습니다. bondweb.edaily.co.kr 이 사이트에는 로그인 하는 부분이 있는데, 강의 하신 내용중에 과 관련있는 것 같습니다. 그런데, 에 name도 class도 없는 경우입니다. 어떻게 해야 할지 모르겠습니다. 해당 사이트에서 리서치정보->시가평가표로 갈 수 있는 방법이 궁금합니다.
해당 사이트를 한번 봤는데요.. 해당 사이트의 경우 회원제로 운영이 되고 크롤링 관련해서 법적 이슈가 될 소지가 있어 보입니다.
시간이 되시면 우체국 open api 등기번호 일괄조회 하는거 부탁드립니다
인터넷우체국 사이트에서 건건이 등기번호 조회할 수는 있는데
수천건을 조회하려니 노가다네요
아마도 대부분의 기관에서는 이렇케
건건이 조회하고 있을것 같네요
전문가가 없다보니요
@@MP-fw2ue혹시 인터넷우체국 Open API 사이트 주소가 정확히 어떻게 되는지요? 잘 검색되지가 않네요..
안녕하세요 영상 잘 봤습니다.
한 가지 궁금한 게 있어서 말입니다.
혹시 키움증권 open Api를 활용해서 기업의 재무제표, 경제데이터를 불러와서
그 데이터를 엑셀에서 재구성해서 쓸 만한 데이터값으로 자동으로 변환이 가능한 지 여쭤봅니다.
제가 키움증권을 안해봐서 잘은 모르겠습니다만, 일반적인 open api가 아니라 별도의 ocx 라이브러리를 설치해야 동작하도록 프로그램이 되어있는것 같네요..
혹시 추후라도 키움증권을 사용하게 될 일이 있다면 해당 강좌 한번 만들어보도록 할께요
@@엑셀장인촬스 빠른 답변 감사드립니다.
공공데이터 포털 open api를 이용하는 방법도 알고싶습니다~
조금 전 영상 하나 업로드 했습니다. 한번 확인해보세요
한국어는 왜 입력이 되지 않나요? ㅜㅜ
똑같이 따라하고 싶어도 맥북이라서 그런지 뭔가 조금씩 다름..
항상 감사하며 시청하고 공부하고 있습니다.진심으로 감사드립니다.실행하게 되면 nRowCount = 0
For Each nodeRow In nodeList 까지 실행된 후 바로 End If 로 마무리 됩니다...ㅠㅠ10번 넘게 해봤는데도 계속 이러니 답답합니다..지도편달 부탁 드립니다.Sub CallOpenAPI()
Dim strURL As String
Dim strResult As String
Dim objHttp As New WinHttpRequest
strURL = "ecos.bok.or.kr/api/KeyStatisticList/Sample/xml/kr/1/10/"
objHttp.Open "GET", strURL, False
objHttp.Send
If objHttp.Status = 200 Then
strResult = objHttp.ResponseText
'XML로 연결
Dim obj As MSXML2.DOMDocument60
Set objxml = New DOMDocument60
objxml.LoadXML (strURL)
'노드연결
Dim nodeList As IXMLDOMNodeList
Dim nodeRow As IXMLDOMNode
Dim nodeCell As IXMLDOMNode
Dim nRowCount As Integer
Dim nCellCount As Integer
Set nodeList = objxml.SelectNodes("/KeystatisticList/row")
nRowCount = 0
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 IfEnd Sub
혹시 인증키를 받으셔서 주소에 넣으셨는지요? 인증키가 없으면 조회가 안되기 때문에 결과가 없어 그렇게 될수 있습니다.