Excel VBA高级编程:获得打开的网页浏览器标题(VBA)

2015-04-13 14:06 阅读 361 次 评论关闭

Option Explicit

Dim dWinFolder As New ShellWindows

Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
MsgBox objIE.LocationURL
End If
Next
End Sub

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA高级编程:获得打开的网页浏览器标题(VBA) | 猎微网

评论已关闭!