열려있는 인터넷익스플로워 (InternetExplorer) 내용 모두 가져오기
하나를하더라도최선을
2020-04-11 08:19:18
30,808
0
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