VBA在excel与其他程序窗口切换的时候,很容易"无响应",怎么解决

大氵寿

SetForegroundWindow FindWindow(vbNullString, target)
VBA在excel与其他程序窗口切换的时候, 在其他程序运行的时候excel就很容易"无响应",怎么解决

大氵寿

写的程序是抓取excel里的信息，粘贴到其他系统里查询，并把查询的结果复制回exceli里，由于信息量大需要不停的来回切换。

程序尝试运行了半小时，切换到其他程序查询数据，然后exceli全程开始“无响应”，半小时结束后，excel回过神来， 数据的确是都复制回excel里了，

目的达到，但是运行的半个小时里，exceli一直显示无响应并显示成白屏状，，

我写的另外一个类似程序也是这个功能，过程还要复杂一些，但是运行时exceli是可见的，一切正常

每句代码都仔细检查，对于一些切换的适当加长了 sleep， 但是这次的这个，不管怎么弄，总是 “无响应”状态。 （其实后台数据一切正常）

dl0506

后来又解决方法了吗

ROBERTCHENTPE

测试操作：
1. 开一新的webpage 窗口 www.baidu.com
2. 点击任意的 url 链接 开4个新的选项卡Tabs webpage 窗口
点击第一个选项卡
3. 开一新的webpage 窗口 www.excelhome.com
4. 点击任意的 url 链接 开4个新的选项卡Tabs webpage 窗口
5. 开1个新的选项卡Tabs webpage 窗口 输入 网址url : http://sp.drugadmin.com/drugWebQueryEmbed.jsp
点击第一个选项卡

6. VBA 模块 贴上以下程序
7. 执行 VBA 模块 程序
8. 成功激活指定窗口 显示页面在视试窗最上层 自动带入输入资料



Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim dWinFolder As New ShellWindows
Sub 激活指定窗口()
    Dim mShellwindows As New ShellWindows
'   Dim ie As InternetExplorer
    Set ie = New ShellWindows
'''''''''''''''''''''On Error Resume Next
    For Each web In ie
        If InStr(1, web.FullName, "iexplore.exe", vbTextCompare) > 0 Then
         h = web.hwnd
        SetForegroundWindow h
        Application.Wait Now() + TimeValue("0:0:01")
                SendKeys "^{TAB}", True     ' Send Ctrl-Tab to IE to switch to next tab
                Application.Wait Now() + TimeValue("0:0:01")
            If web.LocationURL = "http://sp.drugadmin.com/drugWebQueryEmbed.jsp" Then
                Exit For
            End If
        End If
    Next

   激活指定窗口虽然Tabs标签选项卡 不是显示的网页页面 仍然 可以有效的 输入资料
            ''''            web.Visible = True     ''有无此行均可以
            ''''            Application.Wait Now() + TimeValue("0:0:01")
            ''''           web.Document.Focus = True     ''有无此行均可以
            web.Document.getElementById("piatscode5").Value = "20"
            web.Document.getElementById("captcha").Value = "20"
End Sub