웹사이트 파일 다운로드 매크로

VBA
작성자
fureu
작성일
2020-03-29 17:03
조회
2039

안녕하세요.

제가 엑셀 초보여서 여쭤보고 싶은게 있는데요,

최근 VBA 를 사용해서 크롤링을 조금 알게되었는데

제가 영어 공부를 하고 있는데 forvo.com 이란 웹사이트에 접속 하면

원어민이 올린 단어별 발음을 mp3로 다운 받을 수 있어서 이용중인데요.

엑셀 파일에 영어 단어를 열로 정리 해 두고 (A열) 파일 받는 웹과 HTML값까지 구해왔는데,

VBA에 .Click을 이용해서 mp3파일 다운로드 코드를 쓰는게 가능할까요?

 

Sub GetFile()

Dim ie As InternetExplorer
Dim strURL As String
Dim i As Integer
Dim ele As IHTMLElement
Dim iframeDoc As IHTMLDocument

For i = 2 To 100

Set ie = CreateObject("InternetExplorer.application")
strURL = "https://forvo.com/word/" & Range("A" & i) & "/#en"
ie.Navigate strURL
ie.Visible = False


' Range에 단어 값을 넣음

Do While (ie.ReadyState <> READYSTATE_COMPLETE Or ie.Busy = True)
DoEvents
Loop

Application.Wait (Now + TimeValue("00:00:02"))

If IsObject(ie.Document.getElementsByClassName("ofLink statusGrey")) Then
ie.Document.getElementsByClassName("ofLink statusGrey")(0).Click
End If

       
ie.Quit
Set ie = Nothing

Next i

End Sub

일단 이렇게 써보긴 했는데요..
런타임 에러 '-2147467259 (80004005)'
Automation error
Unspecified error
라고 뜨네요 ㅠㅠ
솔루션이 있을까요? 부탁드립니다
회원등급 : 2레벨
포인트 : 57 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 2

  • 2020-03-31 10:59

    안녕하세요~^_^
    적어주신 링크 확인해보니, ofLink statusGrey 클래스는 on Click 이벤트가 없습니다.
    따라서 Automation 오류가 발생한 것인데요.
    'play' 클래스 개체를 찾아 click 하도록 명령문을 수정해보시겠어요?^^
    제 답변이 도움이 되셨길 바랍니다.
    감사합니다.

    영어-발음-파일-다운로드.png


  • 2020-11-19 20:32

    흠 어려워요ㅜㅠㅠㅠ


