返回列表 上一主題 發帖

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

clianghot546

帖子
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)
收藏 分享

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
2#
發表於 2016-2-4 09:06 | 顯示全部帖子
回復 2# joey0415
謝謝joey0415的回覆
已試過可行
但是能否有直接類似"從web"下載後直接匯入excel儲存格的語法

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
3#
發表於 2016-2-4 17:44 | 顯示全部帖子
回復 4# joey0415
謝謝joey0415的指教
可以正常運作了

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
4#
發表於 2016-2-6 10:29 | 顯示全部帖子
回復  clianghot546

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


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

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
5#
發表於 2016-2-9 15:05 | 顯示全部帖子
回復 7# joey0415
joey0415
根據您的回覆我有稍作修改以套用在我的電腦
若有冒犯請見諒

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
6#
發表於 2016-2-9 15:21 | 顯示全部帖子
回復 8# GBKEE
謝謝GBKEE回覆
今日花時間從頭看一遍後發現有一處路徑未修改完全
現在可正常運作了

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
7#
發表於 2016-2-10 09:09 | 顯示全部帖子
回復  clianghot546


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

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

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

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
8#
發表於 2016-2-10 09:13 | 顯示全部帖子
回復 8# GBKEE


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

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
9#
發表於 2016-2-13 22:49 | 顯示全部帖子
回復 13# GBKEE
tks! 先暫時用手動刪除作業

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題