• 목록

• 페이스북 공유
• 트위터 공유

InternetExplorer 에 html 쓰기, IE에 HTML 쓰기:)

Dim IE As Object

Sub IEDC(T As String)

If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.Application")

With IE

.Navigate2 "about:blank"

Do While .Busy = True Or .ReadyState <> 4

DoEvents

Loop

.Document.Body.innerHTML = Trim(T)

' .Visible = True

T = .Document.Body.innerTEXT

' .Quit

End With

' Set IE = Nothing

End Sub

또는