麻辣家族討論版版 » Excel程式區 » 如何用vba下載證交所網頁(日收盤價及月平均收盤價)資料

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

[發問] 如何用vba下載證交所網頁(日收盤價及月平均收盤價)資料

中學生 Rank: 2

帖子: 23
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-6-24
最後登錄: 2024-4-11

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-2-3 18:09 | 只看該作者

[發問] 如何用vba下載證交所網頁(日收盤價及月平均收盤價)資料

原先可以直接用網址連結方式下載
http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY_AVG/genpage/Report201602/201602_F3_1_8_2303.php?STK_NO=2303&myear=2016&mmon=01
自2月起就無法連結
各位先進請問要如何編寫vba去下載圖片中紅色框框的資料
(證交所網址:http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY_AVG/STOCK_DAY_AVGMAIN.php)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 23
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-6-24
最後登錄: 2024-4-11

14^#

發表於 2016-2-13 22:49 | 只看該作者

回復 13# GBKEE
tks! 先暫時用手動刪除作業

超級版主 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兔年全勤獎章

13^#

發表於 2016-2-12 13:29 | 只看該作者

回復 12# clianghot546

能力不夠,我使用2003版沒有 ActiveWorkbook.Connections

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

中學生 Rank: 2

帖子: 23
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-6-24
最後登錄: 2024-4-11

12^#

發表於 2016-2-10 09:13 | 只看該作者

回復 8# GBKEE

可以再請教一個問題
原先下載完後會產生一個連線名為"連線" ,在程式最後用
ActiveWorkbook.Connections("連線").Delete
即可刪除
現在則會產生出"股票代號"的連線，請教可用變數的方式來處理嗎

中學生 Rank: 2

帖子: 23
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-6-24
最後登錄: 2024-4-11

11^#

發表於 2016-2-10 09:09 | 只看該作者

回復 clianghot546

WIN10+OFFICE2016 的pc裡有這資料夾嗎?

試試看建立資料
GBKEE 發表於 2016-2-9 13:29

再請教一個問題
原先下載完後會產生一個連線名為"連線" ,在程式最後用
ActiveWorkbook.Connections("連線").Delete
即可刪除
現在則會產生出"股票代號"的連線，請教可用變數的方式來處理嗎

中學生 Rank: 2

帖子: 23
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-6-24
最後登錄: 2024-4-11

10^#

發表於 2016-2-9 15:21 | 只看該作者

回復 8# GBKEE
謝謝GBKEE回覆
今日花時間從頭看一遍後發現有一處路徑未修改完全
現在可正常運作了

中學生 Rank: 2

帖子: 23
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-6-24
最後登錄: 2024-4-11

9^#

發表於 2016-2-9 15:05 | 只看該作者

回復 7# joey0415
joey0415
根據您的回覆我有稍作修改以套用在我的電腦
若有冒犯請見諒

超級版主 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兔年全勤獎章

8^#

發表於 2016-2-9 13:29 | 只看該作者

回復 6# clianghot546

WIN10+OFFICE2016卻會卡在 .SaveToFile ("C:\Users1\CYUser\Downloads" & "\" & 股票代碼 & ".CSV")

WIN10+OFFICE2016 的pc裡有這資料夾嗎?

試試看建立資料

Option Explicit
Sub Ex()
Dim xPath As String, i As Integer, S As String
xPath = "C:\Users1\CYUser\Downloads"
For i = 2 To UBound(Split(xPath, "\"))
S = Mid(xPath, 1, InStr(xPath, Split(xPath, "\")(i)) - 1)
If Dir(S, vbDirectory) = "" Then MkDir S
Next
If Dir(xPath, vbDirectory) = "" Then MkDir xPath
MsgBox Dir(xPath, vbDirectory)
End Sub

複製代碼

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

　暱稱: joey0415

中學生 Rank: 2

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

7^#

發表於 2016-2-6 19:01 | 只看該作者

回復 6# clianghot546

C:\Users1\CYUser\Downloads" & "\" & 股票代碼 & ".CSV")

複製代碼

我的程式碼沒有這個哦！

C:\Users1\CYUser\Downloads

路徑不對哦

中學生 Rank: 2

帖子: 23
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-6-24
最後登錄: 2024-4-11

6^#

發表於 2016-2-6 10:29 | 只看該作者

回復 clianghot546

下載csv ，匯入再刪除即可
joey0415 發表於 2016-2-4 15:12

再請教
原先的vba碼在WIN7+OFFICE2010可運行
在WIN10+OFFICE2016卻會卡在 .SaveToFile ("C:\Users1\CYUser\Downloads" & "\" & 股票代碼 & ".CSV")
如下圖

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。

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