불러온 실시간 경락 정보 데이터를 표로 표시해주는 코드를 추가했습니다. Option Explicit 'B2셀을 기준으로 CurrentRegion범위를 표1로 변경 Sub MakeTable() ActiveSheet.ListObjects.Add(xlSrcRange, Range("B2").CurrentRegion, , xlYes).Name = "표1" End Sub 'ListObject(표)의 서식을 지우고 범위로 변경 Sub ClearTable() Dim Otable As ListObject '// 기존 표를 "범위로 변환" For Each Otable In ActiveSheet.ListObjects Otable.TableStyle = "" Otable.Unlist Next End Sub 데이터를 불러올때 ..
사용하던 OpenAPI가 법인지정 없이 전체검색을 했을때 send에서 시간이 너무 많이 걸려서 다른 OpenAPI가 없나 찾아보니 조금더 최신의 OpenAPI가 있어서 그걸로 교체했습니다. 데이터 이름은 '전국 도매시장 일별 실시간 경락가격 상세정보(법인사용코드포함)' 입니다. 근데 이게 검색을 하면 등록일이 2018년 1월 8일 등록으로 나오고, 원래 사용하던 OpenAPI는 2015년 11월 17일이 등록일로 나오는데 상세페이지로 들어가보면 등록일이 2014년 10월 24일과 2015년 11월 10일로 다르게 나옵니다.이부분은 어떤게 정확한건지 사실 모르겠습니다. 아무튼 테스트해본 결과 send를 했을때 걸리는 시간이 월등히 이쪽이 빨라서 교체를 결정했습니다. 서론이 길었네요. 교체할 OpenAPI의..
지난 포스팅에서 OpenAPI를 이용해서 실시간 경락 정보를 가져오는 코드를 만들었습니다. 이번 포스팅에서는 불러온 데이터 중에서 필요한 내용만 가공해서 엑셀 시트로 뿌려주는 작업을 하겠습니다. 우선 원하는 데이터를 뽑기 위해서 요청변수를 알아야 합니다. 이부분은 공공데이터의 정보에서 확인할수 있습니다. 공공데이터의 원천실시간경락가격도매시장목록조회의 상세페이지로 이동한뒤 요청변수 탭에서 확인 가능합니다. data.mafra.go.kr/opendata/data/indexOpenDataDetail.do?data_id=20151117000000000537&service_ty=O 원천실시간경락가격도매시장목록조회 전국 도매시장에서 거래되는 농산물, 수산물, 축산물의 경매낙찰가격과 거래되는 상품들에 대한 정산 거래..
지난 포스팅에서 공공데이터 포털에 가입을 하고 OpenAPI 사용신청까지 했습니다. cookiexcel.tistory.com/29 실시간 경락 정보 #1 오픈 API 신청하기 갑자기 뜬금없긴한데 경락가격 정보를 엑셀에서 바로 쓸수 있으면 좋겠다 싶어 만들어볼 생각입니다. 이후에 발주/매입매출 관리쪽으로 같이 넣어서 사용해도 괜찮을것 같아서 열심히 구글링 cookiexcel.tistory.com 이번 포스팅에서는 신청한 OpenAPI를 이용해 엑셀 시트에 실시간 경락 정보를 불러와 보도록 하겠습니다. 정보를 불러오는 코드는 2가지 방법을 사용해 보겠습니다. 우선 첫번째 방법은 xml로 불러와서 각각의 노드값을 셀로 뿌려주는 방식입니다. Sub CallOpenAPI() Dim strURL As String ..
갑자기 뜬금없긴한데 경락가격 정보를 엑셀에서 바로 쓸수 있으면 좋겠다 싶어 만들어볼 생각입니다. 이후에 발주/매입매출 관리쪽으로 같이 넣어서 사용해도 괜찮을것 같아서 열심히 구글링 해서 만들어 보고 있습니다. 이번 포스팅은 우선적으로 경락 가격 정보를 가져올수있는 API가 있어서 그걸 먼저 알아보도록 하겠습니다. 우선은 농림축산식품 공공데이터포털(이후 공공데이터라 칭하겠습니다.)에서 회원가입을 해야합니다. data.mafra.go.kr/main.do 농림축산식품 공공데이터 포털 data.mafra.go.kr 또는 농업ON에서도 API 신청은 가능합니다만 결국은 공공데이터 포털에서 가져 오는거라 위의 공공데이터 포털에만 가입하시면 농업ON은 자동으로 가입이 됩니다. www.agrion.kr/portal/m..
