帖子: 32
主題: 2
精華: 0
積分: 67
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2020-12-30

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-1-4 10:53 | 只看該作者

上櫃股票融資融券餘額CSV下載問題

各位大大您好:請問
上櫃股票融資融券餘額CSV下載 :
網址:http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal.php

以:http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal_download.php?d=103/01/03&s=0,asc,1

產生下情況
代號,  名稱,  前資餘額(張),  資買,  資賣,  現償,  資餘額,  資屬證金, 資使用率(%), 資限額,,  券餘額,  券屬證金,  券使用率(%), 券限額,  資券相抵(張),  備註
1259  ,"安心","303","2","0","0","305","6","3.77","8,097","0","0","0","0","0","0","0.0","8,097","0","1    C "
1333  ,"恩得利","0","0","0","0","0","0","0.0","21,275","0","0","0","0","0","0","0.0","21,275","0"," OX       "

請大大指教謝謝

GBKEE

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

18^#

發表於 2014-7-28 15:37 | 只看該作者

想請教GBKEE大大是如何取得csv下載點的?
因為本身是初學者，被下載點的問題困擾很久，
再麻煩大大賜 ...
yungchan 發表於 2014/7/28 07:49

那要看網頁是否提供csv檔(要找找看)

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

TOP

yungchan

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: abdroid
軟體版本: 4.0
閱讀權限: 10
註冊時間: 2014-7-28
最後登錄: 2014-8-1

17^#

發表於 2014-7-28 07:49 | 只看該作者

回復 jerrystock
GBKEE 發表於 2014-1-2 11:19

想請教GBKEE大大是如何取得csv下載點的?
因為本身是初學者，被下載點的問題困擾很久，
再麻煩大大賜教，感謝感謝

TOP

GBKEE

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

16^#

發表於 2014-6-20 06:32 | 只看該作者

本帖最後由 GBKEE 於 2014-6-20 06:45 編輯

回復 15# pupai
搜尋一下這網址

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

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

15^#

發表於 2014-6-19 17:01 | 只看該作者

回復 13# GBKEE

請問版主
我想下在在網站的資料
http://www.twse.com.tw/ch/trading/fund/T86/T86.php
但我的為什麼程式的執行階段有錯誤
請指導謝謝!!

Sub E()
Dim URL As String, xDate As Date, A As Date
A = Range("A2").Value
xDate = Format(A, "E/M/D")
ReDate:
URL = "URL; http://www.twse.com.tw/ch/trading/fund/T86/T86.php?qdate=" & xDate
With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("B1"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

14^#

發表於 2014-6-18 14:34 | 只看該作者

回復 13# GBKEE

報告G大
12#部分不知道哪要修改
請指導!
謝謝

TOP

GBKEE

超級版主 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^#

發表於 2014-6-18 12:59 | 只看該作者

回復 12# pupai
找找看12#的程式碼,哪裡要修改!

Sub EXC()
Dim Theurl As String, Sdate
Dim URL As String, xDate As String, A As Date
A = Range("A1").Value
xDate = Format(A, "E/MM/DD")
Theurl = "http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=" & xDate & "&s=0"

複製代碼

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

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

12^#

發表於 2014-6-18 10:41 | 只看該作者

回復 2# GBKEE

請問G大
我想要指定日期下載
但一直沒能成功
可以幫我看看麻
謝謝!!

Sub EXC()
Dim Theurl As String, Sdate
Dim URL As String, xDate As Date, A As Date
A = Range("A1").Value
xDate = Format(A, "E/M/D")
Theurl = "http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=& xDate &s=0"
With ActiveSheet.QueryTables.Add(Connection:="URL;" & Theurl, Destination:=Range("A2"))
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.RefreshPeriod = 0
.AdjustColumnWidth = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
'.WebTables = "1,2,3,4"
.WebDisableDateRecognition = True '關閉日期辨識
.Refresh BackgroundQuery:=False
.ResultRange.Columns(1).TextToColumns Destination:=.ResultRange.Cells(1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1)), TrailingMinusNumbers:=True
'TextToColumns 方法 (資料剖析)的參數可錄製得到
'ResultRange.Columns(1):weby資料的第一欄
'ResultRange.Cells(1) :weby資料的第一個Cells(儲存格)
.Delete
End With
End Sub

複製代碼

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

11^#

發表於 2014-6-17 14:24 | 只看該作者

回復 10# pupai

報告G大
我知道問題在哪了
謝謝~打擾

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

10^#

發表於 2014-6-17 14:19 | 只看該作者

回復 5# GBKEE

請問版主
我將上述網址換成 http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=102/12/31&s=0 這一段
結果只下載了表頭，沒有下載資料內容
請問該如何修改
謝謝!!

TOP

上櫃股票融資融券餘額CSV下載問題

上櫃股票融資融券餘額CSV下載問題

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]