暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
我自己以前這樣寫，你參考看看- sub ex
-
- Set cnn = CreateObject("adodb.connection")
- cnn.Open ("Driver={SQLite3 ODBC Driver};database=" & ThisWorkbook.Path & "\CB.sqlite")'自行修改drive
- Set rss = cnn.Execute("select * from XXX")
- For i = 0 To rss.Fields.Count - 1 '取標題，如果不要可省略
- Cells(1, i + 1) = rss.Fields(i).Name
- Next
- Worksheets("X").Cells(2, 1).CopyFromRecordset (rss) 'cells(2,1)第一行有標題
- cnn.Close
- Set cnn = Nothing
- Set rss = Nothing
-
- end sub
|
|
發表於 2016-2-29 10:02
| 