打开浏览器宏
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Public mWindow As Object
Public mDocument As Object
Public Sub mComGetIEWindows(ByVal IETitle As String, Optional ByVal WaitTime As Integer = 0)
Dim mshellWindow As New SHDocVw.ShellWindows
Dim mIndex As Long
For mIndex = 0 To mshellWindow.Count - 1
'从第一个浏览器对象循环到最后一个
'如果是IE窗口而不是资源管理器
If VBA.TypeName(mshellWindow.Item(mIndex).document) = "HTMLDocument" Then
'If VBA.TypeName(mshellWindow.Item(mIndex).doucument) = "HTMLDocument" Then
'如果是知道窗口(用窗口标题判断，其他也可以，如URL等)
If mshellWindow.Item(mIndex).document.Title = IETitle Then
If WaitTime = 1 Then
Do While mshellWindow.Item(mIndex).Busy
Application.Wait (Now + TimeValue("0:00:01"))
DoEvents
Loop
End If
'锁定我们要的对象
Set mDocument = mshellWindow.Item(mIndex).document
Set mWindow = mshellWindow.Item(mIndex)
'使制定的浏览器窗口可见
mshellWindow.Item(mIndex).Visible = True
Exit Sub
End If
End If
Next mIndex
End Sub