• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2020.04.11 08:19 548 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

등록된 댓글이 없습니다.