엑셀 버튼 클릭하여 웹브라우저 컨트롤에 웹페이지 띄우기

엑셀의 웹브라우저 컨트롤을 이용하면 제한적이나마 웹브라우저처럼 사용할 수 있다. 버튼을 눌러 매크로를 연결하면 특정 웹페이지를 연결할 수도 있다. 단순히 웹페이지를 띄우는 것이 아닌 자신이 원하는 정보까지 가져올 수 있다. 이것은 VBA 까지 익혀야 하지만, 천천히 익히면 된다.

 

웹페이지 띄우는 순서

엑셀에 웹브라우저 컨트롤을 삽입하고 버튼으로 매크로를 연결하여 웹페이지를 나타내는 순서는 아래와 같다.

1. 엑셀을 실행한다.
2. 자신이 원하는 시트에 웹브라우저 컨트롤을 삽입한다.
3. 버튼을 추가한다.
4. 버튼에 매크로를 추가한다.
5. 매크로에 웹페이지 URL 을 실행하는 코드를 입력한다.
6. 테스트

엑셀 시트에 컨트롤을 추가 삽입한다.

엑셀 시트에 컨트롤을 추가 삽입하는 방법은
엑셀의 상단메뉴에 있는 개발도구 > 삽입 > 컨트롤을 선택해 주면 된다.

버튼은 단추라고 표시되어 있으며 양식 컨트롤에 위치해 있고,
웹브라우저 컨트롤은 ActiveX 컨트롤의 기타 컨트롤에 있다.

이전에 작성한 글을 참고한다.

 

>>> 엑셀 웹브라우저 컨트롤 사용하는 방법 <<<

>>> 엑셀 버튼 매크로 만들기 및 버튼 양식 컨트롤 메시지박스 화면에 나타내기 <<<

매크로 연결하여 웹페이지 띄우기

아래의 코드는 웹브라우저 컨트롤에 cnn 홈페이지를 연결하는 것이다.

엑셀 상단메뉴의 Visual Basic 메뉴를 클릭하면 매크로를 수정할 수 있는 창이 나타난다.

만들어진 버튼은 단추6_Click() 프로시저에 연결되어 있다.

엑셀에 추가된 버튼을 클릭하면 버튼에 연결된 매크로인 단추6_Click() 프로시저가 실행되도록 하였다.

엑셀 Visual Basic 실행하기

엑셀 매크로에 프로시저 작성하기

코드는 아래와 같다.

Sub 단수6_Click() 프로시저와 Wat_Browser 프로시저를 작성하고, 파일을 저장하도록 한다.

Sub 단추6_Click()

    Dim vWebBrowser As InternetExplorer
    
    Set vWebBrowser = Sheet1.WebBrowser1
    
    With vWebBrowser
    
        .Navigate "https://www.cnn.com"
 
        Wait_Browser vWebBrowser
    
    End With
    
End Sub
 
Sub Wait_Browser(Browser As InternetExplorer, Optional t As Integer = 1)
 
    While Browser.Busy Or Browser.ReadyState <> 4
        DoEvents
    Wend
     
    Application.Wait DateAdd("s", t, Now)
 
End Sub

테스트를 해 보자

위와 같이 입력하한 후 버튼을 클릭하면 웹브라우저 컨트롤에 cnn 웹페이지가 나타나는 것을 볼 수 있다.

웹브라우저 컨트롤을 생성하고 .Navigate 를 이용하여 홈페이지를 연결해 주었다.

엑셀 버튼과 웹브라우저 컨트롤