IE 엑셀 첨부파일 실행 및 기타 사항 문의 드립니다.

VBA
작성자
digi****
작성일
2020-10-03 06:59
조회
51
수고 많으십니다. 유튜브에서 크롤링 영상에서부터 시작해서 다양한 영상을 잘 이용하여 매크로를 작성하던 중 진행되지 않는 부분이 있어 질문 드립니다~혹시나 기존에 설명된 자료가 있으면 해당 링크만 달아주셔도 감사할듯합니다.

현재 IE에서 엑셀 첨부파일을 열고, 해당 첨부파일 내 데이터를 자동으로 수집하여 그래프로 조회하는 VBA를 만들고 있습니다.

아래 노란색 칠한 부분까지가 VBA 실행 시 해당 주소로 들어가서, 다운로드 버튼을 클릭한 후, Alt+N을 눌러 "OlddailyReportHitory.xls을(를) 열거나 저장하시겠습니까?" 대화상자의 "열기(O)" 칸 선택 후, 엔터키를 눌러 첨부파일을 여는것 까지입니다. 노란색 이후로는 첨부파일 내 필요한 데이터가 있는 부분을 복사하여 기존 엑셀에 넣고 그래프를 그리게 하는 코드입니다.
  1. 메인 질문) 엔터키를 누르면 "OlddailyReportHitory.xls" 이름의 첨부파일이 열리게 하고 싶은데, 해당 파일이 로드가 되질 않는지 런타임 오류 메세지가 나온 후 디버깅 시 항상 노란색 부분에서 걸립니다. (오류 메세지 상자에서 디버그 또는 종료를 누르는 순간 첨부파일이 열립니다.)  첨부파일이 열려 있는 상태에서는 노란색 부분부터 코드 진행을 시키면 이후 과정은 잘 진행 되는데, 제가 짠 코드에서는 엔터키가 입력되긴 하지만, 첨부파일 로드는 되지 않은 상태에서 해당 OlddailyReportHitory.xls 파일 화면을 활성화 시키라는 명령이 먼저 진행되어 오류가 나는듯힙니다. 시간이 부족한가 싶어 Application.Wait DateAdd("s",1,Now)을 이용하여 시간을 늘려도 봤지만 그 시간 동안 첨부파일이 로드 되는게 아니라 아무 작업이 없다가 해당 시간 후에 똑같은 부분에서 같은 오류가 발생합니다. 어떻게 조치해야 할까요?
2. 혹시 1초씩 기다리며 ALT+N 후 Enter키 입력하는 방법 말고는 첨부파일을 로드하는 좀 더 효과적인 방법이 없을까요?

3. 시간 단축을 위해서 ie.Visible=False 상태에서 진행하는 방법은 없을까요? False로 하니 ALT+N 후 Enter키 입력하는 방식으로는 진행이 안 되더라구요.

 

현재까지 작성한 코드는 아래와 같습니다.

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Sub 링크1( )

Dim ie As InternetExplorer

Dim ele As IHTMLElement

Dul url As String

Dim introw As Integer

 

Set ie=CreateObject("internetexplorer.application")

ie.Visible=True

url="http~"

ie.navigate url

Do While(ie.readyState <> READYSTATE_COMPLETE Or ie.Busy=True)

DoEvents

Loop

 

For Each ele in ie.document.getElementsByClassName("btn_blue")

ie.document.getElementsByClassName("ico ico_exel mgr5")(0).click

Next ele

 

Apllication.Wait Dateadd("s",1,Now)

Application.Sendkeys "&n"

 

Application.Wait DateAdd("s",1,Now)

Application.Sendkeys "~",

 

Application.Wait DateAdd("s",1,Now)

Sheets("데이터").Select

Range("A3:G10000").Select

Selection.ClearContents

 

Windows("OlddailyReportHistory.xls").Activate

Columns("H:K").Select

Selection.Copy

Windows("트랜드조회시스템.xlsm").Activate

Columns("A:D").Select

ActiveSheet.Paste

 

Introw = Range("a10000").End(xlUp).Row

 

