VBA / 웹브라우저 연동 작업 시 오류 및 기능 추가 문의 드립니다.

VBA
작성자
맹추
작성일
2022-11-11 11:28
조회
50
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : VBA / 웹브라우저 연동 작업 시 발생하는 오류 처리 및 검색하고자 하는 정보값이 없을 시 공란으로 둘 수 있는 방법

안녕하세요. 오빠두엑셀에서 도움을 많이 받고 있는 초보 VBA 유저 입니다.

 

다음과 같이 VBA를 활용하여 인터넷 브라우저(익스플로러) 연동하여 데이터를 검색 하고 결과값을 입력해주는 매크로를

구현하고 있습니다.

*회사 보안프로그램으로 이미지 업로드가 되지 않아 표로 붙여넣었고, 파일로 첨부 합니다..!

구분 B/L 번호 진행상태 통관진행상태 (수동)진행상태 (수동)통관진행상태
1 NAM5678336 입항적하목록 정정 승인 수입신고전 입항적하목록 정정 승인 수입신고전
2 ONEYRICCHM666300 검사/검역 식품의약품(합격) 수입신고전 검사/검역 식품의약품(합격) 수입신고전
3 OOLU2704519960 검사/검역 식품의약품(합격) 수입신고전 검사/검역 식품의약품(합격) 수입신고전
4 HDMUDALA76712000 검사/검역 동물검역(합격) 수입신고전 검사/검역 동물검역(합격) 수입신고전
5 MEDUU6859588 검사/검역 동물검역(합격) 수입신고전 검색결과 없음 검색결과 없음
6 MEDUU6316613 검사/검역 동물검역(합격) 수입신고전 검사/검역 동물검역(합격) 수입신고전
7 검사/검역 동물검역(합격) 수입신고전
8 검사/검역 동물검역(합격) 수입신고전
9 ONEYRICCJR657800 검사/검역 동물검역(합격) 수입신고전 검색결과 없음 검색결과 없음
10 MEDUD6353061 검사/검역 동물검역(합격) 수입신고전 검색결과 없음 검색결과 없음
11 HDMUDALA68372000 검사/검역 동물검역(합격) 수입신고전 검색결과 없음 검색결과 없음
12 NAM5700516 검사/검역 동물검역(합격) 수입신고전 검사/검역 동물검역(합격) 수입신고전

 

B/L 번호로 검색하여 진행상태와 통관진행상태에 결과값을 넣어 주는 방식으로 익스플로러와의 연동은 완료 하였으나

몇가지 오류가 발생하여 질문을 드려봅니다.

진행상태, 통관진행상태 는 매크로를 실행시켜서 나온 값이며

(수동)진행상태, (수동)통관진행상태 는 매크로를 사용하지 않고 수동으로 검색해서 붙여넣은 값 입니다.(맞는 값)

 

1. 첫번째 B/L 번호 칸(C3)이 빈칸 이거나 검색 결과가 나오지 않을 때(입항 전) 오류가 나지 않고 넘어갈 수 있는 방법

2. B/L번호 열(C열)이 빈칸일 때 검색 프로세스를 진행하지 않고 빈칸으로 두는 방법(구분 7번과 8번의 경우, 현재는 바로 위 셀의 값을 따라오게 됨)

3. 5번과 같이 실제로는 검색결과없음(입항 전)일 때에는 뒤의 H B/L로 한번 더 검색하고 그래도 빈칸일 시 빈칸으로 두고 다음 작업으로 넘어가는 방법(현재는 구분 5, 9, 10, 11번과 같이 M B/L 검색 결과가 없을 시 바로 위 셀의 값을 따라오게 됨. 참고로 H B/L 검색 창 주소 id : MYC0405101Q_hblNoTab1)

  • 아래부터는 작성한 코드 입니다.(작업중인 파일 첨부도 하였습니다.)

Sub 수입진행상태_확인()

Dim ie As InternetExplorer

Dim URL As String

Set ie = CreateObject("internetExplorer.Application")

ie.Navigate "https://unipass.customs.go.kr/csp/index.do?tgMenuId=MYC_MNU_00000450"

ie.Visible = True

ie.Width = 1500

ie.Height = 800

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

DoEvents

Loop

For i = 3 To Cells(Rows.Count, 3).End(3).Row

'' 빈 셀은 작업 하지 않는 것에 대해서 시도 하였으나 빈 셀에 대해서만 작업하고 첫 행의 값으로만 복사 됨

' If IsEmpty(Cells(i, 3)) Then
' Cells(i, 4).Value = ""
' Cells(i, 5).Value = ""
'
' End If

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

