초간단 웹사이트 탐색기 만들기

Step 1: 완성 예 살펴보기

다음 버튼을 클릭하면 대화상자가 나타납니다. 적당한 사이트를 선택하거나 사이트 주소를 입력한 다음 '이동' 버튼을 클릭하면 해당 사이트가 나타납니다. 이번 시간에는 이것을 만들어 보겠습니다.

아이엑셀러

Step 2: 참조 설정하기

VB Editor 상태에서 '도구-참조' 메뉴를 선택합니다. '참조' 대화상자에서 'Microsoft Internet Controls' 항목을 선택하고 '확인' 버튼을 클릭합니다.

아이엑셀러

Step 3: 사용자 정의 폼과 옵션 버튼 코드

'삽입-사용자 정의 폼' 메뉴를 이용하여 사용자 정의 폼을 삽입한 다음, 앞의 '완성 예'와 같은 형태로 필요한 컨트롤을 추가합니다. <Alt+F11> 키를 눌러 VB Editor 상태로 들어가시면 어떤 컨트롤들이 사용되었는지 쉽게 파악할 수 있습니다.

각각의 옵션 버튼을 클릭하고 다음과 같은 코드를 작성합니다.

Private Sub optExceller_Click()
    txtURL.SpecialEffect = fmSpecialEffectFlat
    txtURL = "http://www.iExceller.com"
End Sub

Private Sub optKADO_Click()
    txtURL.SpecialEffect = fmSpecialEffectFlat
    txtURL = "http://www.estudy.or.kr/"
End Sub

Private Sub optOT_Click()
    txtURL.SpecialEffect = fmSpecialEffectFlat
    txtURL = "http://www.officetutor.com"
End Sub

Private Sub optSDS_Click()
    txtURL.SpecialEffect = fmSpecialEffectFlat
    txtURL = "http://www.e-campus.co.kr/index.jsp"
End Sub

Step 4: 이동 버튼 코드

다음은 '이동' 버튼을 클릭한 경우에 대한 처리 코드입니다. 이 코드가 오늘 강좌의 핵심입니다.

Private Sub btnOK_Click()

    Dim IE As InternetExplorer
    On Error GoTo ET

    Set IE = CreateObject("InternetExplorer.application")
    IE.Navigate txtURL
    ' 인터넷 익스플로러 개체를 생성한 다음, 텍스트 상자에 표시된 주소로 이동합니다.

    With IE
    ' 익스플로러를 화면 좌측 상단에 나타나도록 합니다.

        .Visible = True
        .Left = 0
        .Top = 0
    End With

ET:
' 오류가 발생한 경우, 에러 내용과 에러 번호를 MsgBox에 표시합니다.

    If Err.Number <> 0 Then
        MsgBox Err.Description, , "오류 번호 : " & Err.Number
        Err.Clear
    End If

End Sub

ThisWorkbook.FollowHyperlink Address:=txtURL.Value

오늘은 짧게 여기까지…

정리 — 웹사이트 탐색기 코드 핵심

자주 묻는 질문 (FAQ)

마치며

사용자 정의 폼과 IE 개체만으로 간단한 웹사이트 탐색기를 만들 수 있었습니다. 최신 환경에서는 FollowHyperlink 같은 대체 방법도 함께 알아 두시면 좋겠습니다.