불러온 실시간 경락 정보 데이터를 표로 표시해주는 코드를 추가했습니다. 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의..