Могу ли я записать документ InternetExplorer. в другое окно InternetExplorer?

Question

Я хотел бы перенести IE .Document одного окна в IE .Document другого окна. Можно ли это сделать?

Answer 1

Не вижу смысла в вашем вопросе. Но вы можете сделать это следующим образом:

Sub DocFromIEtoIE()

Dim ieOne As Object
Dim ieTwo As Object
Dim nodeHTML As Object
Dim htmlDoc As String
Dim url As String

  url = "https://stackoverflow.com/"

  Set ieOne = CreateObject("internetexplorer.application")
  ieOne.Visible = True
  ieOne.navigate url
  Do Until ieOne.ReadyState = 4: DoEvents: Loop

  Set nodeHTML = ieOne.document.getElementsByTagName("html")(0)
  If Not nodeHTML Is Nothing Then
    htmlDoc = nodeHTML.outerHTML

    Set ieTwo = CreateObject("internetexplorer.application")
    ieTwo.Visible = True
    ieTwo.navigate "about:blank"
    Do Until ieTwo.ReadyState = 4: DoEvents: Loop

    ieTwo.document.Write (htmlDoc)
  End If
End Sub