Board logo

標題: [發問] 下載 上櫃股票每日收盤行情, 只顯示標提列 [打印本頁]
作者: k123456770    時間: 2015-4-14 17:32     標題: 下載 上櫃股票每日收盤行情, 只顯示標提列

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

[attach]20643[/attach]
作者: tyrone123456    時間: 2015-4-14 21:26

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

  1. Sub otc()
  2. Cells.Delete
  3.     With ActiveSheet.QueryTables.Add(Connection:= _
  4.         "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" _
  5.         , Destination:=Range("$A$1"))
  6.         .Refresh BackgroundQuery:=False
  7.     End With
  8. End Sub
複製代碼
日期改一改就行
作者: k123456770    時間: 2015-4-15 14:11

T大, 謝謝您的回覆, 不過我再留存的是 Raw Data
J大, 那請問如果是 直接抓取當天收盤資訊 日期部分要如何更改?
作者: joey0415    時間: 2015-4-15 22:26

回復 4# k123456770
程式碼中的
104/04/14


    就是日期
作者: k123456770    時間: 2015-4-20 20:03

恩...我知道可以更改那邊
但是是否可以不用每天更改, 默認下載當天資料



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)