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
p>