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

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

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

구현하고 있습니다.

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

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

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