전체 4,619
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (8)
오빠두엑셀 | 2021.10.28 | 추천 12 | 조회 643
트로피 오빠두엑셀 2021.10.28 12 643
24053 파워쿼리/피벗
New 엑셀 배열 순서를 바꾸고 싶습니다. 첨부파일
jyj6**** | 10:04 | 추천 1 | 조회 18
jyj6**** 10:04 1 18
VBA
New Re:엑셀 배열 순서를 바꾸고 싶습니다.
Yukon | 13:01 | 추천 0 | 조회 10
Yukon 13:01 0 10
24048 VBA
New 재고관리 툴 만들기 질문이요 첨부파일 (2)
선물 | 2021.11.26 | 추천 0 | 조회 26
선물 2021.11.26 0 26
24046 함수/공식
New 날짜별로 근태 정리를 하려면 어떻게 해야할까요 첨부파일 (2)
ㅁㅁㅁㅁㅁ | 2021.11.26 | 추천 0 | 조회 33
ㅁㅁㅁㅁㅁ 2021.11.26 0 33
24042 VBA
New 한 코드를 가진 사람의 계약일자 최소값 최대값 구하기 첨부파일
seorin | 2021.11.26 | 추천 0 | 조회 23
seorin 2021.11.26 0 23
24039 함수/공식
New 다중 조건 및 가장 낮은 일시에 매칭되는 값 불러오기 첨부파일 (6)
감사하모니카 | 2021.11.26 | 추천 0 | 조회 27
감사하모니카 2021.11.26 0 27
24038 VBA
New ZAN IMAGE PRINTER 프로그램에서 JPG 파일명을 내 마음대로 (2)
goodman | 2021.11.26 | 추천 0 | 조회 20
goodman 2021.11.26 0 20
24033 문서서식
New 조건부 서식 특정열 단어포함시 해당 행의 서식 변경 방법 첨부파일 (2) 답변완료
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 25
아빠의꿈 2021.11.26 0 25
24032 함수/공식
New 함수 초보 질문있습니다. (2) 답변완료
윤태종 | 2021.11.26 | 추천 0 | 조회 26
윤태종 2021.11.26 0 26
24029 VBA
New 엑셀로그인 프로그램 사용자 개인별 시트만 보이게 하는 방법 첨부파일 (1)
엑셀이 | 2021.11.26 | 추천 0 | 조회 24
엑셀이 2021.11.26 0 24
24014 VBA
New Private Sub Worksheet_Change(ByVal Target As Range) 조건문의 (1)
yg | 2021.11.26 | 추천 1 | 조회 30
yg 2021.11.26 1 30
24011 VBA
New vba 고급필터후 인쇄 자동화 첨부파일 (1)
naver_6180ef1e63220 | 2021.11.26 | 추천 0 | 조회 32
naver_6180ef1e63220 2021.11.26 0 32
24010 문서서식
New 양이 많은 '병합하고 가운데 맞춤 '버튼을 눌러서 할일을 쉽게 하는방법 첨부파일 (3)
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 40
아빠의꿈 2021.11.26 0 40
24009 함수/공식
New 오빠두 강의 중 마지막셀 이동에 관하여 질문드립니다. (MATCH함수) (2)
월마리아 | 2021.11.25 | 추천 0 | 조회 32
월마리아 2021.11.25 0 32
24006 함수/공식
New 조건부 서식 함수 첨부파일 (1)
AFOPWEOI1213 | 2021.11.25 | 추천 -1 | 조회 40
AFOPWEOI1213 2021.11.25 -1 40
24005 파워쿼리/피벗
New 파워쿼리에서 다중조건 평균구하기 (1)
황선규 | 2021.11.25 | 추천 0 | 조회 24
황선규 2021.11.25 0 24
24002 기능/도구
New 엑셀 요 기능 이름이 뭐죠?ㅜㅜ (2) 답변완료
냥냥 | 2021.11.25 | 추천 0 | 조회 35
냥냥 2021.11.25 0 35
24000 함수/공식
New 조건부서식에서 배열수식이 입력가능한가요? (2) 답변완료
무케 | 2021.11.25 | 추천 0 | 조회 33
무케 2021.11.25 0 33
23998 VBA
New Auto_open / Auto_close에서 프로젝트나 라이브러리를 찾을수없습니다. 문제.... 아시는분 (1) 답변완료
카이로젠 | 2021.11.25 | 추천 0 | 조회 22
카이로젠 2021.11.25 0 22
23996 기능/도구
New 제품명 일괄 수정방법 (2) 답변완료
태환11 | 2021.11.25 | 추천 0 | 조회 35
태환11 2021.11.25 0 35
23995 함수/공식
New 해찾기 문제 관련, 전체 양은 10kg은 채우되, 목표 함량을 충족하고 가장 저렴한 방법 찾기..? 첨부파일 (5)
맞장구침 | 2021.11.25 | 추천 0 | 조회 32
맞장구침 2021.11.25 0 32
23991 VBA
New function결과값 외에도 그 안의 값을 다른셀에 입력하고싶습니다 (1)
오리22 | 2021.11.25 | 추천 0 | 조회 20
오리22 2021.11.25 0 20
23990 함수/공식
New or 함수 문의드립니다. (3) 답변완료
무케 | 2021.11.25 | 추천 0 | 조회 31
무케 2021.11.25 0 31
23985 VBA
New 개인용매크로 관련문의입니다. (4) 답변완료
무케 | 2021.11.25 | 추천 0 | 조회 37
무케 2021.11.25 0 37
23980 함수/공식
New 함수문의 드립니다 (5) 답변완료
제이올라 | 2021.11.25 | 추천 0 | 조회 36
제이올라 2021.11.25 0 36
23977 VBA
New 중복행 데이터 입력, 통합 관련 문의드립니다. 첨부파일 (4) 답변완료
케빈 | 2021.11.25 | 추천 0 | 조회 33
케빈 2021.11.25 0 33
23976 VBA
New QR코드 생성후 인식 오류 첨부파일 (1)
빡군 | 2021.11.25 | 추천 0 | 조회 19
빡군 2021.11.25 0 19
23975 함수/공식
New if함수 날짜 문제 관련 첨부파일 (2) 답변완료
이선미 | 2021.11.25 | 추천 0 | 조회 28
이선미 2021.11.25 0 28
23973 함수/공식
New 분할 입고 일정 (첫 입고일/마지막 입고일 요약) 첨부파일 (2)
Gina (배진화/우준 & 지오 맘) | 2021.11.25 | 추천 0 | 조회 27
Gina (배진화/우준 & 지오 맘) 2021.11.25 0 27
23969 VBA
New VBA를 활용하여 hwp 테이블에 삽입하기 (2) 답변완료
Han | 2021.11.25 | 추천 0 | 조회 27
Han 2021.11.25 0 27
23967 함수/공식
New 다중조건 출력 (INDEX & MATCH로는 한계가 있는듯 합니다.) 첨부파일 (1)
얌쫑 | 2021.11.25 | 추천 1 | 조회 46
얌쫑 2021.11.25 1 46