|
Msgbox shell_ReturnIEName_NEM
Public Function shell_ReturnIEName_NEM()
Set shell = CreateObject("Shell.Application")
set ie = createobject("internetexplorer.application")
Set shellWindows = shell.Windows()
For Each ie In shellWindows
If InStr(1,ie.FullName,"IEXPLORE.EXE",vbTextCompare) <> 0 then
shell_ReturnIEName_NEM = Window("hwnd:=" &ie.HWND).GetROProperty("Name")
End If
Next
Set shellWindows = Nothing
Set shell = Nothing
End Function
----------------------
上诉代码执行的时候,提示Type mismatch: 'Window'
之前我运行时候都是正确,假期回来后运行就发现提示这个问题
不知道什么原因,麻烦大家看看,赐教
谢谢 |
|