오늘은 동행복권 로또번호 지난 1회 차부터 현재회차까지 당첨번호 전체조회하는 방법을 알아볼 건데요 동행복권 사이트를 이용하여 1 회차씩 또는 전체회차번호를 엑셀 VBA를 이용하여 조회 및 불러오는 방법을 본문 내용에서 자세히 알아볼게요.
동행복권 로또번호 조회
동행복권에서 역대 로또 당첨번호를 회차별로 조회할 수 있는데요 그런데 매번 동행복권 사이트를 방문해야 된다는 것이 정말 귀찮아요.
그래서 동행복권 사이트에서 제공하는 로또당첨번호를 엑셀 VBA를 이용하여 1 회차씩 또는 전체회차 당첨번호를 불러와 확인할 수 있는 코드를 작성해 볼게요.
본 내용은 MS오피스 2024 엑셀 문서이며 여러분의 PC에 MS오피스 엑셀이 설치되어 있어야 합니다. 만약 여러분의 PC에 MS오피스 2024 엑셀이 설치되지 않으셨다면 해당글에 다운로드부터 설치방법을 자세히 설명하고 있으니 먼저 관련글을 참고해 보세요.
로또를 구입하시는 분들 또는 역대 로또당첨번호를 이용하여 분석하시는 분들에게 도움이 될 수 있는 동행복권 로또번호 불러오는 방법을 지금부터 시작해 볼게요.
동행복권 역대 로또당첨번호 불러오는 내용은 다음과 같습니다.
동행복권 당첨번호 확인
우선 동행복권 사이트를 방문하여 웹 크롤링을 할 건데요 크롤링은 크롬을 통해 개발자도구로 불러올 위치값을 알아볼게요.
동행복권 개발자 도구로 확인해 보니 각 자리별 번호가 'class'로 되어있는데요 이걸 이용하여 한 자리씩 엑셀 셀로 불러오면 될 것 같아요.
(로또 당첨번호 엑셀 VBA 다운로드 안내)
(로또 전체조합 엑셀 VBA 다운로드 안내)
VBA 코드 작성
동행복권에서 불러올 코드를 엑셀 VBA 전체 코드로 작성했는데요 코드에 대한 설명 다음과 같습니다.
전체번호 불러오기 | 1회차씩 불러오기 |
(로또 당첨번호 엑셀 VBA 다운로드 안내)
(로또 전체조합 엑셀 VBA 다운로드 안내)
✅ 전체당첨번호 불러오기
- 변수 선언 : 'xmlhttp'는 웹사이트에 접근하고 정보를 가져오는 데 사용되는 객체인데요 'htmlDoc'는 웹사이트의 HTML을 분석하는 데 사용되는 객체입니다. 또한 'K회차'는 사용자가 입력한 회차 정보를 저장하는 변수입니다.
- 회차 정보 확인 : 사용자가 엑셀 시트의 “K1” 셀에 회차 정보를 입력했는지 확인해요. 만약 입력하지 않았다면 메시지 박스를 통해 사용자에게 알리도록 되어있습니다.
- 동행복권 사이트 접근 : 'For' 루프를 사용하여 1회부터 사용자가 입력한 회차까지의 당첨번호를 웹사이트에서 가져오는데요 각 회차마다 웹사이트에 접근하여 HTML을 가져오고 그중에서 “ball_645” 클래스를 가진 요소(당첨번호)를 찾습니다.
- 당첨번호 불러오기 : 찾은 당첨번호를 엑셀 시트 A:2부터 순차적으로 불러오는데요 각 회차의 당첨번호는 해당 회차의 행에 기록되며 각 번호는 별도의 열에 기록됩니다.
- 불러오기 완료 : 모든 회차의 당첨번호를 가져온 후에는 팝업 문구로 작업이 완료되었음을 사용자에게 알립니다.
✅ 1 회차씩 불러오기
1 회차씩 1 회차씩 불러오기는 '전체당첨번호' 코드를 1 회차씩만 불어올 수 있도록 했는데요 기본 베이스 코드를 응용한 것으로 별도 설명은 하지 않을게요.
위 코드는 웹 크롤링인데요 웹 사이트의 구조에 따라 결과가 달라질 수 있으므로 웹사이트가 변경되면 본 코드도 그에 맞게 수정해야 해요. 이번 코드도 동행복권 사이트가 리뉴얼되면서 변경한 코드인데요 한번 리뉴얼되면 오래 유지되니 마음 놓으셔도 될 것 같아요.
오늘은 동행복권 로또 역대 회차별 당첨번호 조회 및 엑셀 VBA로 불러오는 것까지 알아봤는데요 불러오는 순서는 1회 차부터 아래로 불러오게 됩니다. '홈 → 정렬 및 필터 → 내림차순(오름차순)' 정렬 또는 필터를 이용하여 필요하신 부분을 이용하시길 바랍니다.
>> 함께 보면 좋은 글