VBA 크롤링 속도를 어떻게 빠르게 할까? 잘보세요^^

No video

VBA 크롤링 속도를 어떻게 빠르게 할까? 잘보세요^^

Рет қаралды 12,911

Күн бұрын

안녕하세요 엑사남입니다.
오늘은 크롤링 두번째 강의 입니다.
실습파일 다운로드 링크
drive.google.c...
크롤링 전 명심해야 할 부분은
크롤링이 허용된 기본적인 데이터만을 크롤링해야 합니다.
만약 크롤링이 허용되지 않은 지적재산권인 데이터를
개인의 사익을 위해서 사용한다면
여러가지 문제가 발생 할 수 있으니
크롤링 전 꼭 신중하게 생각하시고 !주의! 하세요
이전 시간에는 internet explorer 를 사용한 크롤링을 배웠고요
이번 시간에는 xmlHttp 를 사용한 크롤링을 배워볼거에요

Пікірлер: 55

@user-nd9ch6hr8i 3 жыл бұрын

방식이 첫번째 강의보다 더 간단한거 같아요.. 크롤링 강의 속도에 목 말랐었는대 정말 좋은 강의 감사합니다.

@excelloveman-3399 3 жыл бұрын

네 빨라진 대신 제약도 있습니다 필요에 맞게 사용하세요

@user-ig9jb5ut6s 3 жыл бұрын

항상 좋은 강의 너무감사드립니다. 정말 어디에도 없는 명강의 입니다. 화이팅 입니다~^^

@excelloveman-3399 3 жыл бұрын

감사합니다 ^^

@PARK-px3rl 3 жыл бұрын

오늘 강의도 너무 귀한 강의 잘 들었습니다. 다시한번 존경과 감사의 마음을 전합니다. 오픈체팅방에서 소통해주시고 그 소통을 바탕으로 실수할수있는 부분을 강의에 반영해주시는게 느껴집니다. 엑사남님처럼 귀하신 분께서 한명한명 신경써주셔서 감사드리며, 열심히 잘 듣고 잘 성장하겠습니다.

@excelloveman-3399 3 жыл бұрын

감사합니다 모든 분들이 귀하신 분들입니다

@user-ef9kv8vg8e 3 жыл бұрын

코딩 정말 어렵군요, 영상 보고 그대로 따라 하는데도 안되는게 정말 여러번이네요... 컨닝으로 어찌어찌 했는데... 재미와 포기와 여러가지가 지나 갑니다. 이렇게 공부 할 수 있게 되어 감사 합니다.

@vbas9501 2 жыл бұрын

다시봐도 엑사남이 최고!!~~ 감사합니다 ^^

@excelloveman-3399 2 жыл бұрын

다시봐고 쿠키님 감솨^^

@user-gk3sm3mx4t 3 жыл бұрын

너무쉽고 재미있습니다.. 감사합니다.. 건강하세요.

@MrKang846 3 жыл бұрын

리퀘스트 방식은 좀 어렵게 느껴졌었는데, 단번에 이해가 되었습니다. ^^

@excelloveman-3399 3 жыл бұрын

네네 그넘이 그넘입니다

@user-ti5km1kh1n 3 жыл бұрын

바쁘실텐데 상세하게 설명 해주셔서 정말로 감사합니다

@excelloveman-3399 3 жыл бұрын

네 감사합니다

@jeongjaelee9680 3 жыл бұрын

헉 ㅎㅎ 이미... 기존 크롤링 강의 보다 업글이 되었는데, 세번째 강의라니ㅋㅋ 기대됩니다. 궁금한점은 오픈채팅방으로 질문드리겠습니다^^

@excelloveman-3399 3 жыл бұрын

네네 감사합니다 ^^

@Greenteacar Жыл бұрын

엑사남 최고다 ㅠㅠㅠ 사랑해

@gugemike 2 жыл бұрын

강의 항상 감사하게 잘 듣고 있습니다

@smcha9753 2 жыл бұрын

따봉입니다. 최고!!!

@quotient2801 3 жыл бұрын

숙제입니다. For j = 3 To 11 Cells(i, j + 5) = Split(Html.body.getElementsByTagName("DD")(j).innerText," ")(1) Next

@excelloveman-3399 3 жыл бұрын

귯

@user-vc2yv5ef3e 3 жыл бұрын

엑사남님 좋은 강의 감사드리며 질문 하나 해도 될까요?? 강의해주신 내용에서 제가 원하는 날짜의 종목 현재가, 시가, 고가, 저가 등의 data 를 불러오려면 어떤 기능을 찾아야 참고해야 할까요?? 강의해주신 동영상 보면서 네이버 주식의 시세 url 을 찾고 그걸 통해 오늘날짜의 data 를 불러오는 것까지는 어찌저찌 해봤으나 제가 원하는 날짜의 data 를 불러오는 기능에서 막혀 버렸네요ㅡㅜ (예를들어 종목명, 종목코드, 날짜 를 입력하면 그 날짜의 현재가, 시가, 고가, 저가 등등의 data 가 추출되는 식으로요) 혼자서 열심히 찾아보고 책도 사서 봤으나 제 실력이 부족해서인지 도저히 알수가 없네요 바쁘셔서 강의까지 어려우시다면 혹시 어떤 기능을 이용하면 된다 정도라도 힌트를 얻을 수 있을까 싶어 질문글 남기고 가봐요 다시한번 퀄리티 높은 강의 감사합니다~

