12
返回列表 上一主題 發帖

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

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-7-16 21:13 | 只看該作者

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

各位前輩大家好，

目前遇到的問題是：『有什麼方法可以忽視網頁訊息？例如：在網頁http://www.tdcc.com.tw/smWeb/QryStock.jsp，資料日期為20150529 證券代號為6456，會出現查無訊息的視窗』
如下圖：
未命名_副本.jpg

我有試過 Application.DisplayAlerts = False ，不過這只對excel本身產生問題可以忽略，對網頁產生的問題就行不通了。
請各位前輩們出手相救，感謝！
  1. my_url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
複製代碼
收藏 分享

GBKEE

帖子
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
  1. .Document.getElementsByName("sub")(0).Click                    '按下查詢鍵
  2.         Do While .Busy Or .ReadyState <> 4                             '等候網頁下載完畢
  3.             DoEvents
  4.             Application.SendKeys "~", True                '按 ENTER 按鍵 ,預防 "證券代號"有錯誤
  5.          Loop
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

justintoolbox

帖子
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出手相救！
讓我學到該如何克服這方面的問題，感謝！

TOP

joey0415
　暱稱: 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大幫忙
  1. Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
  2. Sub ex()

  4. Set iea = CreateObject("internetexplorer.application")
  5.         With iea
  6.             .Visible = True
  7.             .Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
  8.             Do Until .ReadyState = 4
  9.                 DoEvents
  10.             Loop
  11.             
  12.              Set x = iea.document.all.tags("option") '查下拉選單
  13.                  x(6).Selected = True '選取該子項目
  14.                        
  15.               iea.document.getElementsByName("StockNo")(0).Value = "6456"
  16.              iea.document.getElementsByName("sub")(0).Click                    '按下查詢鍵
  17.             
  18.              Sleep 2000
  19.             
  20.                 Do While .Busy Or .ReadyState <> 4                             '等候網頁下載完畢
  21.                     DoEvents
  22.                     Application.SendKeys "~", True                '按 ENTER 按鍵 ,預防 "證券代號"有錯誤
  23.                     Sleep 1000
  24.                  Loop
  25.            .Quit
  26.     End With
  27.    

  29. End Sub
複製代碼

TOP

GBKEE

帖子
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元的贊助,人人有能力.

TOP

joey0415
　暱稱: 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 就無法抓到

失焦抓不到

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
7#
發表於 2015-7-18 20:01 | 只看該作者
我剛剛ie10測試，也沒有問題，alert訊息框會跳到最上層，所以沒問題
如果執行時有亂點，好像就沒辦法了。

TOP

joey0415
　暱稱: 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

TOP

azrael19

帖子
23 
主題
0 
精華
0 
積分
73 
點名
287  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2012-4-21 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
9#
發表於 2015-7-24 00:55 | 只看該作者
  1. Option Explicit

  3. #If Win64 = 1 Then
  4. Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal HWND As Long, ByVal wCmd As Long) As Long
  5. Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long
  6. #Else
  7. Private Declare Function GetWindow Lib "user32" (ByVal HWND As Long, ByVal wCmd As Long) As Long
  8. Private Declare Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long
  9. #End If

  11. Private Const GW_HWNDNEXT = 2
  12. Private Const GW_CHILD = 5

  14. Sub ex()
  15.     Dim lHwndChild&
  16.    
  17.     With CreateObject("InternetExplorer.Application")
  18.         .Visible = True
  19.         .Navigate "https://dl.dropboxusercontent.com/u/40393708/test1.htm"
  20.         Do While .Busy Or .ReadyState <> 4
  21.             DoEvents
  22.             If 3 = .ReadyState Then
  23.                 lHwndChild = GetWindow(.HWND, GW_CHILD)
  24.                 Do While lHwndChild
  25.                     SetForegroundWindow .HWND 'HWND is the HWND of the myIEWindow
  26.                     Application.SendKeys "~", True
  27.                     lHwndChild = GetWindow(lHwndChild, GW_HWNDNEXT)
  28.                 Loop
  29.             End If
  30.         Loop
  31.     End With
  32.    
  33. End Sub
複製代碼
回復 8# joey0415

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
10#
發表於 2015-7-24 10:08 | 只看該作者
回復 9# azrael19

超級感謝真的可以動了！抓到我要的資料

從你引用的函式來看好像是找到視窗並確認是哪個窗後，送出enter並關閉它

請問一下
Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
是什麼設定值呢？

謝謝

後來我修改了，送出後要sleep一下，效果會比較好

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
12
返回列表 上一主題