ie.Document.getElementByid("MYC0405101Q_mblNoTab1").Value = Range("C" & i)

ie.Document.getElementByid("MYC0405101Q_searchBtnTab1").Click

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

Range("D" & i) = ie.Document.getElementByid("MYC0405102Q_prgsStts").innerHTML

Range("E" & i) = ie.Document.getElementByid("MYC0405102Q_csclPrgsStts").innerHTML

Next i

ie.Quit

Set ie = Nothing

End Sub

 

 

 

↓아래 이미치처럼 검색 시 진행상태 , 통관진행상태 두가지 값을 가져오고 있습니다.

엑셀-질문-이미지2.JPG

스크랩
공유
회원등급 : 2레벨
포인트 : 56 EP
총질문 : 3 개 (마감율 : 33%)
채택답변 : 0 개
전체 2

  • 2022-11-11 14:05

    @맹추 님 조회가 실패하거나 했을 때 어떻게 되는지 확인하시고,

    M B/L 라디오 버튼은 선택하지 않아도 문제 없을까요?


    • 2022-11-11 16:57

      @원조백수 님 조회가 실패 했을때는 유니패스 사이트 검색 결과에 '조회결과가 존재하지 않습니다.' 라고 나옵니다.

      익스플로러 개발 도구에서의 해당 값의 좌표를 조회해보니 아래와 같았습니다.

      <td colspan="8">조회결과가 존재하지 않습니다.</td>

      따라서 이런 형태가 되어야 할 것으로 생각 했습니다.

      M B/L 검색 결과 <td colspan="8">조회결과가 존재하지 않습니다.</td> 일때 MYC0405101Q_hblNoTab1(H B/L 검색 창) 에 검색 수행. 결과 값이 있다면 값을 가져오며, 동일하게 <td colspan="8">조회결과가 존재하지 않습니다.</td> 인 경우에는 ""(빈칸)

       

      라디오 버튼 관련해서는 제가 설정한 사이트 주소인

      https://unipass.customs.go.kr/csp/index.do?tgMenuId=MYC_MNU_00000450

      에서는 디폴트 값으로 M/BL - H/BL 에 선택이 되어 있어 선택은 하지 않아도 될 것으로 보입니다.