Range("E2:G2).Select

Rnage("G2").Activate

Application.CutCopyMode = False

Selection.Autofill Destination:=Range(Cells(2,5), Cells(Introw,7))

Range("H2").Select

 

End Sub
전체 3

  • 2020-10-03 18:16

    .Activate 는 객체가 Open된 이후 사용할 수 있습니다.

    먼저 객체를 열면 오류는 해결될 듯 싶습니다.
    아래 세 줄을 오류가 발생한 앞 줄에 삽입해 보시죠.

    Workbooks.Open ThisWorkbook.Path & "\" & "OlddailyReportHistory.xls"
    Activewindow.WindowState = xlMinimized
    ThisWorkbook.Activate

     


    • 2020-10-04 07:52

      답변 감사드립니다.

      말씀해주신 대로 조치해보았으나 아래와 같은 메세지가 출력되네요ㅠㅠ

      '1004'런타임 오류가 발생하였습니다.

      'C:\USER\Desktop\제이름/OlddailyReportHistory.xls'을(를) 찾을 수 없습니다. 파일의 이름이 변경되었거나 파일이 이동 또는 삭제되지 않았는지 확인하세요.


    • 2020-10-04 08:36

      열고자 하는 파일의 위치는
      위의 소스코드를 포함하고 있는 엑셀파일이 있는 위치에 있어야 합니다.
      그리고, 엑셀파일의 확장자를 정확하게 넣여야 합니다.

      Workbooks.Open ThisWorkbook.Path & "\" & "OlddailyReportHistory.xls"

      ============               ================
      물리적인 파일경로               정확한 파일명

       

       


      전체 1,328
      번호 카테고리제목작성자작성일추천조회
      1323 차트/그래프
      New 연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
      윤사슴 | 16:23 | 추천 0 | 조회 11
      윤사슴16:23011
      1322 기능/도구
      New 조건부서식 아이콘표시 문의 첨부파일 (3)
      글래스 | 15:06 | 추천 0 | 조회 16
      글래스15:06016
      1321 차트/그래프
      New 선생님.. 첨부파일 (1)
      rpaq**** | 13:32 | 추천 0 | 조회 16
      rpaq****13:32016
      1320 함수/공식
      New 다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
      Fund 꿈전사 | 11:53 | 추천 0 | 조회 14
      Fund 꿈전사11:53014
      1319 문서서식
      New 원하는 프르그렘 엑셀 유료 제작도 해주시나요? (1)
      Fund 꿈전사 | 11:47 | 추천 0 | 조회 23
      Fund 꿈전사11:47023
      1318 VBA
      New 엑셀에서 아웃룩일정 입력하는 방법에 관한 질문 (2)
      naver_5f8b682a12bb7 | 09:08 | 추천 0 | 조회 17
      naver_5f8b682a12bb709:08017
      1317 문서서식
      New 인쇄물 좌측하단 사용자정보 삭제방법 문의 첨부파일 (2)
      naver_5f8ee15a8602b | 2020.10.20 | 추천 0 | 조회 18
      naver_5f8ee15a8602b2020.10.20018
      1316 함수/공식
      New 재고 중복 차감 되는 문제... 첨부파일 (1)
      skya**** | 2020.10.20 | 추천 0 | 조회 32
      skya****2020.10.20032
      1315 VBA
      New 동일한 이름을 가진 통합 문서를 동시에 열 수 없습니다 첨부파일 (1)
      당신을축복하는올빼미 | 2020.10.20 | 추천 0 | 조회 19
      당신을축복하는올빼미2020.10.20019
      1314 VBA
      New 셀 범위 조건으로 메시지 팝업창 처음 한번만 뜨게 할 수 있나요? (2)
      와따나 | 2020.10.20 | 추천 0 | 조회 28
      와따나2020.10.20028
      1313 함수/공식
      New 공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. 첨부파일 (2)
      casanova | 2020.10.20 | 추천 0 | 조회 28
      casanova2020.10.20028
      1312 기능/도구
      New 다중필터 엑셀 추가기능 (Excel 추가기능 Addin) 설치 파일 좀 보내주실 분;;.. (1)
      쨍하고해뜬오후 | 2020.10.20 | 추천 0 | 조회 17
      쨍하고해뜬오후2020.10.20017
      1311 차트/그래프
      New 선생님... - 엑셀 VBA 차트 계열 색 변경 자동화 매크로 첨부파일 (2)
      rpaq**** | 2020.10.20 | 추천 0 | 조회 25
      rpaq****2020.10.20025
      1310 함수/공식
      New Xlookup 활용 문의 첨부파일 (1)
      K_Division | 2020.10.20 | 추천 0 | 조회 25
      K_Division2020.10.20025
      1309 VBA
      New 여러개의 참조 삽입 방법 (7)
      써머데이즈 | 2020.10.20 | 추천 0 | 조회 24
      써머데이즈2020.10.20024
      1308 함수/공식
      New 엑셀초보입니다. 다른시트 내용을 VLOOKUP을 이용해서 가져오기 ㅠ (2)
      el**** | 2020.10.20 | 추천 0 | 조회 29
      el****2020.10.20029
      1307 함수/공식
      New 서식들어간 일자 concat 조합 첨부파일 (2)
      내뀨바라기 | 2020.10.19 | 추천 0 | 조회 31
      내뀨바라기2020.10.19031
      1306 함수/공식
      New 엑셀초보자입니다. if함수 수식좀 알려주세요... (1)
      이재똥 | 2020.10.19 | 추천 0 | 조회 28
      이재똥2020.10.19028
      1305 함수/공식
      New 안녕하세요 if함수 질문있습니다. (2)
      glass | 2020.10.19 | 추천 0 | 조회 23
      glass2020.10.19023
      1304 VBA
      New 안녕하세요 vba 크롤링 질문드립니다. (1)
      jaebe**** | 2020.10.19 | 추천 0 | 조회 25
      jaebe****2020.10.19025
      1303 함수/공식
      New 동일한 이벤트 가 발생한 기간을 표시하는 함수 구하는 방법 질문드립니다. 첨부파일 (6)
      몽골리용 | 2020.10.19 | 추천 1 | 조회 44
      몽골리용2020.10.19144
      1302 VBA
      New VBA를 이용하여 CSV 데이터를 정해진 서식에 입력할때의 방식 질문 (4)
      dpd**** | 2020.10.19 | 추천 0 | 조회 28
      dpd****2020.10.19028
      1301 문서서식
      New 조건부 서식으로 일치하지 않는 셀의 텍스트색 변환 (2)
      Border | 2020.10.19 | 추천 0 | 조회 33
      Border2020.10.19033
      1300 함수/공식
      New 선배님들 제발 도와주십시요.. 첨부파일 (2)
      장전동오니기리 | 2020.10.18 | 추천 0 | 조회 66
      장전동오니기리2020.10.18066
      1299 함수/공식
      원데이터에서 다중조건을 추출해서 평균을 구하는 함수는 어떻게 써야하나요? 첨부파일 (3)
      2020WorldChampionLAD | 2020.10.17 | 추천 0 | 조회 55
      2020WorldChampionLAD2020.10.17055
      1298 함수/공식
      방대한 데이터 정리 문의 드립니다! (3)
      포뇨 | 2020.10.17 | 추천 0 | 조회 65
      포뇨2020.10.17065
      1297 함수/공식
      일정관리 불러오는 함수 첨부파일 (6)
      오제 경기의왕 | 2020.10.16 | 추천 0 | 조회 74
      오제 경기의왕2020.10.16074
      1296 피벗테이블
      공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. (1)
      casanova | 2020.10.16 | 추천 0 | 조회 60
      casanova2020.10.16060
      1295 차트/그래프
      오빠두엑셀 선생님 질문드립니다. 첨부파일 (1)
      rpaq**** | 2020.10.15 | 추천 0 | 조회 73
      rpaq****2020.10.15073
      1294 VBA
      참조 셀 추가 (1)
      써머데이즈 | 2020.10.15 | 추천 0 | 조회 51
      써머데이즈2020.10.15051