1234
返回列表 上一主題 發帖

[發問] 請教 如何在EXCELL取得該網站之"即時估計淨值"

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
305  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
21# 跳轉到 »
發表於 2015-7-19 17:09 | 只看該作者
回復 20# Farnsworth

我點按鈕ˇ並沒錯誤訊息 ˊ只是啟用了Internet Explorer幫我連到該頁面 與我測試連結至YAHOO有完全不同的情形(結果) YAHOO 可抓到資料 當然那是我測試抓的DATA(並非我要的DATA)
您可否貼上修正後完整的內容 因為我沒能力自行組合 但您寫的若真的可用 那我可如法泡製 非常的感謝您的熱情幫助 在此謝謝您了 還有希望不要被人當成灌水
    ˊˊˊˊˊˊˊˊˊˊˊˊˊˊˊˊˊˊˊˊˊ

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
22#
發表於 2015-7-19 17:09 | 只看該作者
試看看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
  7.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  8.         Application.SendKeys "~", True   '按下同意鍵
  9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  10.         Application.Wait Now + #12:00:02 AM#   '修改的地方#######
  11.         Set E = .Document.getElementsByTagName("TABLE")(21)
  12.          .Document.body.innerHTML = E.outerHTML
  13.         .ExecWB 17, 2       '  Select All
  14.         .ExecWB 12, 2       '  Copy selection
  15.         With ActiveSheet
  16.             .Cells.Clear
  17.             .[A1].Select
  18.             .PasteSpecial 'Format:="HTML"
  19.         End With
  20.         .Quit        '關閉網頁
  21.     End With
複製代碼

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
305  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
23#
發表於 2015-7-19 17:26 | 只看該作者
本帖最後由 lcctno 於 2015-7-19 17:28 編輯

回復 22# no3-taco

結果一樣 自動開 IE 到那網站




錯誤訊息1


錯誤訊息2 (偵錯結果)

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
24#
發表於 2015-7-19 17:50 | 只看該作者
我不太會用回復，再試看看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object, myItems As Object, myitem
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
  7.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  8.         'Application.Wait Now + #12:00:01 AM#   '有錯在開啟
  9.         Set myItems = .Document.getElementsByTagName("button")
  10.         For Each myitem In myItems
  11.             If myitem.Name = "Agree" Then
  12.                 myitem.Click                              '按下送出查詢按鈕
  13.             End If
  14.         Next
  15.         Application.Wait Now + #12:00:01 AM#
  16.         Set E = .Document.getElementsByTagName("TABLE")(21)
  17.          .Document.body.innerHTML = E.outerHTML
  18.         .ExecWB 17, 2       '  Select All
  19.         .ExecWB 12, 2       '  Copy selection
  20.         With ActiveSheet
  21.             .Cells.Clear
  22.             .[A1].Select
  23.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  24.         End With
  25.         .Quit        '關閉網頁
  26.     End With
  27. End Sub
複製代碼

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
305  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
25#
發表於 2015-7-19 19:12 | 只看該作者
回復 25# no3-taco


哇 真的成功了 非常非常的感謝您的努力(幫助)  我得好好研究您提供的內容了



可用之測試檔
即時估計淨值.zip (9.49 KB)

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
26#
發表於 2015-7-19 19:34 | 只看該作者
回復 26# lcctno

.Visible = True 改成下面
.Visible = False    '可以隱藏ie

如果偶爾抓不到，多按幾下，或者把時間增加到兩秒
Application.Wait Now + #12:00:02 AM#   '經常沒抓到改2秒

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
27#
發表於 2015-7-19 20:13 | 只看該作者
回復 27# no3-taco

Application.Wait Now + #12:00:02 AM#   '經常沒抓到改2秒

網頁頻寬下載速度跟不上程式執行的速度所致
可修改如下
  1.   'Application.Wait Now + #12:00:01 AM#
  2.         Do
  3.             Set E = .Document.getElementsByTagName("TABLE")(21)
  4.         Loop Until Not E Is Nothing And E.ALL.Length = 431
  5.         
  6.          .Document.body.innerHTML = E.outerHTML
複製代碼
如圖示 程式會停在中斷點


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

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
28#
發表於 2015-7-19 20:22 | 只看該作者
回復 28# GBKEE

之前有一篇帖子也是卡在這裡，今天終於看到更好的解決辦法了。:lol

TOP

yan2463

帖子
112 
主題
29 
精華
0 
積分
173 
點名
0  
作業系統
win7 
軟體版本
OFFICE 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-8-29 
最後登錄
2022-10-17 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
29#
發表於 2015-7-23 10:06 | 只看該作者
[版主管理留言]
  • GBKEE(2015/7/23 10:23): 請po上程式碼

回復 25# no3-taco

請問如果想每1分鐘,或每十分鐘自動更新一次,該如何改

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
305  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
30#
發表於 2015-7-23 20:59 | 只看該作者
回復 1# yan2463

yan2463 請問您的問題解決了嗎?
yan2463 說：
回復 lcctno 我的問題尚未解決

回復 yan2463
請看 26樓
  http://forum.twbts.com/redirect. ... 5&fromuid=21526

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
1234
返回列表 上一主題