Ayuda a ver el significado del código vb.

Dim oShellApp: Establecer oShellApp = CreateObject("Shell.Application")

Definir variables de objetos de Shell e inicializar referencias de objetos de Shell

Dim oShellAppWindows: Establecer oShellAppWindows = oShellApp.Windows

Defina la colección de objetos de ventana e inicialice la referencia a la colección de objetos de ventana

Atenuar

Defina la variable de objeto de ventana

'Obtener la ventana emergente arriba ventana de IE

p>

Para cada owin en oShellAppWindows 'Obtenga la ventana emergente de IE

Recorra la colección de objetos de la ventana de oShellAppWindows y asigne cada objeto de ventana atravesado a la variable owin

If LCase( TypeName(owin.Document)) = "htmldocument" and_

InStr(1, owin.LocationName, IeTitle, vbTextCompare) gt; Entonces 'Si encuentra la ventana de IE que coincide; la condición

Determine si el tipo de ventana se llama htmldocument y el nombre del título de la ventana contiene texto de la variable IeTitle, luego busque la ventana elegible

GetIeHtml = owin.Document.activeElement.Document.documentElement .innerHTML 'Esta oración obtendrá el código html completo

GoTo Mend 'Salir

Finalizar si

Siguiente

Reparar:

Finalmente las tres oraciones liberan la referencia a la variable de objeto

Set oShellAppWindows = Nothing

Set oShellApp = Nothing

Set owin = Nothing

Esto está explicado con suficiente detalle.