셀레니움 브라우저선택하기

AppActivate Application.Caption으로 브라우저에서 엑셀이 선택되면서Application.SendKeys들이 엑셀창에서 실행됩니다.

다시 브라우저로 돌아갈려면 어떻게 해야할까요?

브라우저 종류후 재실행하면 시간이 더 걸립니다.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim blnX As Boolean

Sub Stop_()
blnX = True
End Sub

Sub 조회()
Dim Egb As New Selenium.WebDriver
Dim ele As WebElement
Dim count As Integer
' Dim Keys As New Selenium.Keys
Dim rAry As Range
Dim k As Long
Dim i As Integer
Dim j As Integer
Dim iTime As Integer
Dim a As Variant
Dim iR As Integer, iC As Integer, iOff As Integer

blnX = False
On Error GoTo g1
Application.Calculation = xlCalculationManual '수동
' Egb.AddArgument ("headless") '숨기기

Egb.Start "Chrome"
Egb.Wait (2000)
Egb.Get "http://kras.gwangju.go.kr/land_info/info/landprice/landprice.do" '광주

For i = Range("q3") To Range("r3")
If blnX = True Then End
Egb.FindElementByCss("select[name='sggnm']").SendKeys Range("a" & i) '구
Egb.Wait (500)
Egb.FindElementByCss("select[name='umdnm']").SendKeys Range("b" & i) '동
Egb.Wait (500)

Egb.FindElementByCss("input[title='본번']").SendKeys Range("c" & i) '본번

Egb.Wait (500)
Application.SendKeys "{tab}" '부번선택
Egb.SendKeys Range("d" & i) '부번입력
Egb.Wait (500)
Application.SendKeys "{tab}" '입력선택
Egb.Wait (500)
SendKeys "{enter}", True '입력누름
'Egb.FindElementByCss("element_test").SendKeys Keys.Enter '//Keys.TAB, Keys.CONTROL, "v"
Egb.Wait (2000)

For Each td In Egb.FindElementsByCss(".table0202 tr:nth-of-type(2) td")
Cells(i, u + 5) = td.Text
u = u + 1
Next
u = 0
Egb.Wait (1000)

Egb.FindElementByCss("input[title='본번']").Clear '자료삭제
Egb.Wait (500)
Application.SendKeys "{tab}" '부번선택
Egb.Wait (500)
Application.SendKeys "{bs}" '부번삭제
Egb.Wait (500)
Application.SendKeys "{bs}" '부번삭제
AppActivate Application.Caption'엑셀창
DoEvents
Next

Egb.Close
Set Egb = Nothing
g1:

Application.Calculation = xlCalculationAutomatic '자동
End Sub