글 수 65
출처 : 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
-----------------------------------------------------------------------------------------------------------------------------------
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
-----------------------------------------------------------------------------------------------------------------------------------