[엑셀 VBA] VBA를 이용해 IE를 열고 창을 최대화하기

엑셀을 사용하다가 인터넷 익스폴로러를 뛰워야할 경우가 종종 생긴다. 이럴때 아래 소스를 사용하면 매우 유용할것이다.

■  VBA 를 이용해 인터넷 익스플로러를 열고 창을 최대화 하기

※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 

제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. 

Option Explicit
#If VBA7 Then
    Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
#Else
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
#End If
Const SW_SHOWMAXIMIZED = 3 '최대화 창
Sub Internet_Open()
Dim ie As Object 'SHDocVw.InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .Navigate "http://cafe.naver.com/ex4mo"
        Do While ie.Busy
            DoEvents
        Loop
        ShowWindow ie.hwnd, SW_SHOWMAXIMIZED '윈도우 창을 최대화하기...
    End With
Set ie = Nothing
End Sub