열려있는 인터넷익스플로워 (InternetExplorer) 내용 모두 가져오기 > vb6.0/vba

본문 바로가기

vb6.0/vba

[vb6.0/vba] 열려있는 인터넷익스플로워 (InternetExplorer) 내용 모두 가져오기

익명
2020-04-11 08:19 1,413 0

본문

Sub program1472_com()

Dim obj As Object, i As Integer

For Each obj In CreateObject("Shell.Application").Windows

If TypeName(obj.Document) = "HTMLDocument" Then

With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

.SetText obj.Document.Body.outerText

.PutInClipboard

End With

i = i + 1

If Worksheets.Count >= i Then _

Worksheets(i).Cells.ClearContents: Worksheets(i).Paste _

Destination:=Worksheets(i).[A1]

End If

Next

End Sub

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색