vba控制網頁 browser碰上alert停住了 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » vba控制網頁 browser碰上alert停住了

返回列表下一主題上一主題發帖

vba控制網頁 browser碰上alert停住了

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2017-1-9 22:32 | 顯示全部帖子

回復 2# singo1232001

這個實在太酷了,我感到非常的興奮關於你找的這篇文章
我之前遇到的警告視窗,是當時我找不到相關的網頁元素
但實際上按了按鈕之後程式碼是不會停止的
因此我就算好時間用sendkey 解決了那個問題

但後來我遇到選擇檔案的按鈕一旦click之後就無法動作了,到目前仍然無解
我來試試看您的程式碼,先感謝再感謝了

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-1-10 02:16 | 顯示全部帖子

本帖最後由 PKKO 於 2017-1-10 02:17 編輯

回復 2# singo1232001

感謝大大的文章
經果改編之後我也成功了,非常感謝哦!!!
只是切換輸入法的問題,我是丟出一個切換輸入法的動作
不曉得有沒有甚麼方法是可以固定英文輸入法的?

Set WshShell = CreateObject("wscript.shell")
Do
ret = WshShell.AppActivate("選擇要上傳的檔案")
Loop Until ret = True
wscript.sleep 500
ret = WshShell.AppActivate("選擇要上傳的檔案")
If ret = True Then
ret = WshShell.AppActivate("選擇要上傳的檔案")
wscript.sleep 500
WshShell.SendKeys "%n"
WshShell.SendKeys "+"
WshShell.SendKeys "C:\USERS\USER\DESKTOP\AA.JPG"
WshShell.SendKeys "%o"
End If
wscript.sleep 1000

複製代碼

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-1-13 00:10 | 顯示全部帖子

回復 5# stillfish00

S大大,好特別的方式
想請教一:這個語法適用於所有網站的單一確認視窗嗎?
想請降二:若是有是或否的視窗呢?以及選擇檔案的視窗呢?有辦法處理嗎

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-1-14 01:02 | 顯示全部帖子

回復 8# stillfish00

了解,非常感謝!

PKKO

靜思自在 : 得理要饒人，理直要氣和。

返回列表下一主題上一主題