다음 CruUrl은 현재 URL을 반환합니다. 예를 들어 VBA의 탐색 방법이나 센키 방법 등을 사용한 경우 자동으로 URL을 열고 버튼이나 링크를 클릭한 경우 다음 CruUrl을 사용하여 대상 URL과 동일한지 확인할 수 있습니다. 즉, 대상 URL이 열려 있는지 확인할 수 있습니다. Function?CurUrl()
Dim?Obj?As ?Object
On?Error?Resume?Next
For?Each?Obj?In?CreateObject("Shell.Application").Windows
If? TypeName(Obj.document)?= ?"HTMLDocument"?Then
CurUrl?=?Obj.LocationURL
End?If
다음
끝?함수
p>