請教如何在EXCELL取得該網站之"即時估計淨值" - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教如何在EXCELL取得該網站之"即時估計淨值"

1 234 下一頁

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

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

13^# 跳轉到 »

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

回復 11# GBKEE
我的問題是要做個簡單的按鈕之EXCELL程式當點按鈕就能自動更新EXCELL內之"即時估計淨值" 應該是不同的情形吧! 但還是非常的感謝您的回覆

中學生 Rank: 2

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

12^#

發表於 2015-7-19 11:26 | 只看該作者

本帖最後由 no3-taco 於 2015-7-19 11:28 編輯

參考看看
從版大程式碼再稍微修改的地方

Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
'Application.SendKeys "~", True '按下同意鍵 =>省略也可以
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Wait Now + #12:00:01 AM# =>好像缺一個等待時間
.
.
.
.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
.
.

複製代碼

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2015-7-19 10:13 | 只看該作者

本帖最後由 GBKEE 於 2015-7-19 10:39 編輯

回復 6# lcctno
http://forum.twbts.com/thread-14577-1-1.html 會是同樣的問題嗎

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

中學生 Rank: 2

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

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

10^#

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

回復 1# yan2463

請問您的問題解決了嗎?
能否幫初學者的我做個簡單的按鈕之EXCELL程式當點按鈕就能自動更新EXCELL內之"即時估計淨值"
先謝謝您了
由於我的級數很低無法在此下載若您或有看到這回覆訊息之高手若願意幫我麻煩私訊我我將告訴您我的mail

中學生 Rank: 2

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

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

9^#

發表於 2015-7-19 08:53 | 只看該作者

回復 6# GBKEE

請問我依照您的內容做成VBA之按鈕但點按鈕只會自動開啟IE到那網站並不會自動把DATA匯入我的EXCELL內??
我是要能自動匯入DATA到EXCELL內我的無知(初學者) 還請您幫忙解惑謝謝您了

中學生 Rank: 2

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

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

8^#

發表於 2015-7-17 14:00 | 只看該作者

回復 6# GBKEE

謝謝

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2015-7-15 09:28 | 只看該作者

回復 5# yan2463
試試看用VBA巨集

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
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
End Sub

複製代碼

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

中學生 Rank: 2

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

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

6^#

發表於 2015-7-13 14:38 | 只看該作者

回復 3# jackyq

謝謝你

中學生 Rank: 2

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

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

5^#

發表於 2015-7-13 14:37 | 只看該作者

回復 2# lukychien

不是,是要匯入按同意後的即時預估淨值

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

4^#

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

excel 是無法吃 JAVASCRIPT 控制的網頁

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

1 234 下一頁

返回列表下一主題上一主題