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

[發問] 下載上櫃股票每日收盤行情, 只顯示標提列

k123456770

中學生 Rank: 2

帖子: 42
主題: 4
精華: 0
積分: 56
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2014-1-10
最後登錄: 2019-5-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-14 17:32 | 只看該作者

[發問] 下載上櫃股票每日收盤行情, 只顯示標提列

我想要下載上櫃股票每日收盤行情
可是修改後只會列出標題
請前輩指點

上櫃股票下載.rar (10.08 KB)

樓主熱帖

tyrone123456

中學生 Rank: 2

帖子: 49
主題: 0
精華: 0
積分: 54
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-4-14
最後登錄: 2015-7-16

2^#

發表於 2015-4-14 21:26 | 只看該作者

因為我目前無法下載你的檔案，所以可以用貼圖方式來描述你的問題嗎?
我之前的程式寫法如下所述，不知道是否與你的需求相同：
1、輸入期望的日期起訖，或再增加股票編號〈條件判斷，若有股票編號查詢條件，則待會資料只需整理該筆資料，若無股票編號，就全部都整理〉
2、自動判定是否該日的檔案是否存在，若無，則自動到上市上櫃網頁下載檔案且儲存在電腦內〈這樣資料可以重複使用，而且不需擔心時間久了，網路資料就不見了〉
3、自動開啟下載的檔案，並根據需求抓取Data〈譬如某一檔股票的那一列資料〉，自動依據日期排列資料，最後再自動繪趨勢圖

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

3^#

發表於 2015-4-14 22:05 | 只看該作者

Sub otc()
Cells.Delete
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.tpex.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430_print.php?l=zh-tw&d=104/04/14&se=EW&s=0,asc,0" _
, Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

日期改一改就行

TOP

k123456770