python 融資融券彙總 (全部)"資料

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

18^# 跳轉到 »

發表於 2016-9-26 15:42 | 只看該作者

回復 17# lpk187
測試結果如下：

從多個角度來測試，實在太棒了。
謝謝囉！

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

17^#

發表於 2016-9-25 17:20 | 只看該作者

本帖最後由 lpk187 於 2016-9-25 17:22 編輯

回復 13# c_c_lai

研究了一下 pandas 取出再導入到CSV 或Excel

import pypyodbc
import pandas as pd
MDB = 'D:\\Python\\融資融券彙總\\twsedata.mdb'
DRV = '{Microsoft Access Driver (*.mdb, *.accdb)}'
con = pypyodbc.connect('DRIVER={};DBQ={}'.format(DRV, MDB))
data = pd.read_sql('select * from 1220', con) # 取出
data.to_excel('1220.xlsx', sheet_name='1220') #導入到Excel
data.to_csv('1220.csv') #導入到 CSV
data

複製代碼

TOP

koshi0413

中學生 Rank: 2

帖子: 55
主題: 1
精華: 0
積分: 81
點名: 0
作業系統: win
軟體版本: 10
閱讀權限: 20
註冊時間: 2016-5-15
最後登錄: 2018-11-1

16^#

發表於 2016-9-25 16:07 | 只看該作者

回復 c_c_lai

給您參考 SQLite3 導入 Excel
acc作法應該也差不多

注意!!! 這是一次全導入，所以資 ...
koshi0413 發表於 2016-9-25 14:25

找到了此代碼為 joey0415 大大寫的
http://forum.twbts.com/viewthread.php?tid=9984

TOP

koshi0413

中學生 Rank: 2

帖子: 55
主題: 1
精華: 0
積分: 81
點名: 0
作業系統: win
軟體版本: 10
閱讀權限: 20
註冊時間: 2016-5-15
最後登錄: 2018-11-1

15^#

發表於 2016-9-25 14:25 | 只看該作者

本帖最後由 koshi0413 於 2016-9-25 14:30 編輯

回復 13# c_c_lai

給您參考 SQLite3 導入 Excel
acc作法應該也差不多

注意!!! 這是一次全導入，所以資料量太大，會很慢
應該可以導入局部，只是小弟尚未用到，還沒深入

Sub SQLite3_to_Excel()
印像中可以在 "SELECT * FROM " & TableName & " " 加入只提取十行
Dim cn, rs, f, SQLName, TableName, ix%, SheetsName
SQLName = "C:\Users\Koshi\Documents\Python Scripts\SQLite3\2330.sqlite"
TableName = "sql表格名稱"
SheetsName = "Excel工作表名稱"
ix = 10 '開始於第十行
Sheets(SheetsName).Select
Set cn = CreateObject("adodb.connection")
cn.Open ("Driver={SQLite3 ODBC Driver};database=" & SQLName) '開啟sqlite指定資料庫，路徑與檔案名稱要對
Set rs = cn.Execute("SELECT * FROM " & TableName & " ") '寫出SQL查詢語法
Sheets(SheetsName).Cells.Delete '清除工作表資料
For f = 0 To rs.Fields.Count - 1
Sheets(SheetsName).Cells(ix, f + 1).Value = rs.Fields(f).Name '導入欄位名稱
Next
Sheets(SheetsName).Cells(ix + 1, 1).CopyFromRecordset (rs) '導入欄位資料
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

14^#

發表於 2016-9-25 11:19 | 只看該作者

回復 13# c_c_lai

在python 中，我也還是在學習，所以知道的甚少
要從資料庫中拿出來，以Pywin32 ADODB的用法和VBA很類似

你可以參考http://wiki.alarmchang.com/index.php?title=Python 裡面有很多例子參考
甚至控制Excel都可以，就要看從資料庫中提取出來後要做什麼(因為我沒玩股票，也不知道這些數據該用什麼？這問題可能要請教各位大大了)

TOP

c_c_lai