vb6.0/vba [vb6.0/vba] Find IE / 열려있는 익스플로워(InternetExplorer) 창을 찿아 URL을 바꿈
페이지 정보
본문
열려있는 인터넷 익스플로워(InternetExplorer) 창을 찿아서 모두 URL을 바꾸어 주는 예제 입니다.
Dim IE As Object
Sub FindIE()
Dim obj As Object, Count&, URL$, Title$
Set obj = CreateObject("Shell.Application")
On Error Resume Next
Count = obj.Windows.Count
For x = 0 To (Count - 1)
URL = obj.Windows(x).Document.Location
Title = obj.Windows(x).Document.Title
If TypeName(obj.Windows(x).Document) = "HTMLDocument" Then
Set IE = obj.Windows(x)
IE.Navigate2 "http://map.daum.net/?q=" + UTF8([A1].Text)
End If
Debug.Print Title, URL, TypeName(obj.Windows(x).Document)
Next
End Sub
- 이전글[vb6.0/vba] 인터넷익스플로워 띄우기 및 검색하기/FindIE 20.03.16
- 다음글[vb6.0/vba/vb.net] 잡을수 있는 오류 20.03.11
댓글목록
등록된 댓글이 없습니다.