代碼應該如何撰寫才能忽視因查詢不到而產生的網頁訊息呢？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 代碼應該如何撰寫才能忽視因查詢不到而產生的網頁訊息呢？

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

[發問] 代碼應該如何撰寫才能忽視因查詢不到而產生的網頁訊息呢？

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

8^# 跳轉到 »

發表於 2015-7-23 22:01 | 只看該作者

回復 joey0415
ie8 執行沒這問題.
GBKEE 發表於 2015-7-18 05:13

請問版大如果是用我自己寫的範例網頁，我自己是抓不到的，能指點一下嗎？
https://dl.dropboxusercontent.com/u/40393708/test1.htm

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

7^#

發表於 2015-7-18 20:01 | 只看該作者

我剛剛ie10測試，也沒有問題，alert訊息框會跳到最上層，所以沒問題
如果執行時有亂點，好像就沒辦法了。

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

6^#

發表於 2015-7-18 14:30 | 只看該作者

回復 5# GBKEE

我是win7 ie11 就無法抓到

失焦抓不到

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2015-7-18 05:13 | 只看該作者

回復 4# joey0415
ie8 執行沒這問題.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

4^#

發表於 2015-7-17 20:20 | 只看該作者

回復 2# GBKEE

有改了！但按下去時，vba處會一直出現圈圈，有問題，請G大幫忙

Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
Sub ex()
Set iea = CreateObject("internetexplorer.application")
With iea
.Visible = True
.Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
Do Until .ReadyState = 4
DoEvents
Loop
Set x = iea.document.all.tags("option") '查下拉選單
x(6).Selected = True '選取該子項目
iea.document.getElementsByName("StockNo")(0).Value = "6456"
iea.document.getElementsByName("sub")(0).Click '按下查詢鍵
Sleep 2000
Do While .Busy Or .ReadyState <> 4 '等候網頁下載完畢
DoEvents
Application.SendKeys "~", True '按 ENTER 按鍵 ,預防 "證券代號"有錯誤
Sleep 1000
Loop
.Quit
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

3^#

發表於 2015-7-17 09:18 | 只看該作者

回復 justintoolbox
GBKEE 發表於 2015-7-17 07:46

真的太棒了!！！
非常感謝GBKEE出手相救！
讓我學到該如何克服這方面的問題，感謝！

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-7-17 07:46 | 只看該作者

回復 1# justintoolbox

.Document.getElementsByName("sub")(0).Click '按下查詢鍵
Do While .Busy Or .ReadyState <> 4 '等候網頁下載完畢
DoEvents
Application.SendKeys "~", True '按 ENTER 按鍵 ,預防 "證券代號"有錯誤
Loop

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。

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