위처럼 의료기기를 검색하는 사이트( https://emedi.mfds.go.kr/portal )의 검색결과를 엑셀로 가져오는 예시입니다. 여러가지 항목으로 검색할 수 있는데일단 명칭(query2)과 업체명(entpName) 으로 검색하는 예시 파일을 만들어 보았습니다. 첨부파일 매크로 허용해서 열고명칭이나 업체명을 입력하고 시작페이지 ~ 마지막 페이지를 입력하고마우스 우클릭해서 getMed 를 실행합니다.위와 같이 화면입니다.내부적으로 xmlHttp를 이용해서https://emedi.mfds.go.kr/search/data/list?chkList=1&nowPageNum=1&tabGubun=1&query2=브러쉬&entpName=신원&chkGroup=GROUP_BY_FIELD_01&pageNum=1&se..
크롤링 검색 결과
위 게임 사이트의 각 캐릭터의 능력치, 장비 등의 자료를 엑셀로 가져오는 예시입니다. 아래 그림의 파란색 네모 부분을 가져오는 것입니다. 엑셀화면은 아래와 같습니다. 웹사이트 자료 가져오는 연습 삼아 만들어 보았습니다. 위 사이트는 간단한 프로필 즉, 레벨이나 등급 등은 일반 html로 받아오고공격, 방어율, 자세한 장비 보유 유무 등은 JSON 형태로 실시간으로 받아와서 html로 뿌려주고 있네요. 일반html은 winhttp, xmlhttp 를 이용해서 html을 받아오면 되고JSon 데이터는 간단한 문자열 구조인데 문자열을 나눌(파싱할) 때 VBA-JSON이라는 라이브러리를 이용하여 파싱할 수 있습니다. 캐릭터이름을 새로 추가 입력하고 나서 우측 상단 새로고침 아이콘을 누르면 테스트 목적으로만 사용..
지식인 링크: https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=316777745&page=1#answer1 RSS XML데이터를 읽는 방법은 여러가지입니다. VBA 없이 손쉽게 읽어 오는 방법은먼저 개발도구의 '원본'을 눌러서RSS 주소를 넣어주고RSS 트리가 불러와 지면item 폴더를 끌어서 셀에 갖다 놓고우클릭해서 '갱신'을 선택해주면RSS 내용을 필터형식으로 조회할 수 있습니다. 그 과정을 VBA를 이용한다면 Workbook.XmlImport를 이용해서 아래와 같습니다. 12345678910111213141516171819202122232425Sub Xml_Import() Dim str As String On Error Resume Next..
최근댓글