- 帖子
- 353
- 主題
- 5
- 精華
- 0
- 積分
- 386
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-5-4
 
|
本帖最後由 singo1232001 於 2017-1-9 02:00 編輯
其實,我跟你也遇到相關的問題
不過我是遇到要關閉彈出的alert警告
沒錯,目前會出現兩個問題
第一個也就是你提到的
按下click之後,程式就卡了
ptt那邊也搜過沒答案,但有一個方向
正常來說
當要按下click的上一行
好像就先call了一個autokey(類似連點程式的外掛)
並且預定一秒後按下enter
這時後,原先的程式回到click,按下
程式彈出視窗,不動了
約過一秒後,autokey的程式就會按下enter,就會繼續執行
這個部份我有猜想嘗試一招
曾經超級板主有分享過,兩個同時一起執行的vba
http://forum.twbts.com/viewthread.php?tid=6396
我在猜測這個部份會不會有辦法帶的進來處理
然後第二個問題
我們先忽略掉前面所有的步驟
直接手動開啟彈跳視窗
直接使用
ie.document.writeln ("<script type=""text/javascript"">window.focus()</script>")
的方式按下按鈕
確實按鈕也按下了
但ie也會同時卡死,
最後有個部份可以補充
並不一定要自己開啟一個新ie- Set objShell = CreateObject("Shell.Application")
- Set objAllWindows = objShell.Windows
- For Each ow In objAllWindows
- If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then
- If (InStr(1, ow.LocationURL, "https://www.google.com.tw", vbTextCompare)) Then
- 執行的程式碼
- end if
- end if
其實我也被彈出的alert搞的精神耗弱了,好慘 |
|
發表於 2017-1-9 01:58
| 
