交易明細下載 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 交易明細下載

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

交易明細下載

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

1^# 跳轉到 »

發表於 2012-7-31 09:23 | 顯示全部帖子

http://bsr.twse.com.tw/bshtm/

這個網站比較有人性一點參數找的到也可以設定

但是我不知道頁數有幾 ...
a2305577 發表於 2012-7-31 05:28

嗨~
剛看了一下
主要就是他的網址已經默默地改了= ="
新的是: http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=1101&FocusIndex=1
所需參數只有股票代碼而已
這樣問題應該就解決了吧:)

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

2^#

發表於 2012-8-1 10:59 | 顯示全部帖子

本帖最後由 lalalada 於 2012-8-1 11:00 編輯

喔喔不好意思
之前我以為成功了結果跑完之後發現資料是錯的...
這是我之前寫的:
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
With WinHttpReq
.Open "POST", URL, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send (varBody)
         Set oStream = CreateObject("ADODB.Stream")
         oStream.Open
         oStream.Type = 1
         oStream.Write WinHttpReq.ResponseBody
         oStream.SaveToFile ("C:\AA\temp\" & CStr(code) & ".csv")
         oStream.Close
End With
Application.Workbooks.Open ("C:\AA\temp\" & CStr(code) & ".csv")
Cells.Find(what:="sp_list").Activate
Page = Left(ActiveCell, a, b)
就如之前所說是將網頁原始檔抓下來再讀取
發現後就開始修改等真的弄好再po完整版
這幾天只能繼續用G版大之前寫的土法煉鋼抓有興趣的股票囧
目前可能要請教用PYTHON的那位囉看起來好像可以抓成csv檔(?)
不過他似乎專注於開新版而沒有要PO程式碼的意思
所以最近也要開始學了~

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

3^#

發表於 2012-8-1 13:56 | 顯示全部帖子

回復 9# GBKEE

yap 就是這個
另外提供一小段程式碼
可以免去手動輸入日期
反正他也只有一天的資料可以下載
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=1101&FocusIndex=All_1", Destination:=Range("A1"))
      .PreserveFormatting = True
      .RefreshStyle = xlInsertDeleteCells
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "4,""table2"""
      .Refresh BackgroundQuery:=False
      End With
dataDate = Format(Cells(1, 2), "yyyymmdd")

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

4^#

發表於 2012-8-1 14:05 | 顯示全部帖子

回復 GBKEE

yap 就是這個
另外提供一小段程式碼
可以免去手動輸入日期
反正他也只有一天的資料可以 ...
lalalada 發表於 2012-8-1 13:56

超過三分鐘不能編輯...
我發現日期隨便打抓到的東西都一樣!
所以也不需要特別指定了@@

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

5^#

發表於 2012-8-1 14:31 | 顯示全部帖子

實際上不需要輸入日期引數就可以載入網頁~

另外想請教
.ResultRange(1).End(xlDown).Offset(2).CurrentRegion.Cut .ResultRange(1).End(xlToRight).Offset(, 1)
這兩句是什麼意思?

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

6^#

發表於 2012-8-1 16:06 | 顯示全部帖子

回復 13# GBKEE
回復 14# HSIEN6001

感謝兩位的說明!!

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

7^#

發表於 2012-8-2 02:13 | 顯示全部帖子

回復 18# sd-jason

寫個迴圈就可以囉..
基本上就是
for x = 1 to 10
code=cells(x,1) 'cell是存放股票代碼的儲存格一開始先打好
'把code代入原程式的"股票代碼"
next

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

8^#

發表於 2012-8-2 23:12 | 顯示全部帖子

回復 20# a2305577

加在WITH ACTIVESHEET的前面
就可以一次下載很多支股票
看起來會比一支一支重新輸入快阿@@?
至少不用待在電腦前
如果你願意把全部代碼輸入的話要全部下載也是可以(?)
只是要很久所以沒試過...

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

9^#

發表於 2012-8-9 10:32 | 顯示全部帖子

回復 25# HSIEN6001
回復 23#

印象中板上有人po過抓上櫃的code
仔細找找應該有~

還是csv好用!
現在處理上櫃資料比處理上市資料容易得多
而且上櫃給的資料格式比較整齊內容也比較完整~"~
持續努力中
最近持續進行效能改善而且喜歡一直加些有的沒的功能XD

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

10^#

發表於 2012-8-9 11:40 | 顯示全部帖子

回復 28# HSIEN6001

好耶~
我也在想怎麼把htm良好的轉成csv或xls
成功的話我目前的問題幾乎就全部解決了

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

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