vb6.0/vba 열려있는 인터넷익스플로워 (InternetExplorer) 내용 모두 가져오기
페이지 정보
본문
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
- 이전글[vba] 오름차순 정렬 예제/[B4].SpecialCells(5).Offset(1).Sort [B5], 1 20.05.02
- 다음글[vb6.0/vba]유니코드를 일반 문자열로 변환시켜주는 vb6.0/vba 사용자 함수 20.04.10
댓글목록
등록된 댓글이 없습니다.