abyul.com > Excel > Tip > VBA by abyul - 엑셀에서 익스플로러 컨트롤하기..

글 수 65

엑셀에서 익스플로러 컨트롤하기..

조회 수 6232 추천 수 6 2005.07.21 13:33:36

a☆ *.106.104.6 http://abyul.com/zbxe/5568

출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=15840&keyword=익스플로러&sn=on&ss=on&sc=on

   Dim IE As Object

    Dim strResult As String
    Dim strSiteName As String

'    On Error Resume Next

    Set IE = CreateObject("InternetExplorer.Application")
    strSiteName = "http://www.keb.co.kr/IBS/fx/rate/notice/current/current.jsp"
    IE.Navigate strSiteName
    With IE
        .Resizable = False
        .MenuBar = False
        .Toolbar = False
        .AddressBar = False
        .Visible = True
        .StatusBar = True
        .Left = 0
        .Top = 0
        .Width = 800
        .StatusText = "~~~~~~~~~~~~~~~"
    End With

    Set IE = Nothing

-----------------------------------------------------------------------------------------------------------------------------------

'폼에서 버튼을 이용해서 홈페이지 링크 시키기..

Option Explicit

Const cHome$ = "http://excellove.com"

Sub dhFormShow()
'폼 열기
    FrmEs.Show
End Sub

Sub dhGoToHome()
'엑사모 방문하기
On Error GoTo e1
    ThisWorkbook.FollowHyperlink Address:=cHome, addhistory:=True
e1:
End Sub

-----------------------------------------------------------------------------------------------------------------------------------

출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=15831&keyword=Explorer&sn=on&ss=on&sc=on

단순히 익스플로러 실행시키기..

Application.Run Shell("C:Program FilesInternet ExplorerIEXPLORE.EXE")

-----------------------------------------------------------------------------------------------------------------------------------

출처 : http://www.excellove.com/board/bbs/view.php?id=data&no=73

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
WebBrowser1.Navigate "http://www.keb.co.kr/IBS/fx/rate/notice/current/current.jsp"
End Sub

-----------------------------------------------------------------------------------------------------------------------------------

출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=6030&keyword=Explorer&sn=on&ss=on&sc=on

appactivate "Microsoft Internet Explorer",true
-----------------------------------------------------------------------------------------------------------------------------------

출처 : http://www.excellove.com/board/bbs/zboard.php?id=excel_tip&page=1&sn1=&divpage=1&sn=off&ss=on&sc=off&keyword=Explorer&select_arrange=headnum&desc=asc&no=165

Option Explicit

'도구메뉴-참조에 다음 요소들을 참조시킵니다.
'Microsoft HTML Object Libraray
'Microsoft Internet Controls

Private IE As InternetExplorer 'IE 를 익스플로러 개체로 선언

Sub KIExeExplorer3()
    Set IE = New InternetExplorer '익스플로러 개체를 인스턴스 시킴

    IE.navigate "http://www.excellove.com" '엑사모 싸이트로 Navigate 시킴
    IE.Visible = True '익스플로러를 보여줌

    Do Until IE.Busy '페이지가 바쁜(로딩하는) 동안 순환
        DoEvents
    Loop

    '위의 Do ~ Loop 을 쓰지 않으면 익스플로러 페이지가 완료되지 않고 이곳으로 넘어오고 다음 구문을 수행하게 됩니다.
    '추후에 HTML Object 를 이용하시려면 이 부분에 코딩하시면 됩니다.
End Sub

-----------------------------------------------------------------------------------------------------------------------------------

이 게시물을...