azrael19

1. Option Explicit
   
2. 
   
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
   
10. 
    
11. Private Const GW_HWNDNEXT = 2
    
12. Private Const GW_CHILD = 5
    
13. 
    
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

azrael19

回復 10# joey0415
大概就是確認IE是否有任何子視窗顯示(ex:訊息視窗)，有就將IE切換成最上層顯示後再送出ENTER鍵將訊息視窗關閉。
設定值請參考下列網址:
https://msdn.microsoft.com/zh-tw/ms633515
另外我寫的過於簡化，設想如果發生子視窗無法用ENTER鍵關閉的情況，你最好加上錯誤處理機制(ex:送出ENTER鍵幾次無效後就不再執行改顯示錯誤訊息)，不然有可能會進入死迴圈...

azrael19

回復 12# joey0415
我用你上面貼的程式碼及GBKEE版主教的方法都沒有出現問題(用 Win7 + IE11 + Office2013),所以我也不曉得出了什麼問題...
這問題如果短時間內無法解決你又急需這些資料,下列網址可以抓到最新一期的資料(csv檔):
http://data.gov.tw/node/11452

azrael19

回復 14# joey0415
另一種方式,試試看...

1. Option Explicit
   
2. 
   
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
    
16. 
    
17. Private Const WM_CLOSE = &H10
    
18. Private Const GW_HWNDNEXT = 2
    
19. Private Const GW_CHILD = 5
    
20. Private Const BM_CLICK = &HF5
    
21. 
    
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
    
78. 
    
79. End Sub

複製代碼