Vba 如何计算已打开的IE窗口？Windows返回的结果太多

我试着编码现在打开了多少个IE窗口，它们是什么URL

Sub Test()

Set objShell = CreateObject("Shell.Application")
Set AllWindows = objShell.Windows

For Each Window In AllWindows
    MsgBox Window.LocationURL
Next

end sub

当我运行代码时，即使我只打开一个IE网站，它也会显示21个ea的许多URL。 我猜它显示了URL历史记录

我想看看我现在打开的IE网站的URL

---

你能给我一些建议吗？

代码对我来说运行良好，只显示打开的IE窗口。啊？？来真的这对我还是不起作用。。我关闭了所有IE，但在运行代码之前，它会使用任务管理器来关闭IE的所有实例。可能你有隐藏的IE运行实例？嗯，隐藏的IE运行？我不知道，无论如何，谢谢Yasser和Timser。代码对我来说运行良好，只显示打开的IE窗口。啊？？来真的这对我还是不起作用。。我关闭了所有IE，但在运行代码之前，它会使用任务管理器来关闭IE的所有实例。可能你有隐藏的IE运行实例？嗯，隐藏的IE运行？我不知道，无论如何，谢谢亚西尔和蒂姆