- 帖子
- 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
|
|