전체 8,509
번호 카테고리 제목 작성자 작성일 추천 조회
알림
「🎉 올해의 책 투표」 '진짜쓰는 실무엑셀' 이 후보에 선정되었습니다! (👉깜짝 이벤트) (51)
오빠두엑셀 | 2022.11.07 | 추천 23 | 조회 7874
오빠두엑셀 2022.11.07 23 7874
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (105)
오빠두엑셀 | 2021.10.28 | 추천 135 | 조회 8506
오빠두엑셀 2021.10.28 135 8506
44962 함수/공식
New 누적 합계 구하기 함수 관련 엑셀파일
짱구 | 20:15 | 추천 0 | 조회 4
짱구 20:15 - 4
44959 함수/공식
New 안녕하세요! 엑셀 뉴비, 고수분들께 도움을 구하고자 합니다 ㅠㅠ 엑셀파일첨부파일 (1)
U_ho | 18:45 | 추천 0 | 조회 12
U_ho 18:45 - 12
44956 함수/공식
New 고수님들 도와주세요 (1)
LUKE. | 17:58 | 추천 0 | 조회 14
LUKE. 17:58 - 14
44955 함수/공식
New 따로 수정이나 새로고침 하지않아도 실시간으로 계산값이 변경되는 날짜계산기 (2)
KangU | 17:45 | 추천 0 | 조회 17
KangU 17:45 - 17
44953 함수/공식
New 엑셀 날짜 함수 사용시 날짜 표시 안되는 이슈 첨부파일 (2)
junee562 | 16:59 | 추천 0 | 조회 17
junee562 16:59 - 17
44950 함수/공식
New vlookup을 활용한 여러 조건 시 결과값을 불러오고 싶습니다. 엑셀파일 (1)
DBOX | 16:50 | 추천 0 | 조회 24
DBOX 16:50 - 24
44946 함수/공식
New 정산금액을 공문에 참조하려고 하는데 n/a가 뜹니다. 엑셀파일 (3)
야근쟁이 | 16:17 | 추천 0 | 조회 21
야근쟁이 16:17 - 21
44941 함수/공식
New COUNT 함수 관련 2가지 조건의 수를 구하고 싶습니다. 첨부파일 (2) 답변완료
2039290jf1 | 14:11 | 추천 0 | 조회 24
2039290jf1 14:11 - 24
44940 VBA
New 엑셀 매크로 AutoFill 관련 문의 (1)
원더우먼 | 12:53 | 추천 0 | 조회 29
원더우먼 12:53 - 29
44938 기능/도구
New 온라인그림 선택이 안되요. 첨부파일 (1)
굿걸♡ | 11:57 | 추천 0 | 조회 21
굿걸♡ 11:57 - 21
44937 함수/공식
New 다중조건 if 관련 문의 (2) 답변완료
지도현 | 11:50 | 추천 0 | 조회 37
지도현 11:50 - 37
44935 함수/공식
New 엑셀 2007,2010 오프라인 도움말파일 구해요
나야 | 11:41 | 추천 0 | 조회 19
나야 11:41 - 19
44932 VBA
New VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기 (1)
고바마 | 11:02 | 추천 0 | 조회 34
고바마 11:02 - 34
44930 VBA
New vba를 이용하여 수식 결과값 추출 시트를 만들고 싶습니다. 첨부파일 (1)
코모 | 10:26 | 추천 0 | 조회 42
코모 10:26 - 42
44929 함수/공식
New [관심]!!경우의수 적용하여, 값 판단법 좀 알려주세요..ㅜ 엑셀파일첨부파일 (5)
ak스타 | 10:22 | 추천 0 | 조회 28
ak스타 10:22 - 28
44927 함수/공식
New 다중 sumifs 기타 값 계산 엑셀파일첨부파일 (3) 답변완료
선크 | 10:18 | 추천 0 | 조회 32
선크 10:18 - 32
44915 VBA
New 괄호안의 숫자 합계 구하기 VBA 또는 수식 엑셀파일첨부파일 (4) 답변완료
007 | 2022.11.27 | 추천 0 | 조회 62
007 2022.11.27 - 62
44913 함수/공식
New 함수 결과값이 이상합니다 첨부파일 (1)
엄기용 | 2022.11.27 | 추천 0 | 조회 31
엄기용 2022.11.27 - 31
44907 함수/공식
New 시간만 구하는 방법.. 첨부파일 (3)
candle0723 | 2022.11.27 | 추천 0 | 조회 36
candle0723 2022.11.27 - 36
44904 문서서식
New 표시형식 문의 드립니다 (1)
거꾸로문 | 2022.11.26 | 추천 0 | 조회 29
거꾸로문 2022.11.26 - 29
44901 VBA
New 안녕하세요. vba로 단위 변환 질문드립니다.
Jes | 2022.11.26 | 추천 0 | 조회 38
Jes 2022.11.26 - 38
44899 차트/그래프
New 슬라이서 서식을 변경 한 후, 다른 엑셀 파일에서도 사용할 수 있는 방법이 있을까요?
twou**** | 2022.11.26 | 추천 0 | 조회 27
twou**** 2022.11.26 - 27
44896 VBA
New 여러 문자들 중 참조 문자에 있는 값 찾기 vba 엑셀파일첨부파일 (4)
007 | 2022.11.26 | 추천 0 | 조회 61
007 2022.11.26 - 61
44892 기능/도구
New 필터랑 행 숨기기 된 상태에서 자동채우기 안 되나요?
오리파 | 2022.11.25 | 추천 0 | 조회 25
오리파 2022.11.25 - 25
44887 함수/공식
New 다중조건을 만족하는 여러개의 값 구하는 함수식 문의드립니다. (1)
함수시르미 | 2022.11.25 | 추천 0 | 조회 53
함수시르미 2022.11.25 - 53
44886 VBA
New 엑세스 및 엑셀 연동 VBA INSERT구문 질문 엑셀파일
H.B | 2022.11.25 | 추천 0 | 조회 33
H.B 2022.11.25 - 33
44885 함수/공식
New 엑셀로 전투 시뮬레이션을 만들 수 있을까요? (3)
네버 | 2022.11.25 | 추천 0 | 조회 56
네버 2022.11.25 - 56
44881 VBA
New VBA 링크 설정시 현재시트로 설정하는법 첨부파일 (2)
엑셀왕이될거야22 | 2022.11.25 | 추천 0 | 조회 31
엑셀왕이될거야22 2022.11.25 - 31
44878 함수/공식
New 인덱스 매치 시 범위 합계구하기 엑셀파일 (3) 답변완료
야근쟁이 | 2022.11.25 | 추천 0 | 조회 47
야근쟁이 2022.11.25 - 47
44877 함수/공식
New 조건1,조건2를 만족할때 결과값을 가지고 오는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 52
보연아빠 2022.11.25 - 52