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

　暱稱: joey0415

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

1^# 跳轉到 »

發表於 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

複製代碼

　暱稱: joey0415

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

2^#

發表於 2015-7-18 14:30 | 顯示全部帖子

回復 5# GBKEE

我是win7 ie11 就無法抓到

失焦抓不到

　暱稱: joey0415

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

3^#

發表於 2015-7-23 22:01 | 顯示全部帖子

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

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

　暱稱: joey0415

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

4^#

發表於 2015-7-24 10:08 | 顯示全部帖子

回復 9# azrael19

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

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

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

謝謝

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

　暱稱: joey0415

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

5^#

發表於 2015-7-24 12:21 | 顯示全部帖子

回復 11# azrael19

若改成這樣的網頁，雖然可以點擊，但之後卻失焦了，如果重新再往下點擊呢？
謝謝

感謝指點

Sub 點擊()
Cells.Clear
Dim lHwndChild&
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
Do While .Busy Or .ReadyState <> 4 '等候網頁下載完畢
DoEvents
Loop
Set x = .document.all.tags("option") '查下拉選單
x(7).Selected = True '選取該子項目
.document.getElementsByName("StockNo")(0).Value = "6456"
.document.getElementsByName("sub")(0).Click
Sleep 2000
lHwndChild = GetWindow(.HWND, GW_CHILD)
If lHwndChild <> 0 Then
Do While lHwndChild
SetForegroundWindow .HWND 'HWND is the HWND of the myIEWindow
Application.SendKeys "~", True
lHwndChild = GetWindow(lHwndChild, GW_HWNDNEXT)
Loop
Sleep 2000
End If
'-------------------以下為失焦處，無法點擊
Stop
.document.getElementsByName("StockNo")(0).Value = "1101"
.document.getElementsByName("sub")(0).Click
Do While .Busy Or .ReadyState <> 4 '等候網頁下載完畢
DoEvents
Loop
Stop
.Quit
End With
End Sub

複製代碼

　暱稱: joey0415

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

6^#

發表於 2015-7-24 17:51 | 顯示全部帖子

回復 13# azrael19

超級感謝您的回答

我有兩台電腦

一台 win7 64位元 office 2010 32位元 IE 11 32位元不行

一台 win7 64位元 office 2010 32位元 IE 10 32位元可以

其實抓的方法我會，只是要多學一種

感謝教學相長

　暱稱: joey0415

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

7^#

發表於 2015-7-25 10:22 | 顯示全部帖子

回復 15# azrael19
回覆！這個也可以哦！

我自己發現我這台的ie是11版 64位元的，所以之前的都無效
移除後，雖然無法改裝成11版 32位元，系統為64位元的
只好用10版的，不過就可以啦

我想一定是ie是11版 64位元的關係，有某些函式不能用

謝謝

有空加個好友

請問 "#32770" 從哪看出來的