請教如何在EXCELL取得該網站之"即時估計淨值" - Excel程式區

lcctno

中學生 Rank: 2

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

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

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

22^#

發表於 2015-7-19 17:09 | 只看該作者

試看看

Option Explicit
Sub Ex()
Dim E As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Application.SendKeys "~", True '按下同意鍵
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Application.Wait Now + #12:00:02 AM# '修改的地方#######
Set E = .Document.getElementsByTagName("TABLE")(21)
.Document.body.innerHTML = E.outerHTML
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
With ActiveSheet
.Cells.Clear
.[A1].Select
.PasteSpecial 'Format:="HTML"
End With
.Quit '關閉網頁
End With

複製代碼

TOP

lcctno

中學生 Rank: 2

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

21^#

發表於 2015-7-19 17:09 | 只看該作者

回復 20# Farnsworth

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

TOP

Farnsworth

中學生 Rank: 2

帖子: 50
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN10
軟體版本: OFFICE2016
閱讀權限: 20
註冊時間: 2015-6-2
最後登錄: 2024-3-6

20^#

發表於 2015-7-19 16:54 | 只看該作者

我試過了，能打開網頁，旦代碼 .document.body.innerHTML = E.outerHTML
這行提示出錯。

TOP

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

19^#

發表於 2015-7-19 16:18 | 只看該作者

回復 9# lcctno

你不是說你做了按鈕，網頁也有開啟，所以應該是程式碼沒有抓到，給他延遲一秒看看

Wait Now + #12:00:01 AM# '=>好像缺一個等待時間

TOP

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

18^#

發表於 2015-7-19 16:09 | 只看該作者

你把版大的程式碼插入

Wait Now + #12:00:01 AM# =>好像缺一個等待時間

試看看

TOP

lcctno

中學生 Rank: 2

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

17^#

發表於 2015-7-19 15:58 | 只看該作者

回復 15# GBKEE

由於網站的規定我每小時只能回覆3次且又無權限發短消息很抱歉讓您久等我的回覆了

於第一時間時我有依您的語法完成但點它只會自動開啟IE並到那網站並不會自動把DATA匯入我的EXCELL內所以我才會繼續問下去希望有人能幫助笨笨的我解決這個問題其實我發現陸續有網站已無法使用 "匯入外部資料新增WEB查詢" 來取得DATA 所以我早晚還是要面對它並學會它

以下是我在apk.tw所發的帖若您對股市有興趣不妨去看看

碎鑽當然要想辦法賺但T50反1 (00632R)的真鈔您想賺嗎?
http://apk.tw/forum.php?mod=viewthread&tid=647659&fromuid=685805
(出處: Android 台灣中文網)

00632R T50反1 這帖沒碎鑽但有我賺真鈔的統計分析
http://apk.tw/forum.php?mod=viewthread&tid=672636&fromuid=685805
(出處: Android 台灣中文網)

TOP

lcctno

中學生 Rank: 2

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

16^#

發表於 2015-7-19 14:59 | 只看該作者

回復 11# GBKEE

我很急著要用那功能原先"即時估計淨值" 一直都沒發生問題但元大寶來之網站改版之後我的原先土法鍊鋼之EXCELL檔就無法即時的知道淨值還需要另開網頁並手動輸入數個數據實在很頭大我已經發費很多時間爬文了但一直找尋不到方法所以最後不得不註冊加入會員並發帖求救希望能有人幫我.....

TOP

GBKEE