1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개

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

조회 수 5785 추천 수 6 2005.07.21 13:33:36
출처 : 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

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

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 30506
24 [엑셀VBA 기본 규칙] 순환문.. [레벨:30]a☆ 2005-08-04 3527
23 특정영역에서 데이터베이스 끝까지, 수식 붙여넣기 또는 자동 채우기.. [레벨:30]a☆ 2005-07-29 5192
22 기타 VBE에서 휠마우스 사용가능하게 하기SpeedVB4 file [레벨:30]아별 2005-07-22 4576
» 엑셀에서 익스플로러 컨트롤하기.. [레벨:30]a☆ 2005-07-21 5785
20 엑셀의 내용을 복사해서 메모장을 띄우고 붙여넣기 [레벨:30]a☆ 2005-07-21 3775
19 하이퍼링크 일괄 제거하기 [레벨:30]a☆ 2005-07-21 4337
18 [엑셀VBA] 변수의 전달 [레벨:30]a☆ 2005-05-13 4017
17 [엑셀VBA] 메시지 박스 활용하기 [레벨:30]아별 2004-12-22 6375
16 엑셀VBA 텍스트 박스에서 여러줄 입력하기 [레벨:30]a☆ 2004-11-15 6869
15 엑셀에서 줄바꿈에 대해서.. 줄바꿈하기 제거하기 등등.. [레벨:30]a☆ 2004-11-15 9262
14 엑셀의 사용자 정의 날짜/시간 형식(Format 함수) [레벨:30]a☆ 2004-11-12 6274
13 엑셀에서 날짜 함수 컨트롤 하기 [레벨:30]a☆ 2004-10-29 5704
12 엑셀에서 매개변수의 전달과 외부함수 호출 [레벨:30]a☆ 2004-10-27 5761
11 엑셀에서 매크로 실행 동안 화면이 업데이트 되지 않게 하기.. [레벨:30]a☆ 2004-10-26 3242
10 엑셀.. 잡다구리.. 폼에서 홈페이지 링크 등.. [레벨:30]a☆ 2004-10-25 2744
9 엑셀 기본작업 매크로.. 선택/입력/복사 등 [레벨:30]a☆ 2004-10-25 3208
8 엑셀 실행시 자동으로 실행 // 종료시 자동으로 실행 [레벨:30]아별 2004-10-25 4378
7 엑셀에서 에러 처리 [1] [레벨:30]a☆ 2004-10-23 3031
6 엑셀에서 vba식으로 영역설정하기.. [2] [레벨:30]a☆ 2004-10-21 5265
5 엑셀의 유저폼 관련 [1] [레벨:30]a☆ 2004-10-21 8850