返回列表 上一主題 發帖

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

azrael19

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 »
發表於 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

azrael19

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
2#
發表於 2015-7-24 10:49 | 顯示全部帖子
回復 10# joey0415
大概就是確認IE是否有任何子視窗顯示(ex:訊息視窗)，有就將IE切換成最上層顯示後再送出ENTER鍵將訊息視窗關閉。
設定值請參考下列網址:
https://msdn.microsoft.com/zh-tw/ms633515
另外我寫的過於簡化，設想如果發生子視窗無法用ENTER鍵關閉的情況，你最好加上錯誤處理機制(ex:送出ENTER鍵幾次無效後就不再執行改顯示錯誤訊息)，不然有可能會進入死迴圈...

TOP

azrael19

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
3#
發表於 2015-7-24 15:06 | 顯示全部帖子
回復 12# joey0415
我用你上面貼的程式碼及GBKEE版主教的方法都沒有出現問題(用 Win7 + IE11 + Office2013),所以我也不曉得出了什麼問題...
這問題如果短時間內無法解決你又急需這些資料,下列網址可以抓到最新一期的資料(csv檔):
http://data.gov.tw/node/11452

TOP

azrael19

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
4#
發表於 2015-7-24 22:32 | 顯示全部帖子
回復 14# joey0415
另一種方式,試試看...
  1. Option Explicit

  3. #If Win64 Then
  4. Private Declare PtrSafe Function GetWindow Lib "USER32" (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr
  5. Private Declare PtrSafe Function SetForegroundWindow Lib "USER32" (ByVal hWnd As Long) As Long
  6. Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
  7. Private Declare PtrSafe Function FindWindowEx Lib "USER32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
  8. Private Declare PtrSafe Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
  9. #Else
  10. Private Declare Function GetWindow Lib "user32" (ByVal HWND As Long, ByVal wCmd As Long) As Long
  11. Private Declare Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long
  12. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  13. Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  14. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
  15. #End If

  17. Private Const WM_CLOSE = &H10
  18. Private Const GW_HWNDNEXT = 2
  19. Private Const GW_CHILD = 5
  20. Private Const BM_CLICK = &HF5

  22. Sub 點擊()
  23.     Cells.Clear
  24.     Dim hWndChild, hWndPopup, x, Retries As Integer: Retries = 10
  25.    
  26.     With CreateObject("InternetExplorer.Application")
  27.         .Visible = True
  28.         .Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
  29.         
  30.         Do While .Busy Or .ReadyState <> 4  '等候網頁下載完畢
  31.             DoEvents
  32.         Loop
  33.         Set x = .document.all.tags("option") '查下拉選單
  34.         x(7).Selected = True '選取該子項目
  35.         
  36.         .document.getElementsByName("StockNo")(0).Value = "6456"
  37.         .document.getElementsByName("sub")(0).Click
  38.         
  39.         Do While (.Busy Or .ReadyState <> 4) And 0 < Retries
  40.         
  41.             hWndChild = GetWindow(.hWnd, GW_CHILD)
  42.         
  43.             If 0 <> hWndChild Then
  44.                 Do While hWndChild
  45.                     hWndPopup = FindWindow("#32770", "網頁訊息") '#32770 The class for a dialog box
  46.                     If 0 <> hWndPopup Then
  47.                         SendMessage FindWindowEx(hWndPopup, 0, "Button", "確定"), BM_CLICK, 0, 0
  48.                     Else
  49.                         Exit Do
  50.                     End If
  51.                     'SetForegroundWindow .hWnd 'HWND is the HWND of the myIEWindow
  52.                     'Application.SendKeys "~", True
  53.                     hWndChild = GetWindow(hWndChild, GW_HWNDNEXT)
  54.                 Loop
  55.             
  56.             End If
  57.             Application.Wait Now + #12:00:01 AM#
  58.             DoEvents
  59.             Retries = Retries - 1
  60.         Loop
  61.         If 0 = Retries Then
  62.             AppActivate Application.Caption
  63.             MsgBox "無法關閉訊息視窗!", vbCritical
  64.             Exit Sub
  65.         End If
  66.         '-------------------以下為失焦處，無法點擊
  67.         Stop
  68.         .document.getElementsByName("StockNo")(0).Value = "1101"
  69.         .document.getElementsByName("sub")(0).Click
  70.             
  71.         Do While .Busy Or .ReadyState <> 4  '等候網頁下載完畢
  72.            DoEvents
  73.         Loop
  74.         
  75.         Stop
  76.         .Quit
  77.     End With

  79. End Sub
複製代碼

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題