¿Cómo obtiene VBA la URL después del salto de WebBrowser1?

La siguiente CruUrl devuelve la URL actual. Por ejemplo, si ha utilizado el método de navegación en VBA, o el método senkey, etc., después de haber abierto automáticamente una URL y haber hecho clic en un botón o enlace, Puede utilizar el siguiente CruUrl para determinar si es igual a su URL de destino y sabrá si la URL de destino está abierta. Pruébelo. Function?CurUrl()

Dim?Obj?As?Object.

¿En?Error?Reanudar?Siguiente

Para?Cada?Obj?En?CreateObject("Shell.Application").Windows

Si?TypeName( ¿Obj.document)?= ?"HTMLDocument"?Entonces

CurUrl?=?Obj.LocationURL

Fin?Si

Siguiente

¿Fin?Función