¿Cómopuedo手部不通气，VBA出现了吗？

Question

tengo uncódigo，que abre una pagina web，rellena el Formulario y da clic a los botones necesarios todo funciona Correctamente，el issuea es que al dar el ultimo clic el resultado se muestra en una segunda ventana，y necesito trabajar con esta segun文塔纳·帕拉·塔马纳尔·洛斯·达托斯是一个出色的y坦比亚·瓜尔达·埃尔科沃的PDF。

普雷贡塔将军，突然出现了对马尼普洛拉·文塔纳的拦截。 encontréartículosparecidos sinéxito。

翻译

我有一些代码可以打开网页，填写表格并单击其中的所有需要​​的按钮。一切正常，直到最后一次单击。然后结果显示在第二个窗口中，我需要使用第二个窗口将数据导入excel并将文件另存为PDF。

一般性问题，如何捕捉和操作新窗口？我读过类似的文章但没有成功。

Sub Extraerdatos()
Dim IE As Object
Dim MiCombo As Object
Dim c As Long, UltimaFila As Long
Dim Celda As Range

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const PRINT_WAITFORCOMPLETION = 2

Set IE = CreateObject("InternetExplorer.Application")
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
IE.Visible = True
IE.Navigate2 "http://srv.redinservsa.com/busquedaClienteGeneral.php"

Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop
For Each Celda In Range("A2:A" & UltimaFila)

With IE
Set MiCombo = IE.Document.all("ltTipo")
        MiCombo.selectedIndex = 2
        .Document.all("ltTipo") = "Cédula"
        Application.Wait (Now + TimeValue("0:00:01"))
        .Document.all("ltNombres").Value = Celda.Value
         Application.Wait (Now + TimeValue("0:00:01"))
        .Document.all("enviar").Click
        Application.Wait (Now + TimeValue("00:00:01"))
        .Document.getElementsByClassName("cont")(0).Click
          Application.Wait (Now + TimeValue("00:00:02"))
' despues de esto se muestra mi ventana emergente intente hacerlo con sendkeys pero tampo funciona.
End With

Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "^p"
Application.Wait (Now + TimeValue("00:00:03"))
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys Celda.Value
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "~"
Application.Wait (Now + TimeValue("00:00:08"))
Next Celda

IE.Quit

MsgBox "Proceso finalizado"
End Sub

Answer 1

这里是一个示例，可以帮助您了解如何做。