@user-fx3qj7ml6c 3 жыл бұрын

엑사남님, 정말 고맙고 감사한데요. 저 같은 초짜는 숙제가 너무 어려워요. 정답을 어떻게 알아요? 다른 강의에서도 크롤링을 들어서 쓰고 있는데 너무 느려 터져서 짜증이 많이 나는데 정말 많이 빠르네요. 정답이 알고 싶어요. 그리고 혹시 오픈채팅방은 없나요? 있으면 알려주세요. 감사합니다.

@excelloveman-3399 3 жыл бұрын

안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b

@user-fx3qj7ml6c 3 жыл бұрын

@@excelloveman-3399 감사합니다. 많이 부족한데 잘 봐주세요.

@user-yk2td6ri7x 3 жыл бұрын

4:08 여기부터 본격적인 코드 설명이네요. 그 전은 개념설명!!

@iskim2508 3 жыл бұрын

안녕하세요 크롤링 강의 너무 쉽게 설명해 주셔서 감사합니다. ^^ 한가지 질문이 있습니다. 특정 페이지를 띄운 다음에 검색 창에 검색어를 입력하여 조회를 한 다음 결과를 가져올려면 웹페이지를 꼭 띄워야 하는지요 ? 아니면 현 강의에서 처럼 웹을 띄우지 않고 xmlHTTP 방식으로 검색한 결과를 받아올 수 있는 방법이 있을까요 ? 검토 부탁드립니다. 감사합니다.

@excelloveman-3399 3 жыл бұрын

페이지 마다 다르기때문에 딱히 답변드리기가 어렵습니다

@user-wn1hn9qo8k 3 жыл бұрын

열공❗️❗️

@user-ul9ch8es4e 3 жыл бұрын

크롤링 초보입니다 궁금한점이 있어 문의 드립니다 Winhttp 하고 xmlhttp 무슨 차이가 있나요? 서로 비슷한듯하여 코딩을을해보면 속성 또는 메서드 지원이 안된다며 오류가 뜨던대 어떤 차이점이 있는지요? 서로 장단점은 무었인지도 궁금 합니다 또 xmlhttp에서도 테이블로 구성된 데이터들을 html테이블에 한꺼번에 담아서 가져오는것도 가능한지요?

@user-em3ho5el5z 3 жыл бұрын

오늘도 좋은 강의 감사합니다. 값이 꼭 2번째에 있다는 것을 가정해서는 안된다는 것을 전제하여 칼럼의 값과 동일한 값을 찾고 그 다음 값을 가져오는 것으로 구하였습니다. 질문 하나 드리자면, for each로 배열을 반복할때 현재 반복하고 있는 배열의 위치를 알아볼때에는 어떻게 해야 하나요? 범위는 Row Column으로 현재의 위치를 알 수 있는데 배열은 V(0, 1) 이런식으로 0번째, 1번째 배열이 돌고 있구나 알수 있는 방법이 있을지 궁금합니다. 방법으로 lngTemp를 써서 lngTemp + 1 하여 위치를 찾는 편법을 썼는데 이 방법 외 다른 방법이 있는지 궁금합니다. 또한 다른 객체 예를 들어 도형도 이게 몇번째 도형이다 라는 것을 알 수 있는 방법이 있을까요? Sub Finance_Info() '''' XMLHTTP Dim Http As New XMLHTTP60 Dim Html As New HTMLDocument Dim strURL As String Dim strText As String Dim i, j Dim V If Range("B2") = 0 Then Exit Sub Range("F7").CurrentRegion.Offset(1, 2).ClearContents For i = 8 To Range("B2") + 7 strURL = "finance.naver.com/item/main.nhn?code=" & Range("G" & i) Http.Open "GET", strURL Http.send While Http.readyState READYSTATE_COMPLETE DoEvents Wend Html.body.innerHTML = Http.responseText For j = 3 To 11 V = Split(Html.body.getElementsByTagName("DD")(j).innerText, " ") For l = 0 To UBound(V, 1) If V(l) = Cells(7, j + 5) Then Cells(i, j + 5) = V(l + 1) Exit For End If Next l Next j Next i Set Html = Nothing Set Http = Nothing End Sub

@excelloveman-3399 3 жыл бұрын

편법 아니에요 ㅎㅎ 정석입니다

@user-uf9lz9bj1v 3 жыл бұрын

안녕하세요! 엑사남님! 강의 너무 잘듣고 있습니다. 한 가지 궁금한게 있어서요~ For j = 0 To html.body.getElementsByTagName("DD").Length - 1 Debug.Print html.body.getElementsByTagName("DD")(j).innerText Next j 위와 같이 하면, 직접 실행창에 태그들 내용이 보이는데요. 왜 조사식에서는 계속 컨텍스트에 맞지 않는다고 뜨는지 궁금합니다. 영상중에 말씀하신대로 TagName 과 ("DD") 붙여서 했는데도, 계속 컨텍스트에 맞지 않는다고 떠서요...ㅠ

@excelloveman-3399 3 жыл бұрын

안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b

@user-uf9lz9bj1v 3 жыл бұрын

네 알겠습니다!!