[發問] 請問如何將SQL資料表中某一欄資料複製到EXCEL呢?

algoji3ji3

各位大大請問CopyFromRecordset rs會將整個資料表輸出到EXCEL上，但是如果我只要其中一整欄資料該怎麼改呢?

1. Private Sub CommandButton2_Click()
   
2. 
   
3. '定義部份
   
4. Dim cn As ADODB.Connection 'Excel連接
   
5. Dim rs As ADODB.Recordset '得來的結果,會放到立這個rs的地方.
   
6. Dim strDataSrcXlsPath As String '數據庫EXCEL位置
   
7. Dim strQuery As String '用作拿數據的SQL
   
8. Dim strStartlocation As String '定義得來數據,放到那一個位置.
   
9. 
   
10. 'I) 以下建立數據庫連接
    
11. strDataSrcXlsPath = ThisWorkbook.Path & "\資料.xlsx" '定立數據庫EXCEL位置
    
12. 
    
13. Set cn = New ADODB.Connection
    
14. 
    
15. With cn
    
16. '確定連接所用的Library
    
17. .Provider = "Microsoft.ACE.OLEDB.12.0"
    
18. .CursorLocation = adUseClient
    
19. '把連接指向指定Excel
    
20. 'xtended properties為excel的版本, 通常為12 或 8,
    
21. '12為2007Excel檔(如XLSX,XLSM). 8可相容1997-2003等excel(XLS)
    
22. .ConnectionString = "Data Source=" & strDataSrcXlsPath & _
    
23. ";Extended Properties=Excel 12.0;"
    
24. '開始連接,這個時候ACE會打開excel
    
25. .Open
    
26. End With
    
27. 
    
28. 'II) 以下運行SQL和回傳數據
    
29. '拿出一行資料,所用SQL架構大約為
    
30. 'SELECT ... FROM ... WHERE
    
31. '
    
32. 'SELECT 上的 * 用作指明拿出所有表上的欄位
    
33. 'TOP 50 是指抽出頭50列數據
    
34. '
    
35. 'FROM 從DATASHEET工作表抽出
    
36. 'strQuery = "SELECT top 10 * FROM [總表$]"
    
37. strQuery = "SELECT 站別分析,類別,月份,日期,SUM(產出數) AS 總數 " & _
    
38.            "FROM [總表$] " & _
    
39.            "where 日期 between #2018/9/1# and #2018/9/30# " & _
    
40.            "GROUP BY 站別分析,類別,月份,日期 HAVING 類別='305AS'" & _
    
41.            "ORDER BY 站別分析,日期"
    
42.       
    
43. 'strQuery = "SELECT 日期 " & _
    
44.            "FROM [總表$] " & _
    
45.            "where 日期 between #2018/9/1# and #2018/9/30# " 'HAVING 類別='305AS'"
    
46. 
    
47. Set rs = cn.Execute(strQuery) '執行SQL
    
48. 
    
49. 'III) 把數據抄至所需的位置
    
50. strStartlocation = "A1"
    
51. 
    
52. 'III-1 把欄位名稱一個一地拿出
    
53. 'rs.Fields.Count : 欄位數數
    
54. 'rs.Fields(n).Name : 欄名
    
55. Dim lngColCounter As Long
    
56. i = -1
    
57. For lngColCounter = 0 To rs.Fields.Count - 1
    
58.     Range(strStartlocation).Offset(0, lngColCounter) = rs.Fields(lngColCounter).Name
    
59. Next lngColCounter
    
60. 'III-2 把數據庫資料列表拿出
    
61. 
    
62. ActiveSheet.Range(strStartlocation).Offset(1, 0).CopyFromRecordset rs
    
63. 
    
64. 'IV) 關掉/清理連接
    
65. cn.Close
    
66. Set cn = Nothing
    
67. Set rs = Nothing
    
68. 
    
69. End Sub

複製代碼

指定欄匯出.rar (66.69 KB)

範例
下載次數: 0

2018-10-30 19:54

milk30320

回復 1# algoji3ji3
可以在資料庫語法那邊select你要的特定欄位,在全部丟到excel上面!

algoji3ji3

大大我換個問法~

下面這段指令事將整個數據庫放在"A1"的位置
ActiveSheet.Range(strStartlocation).Offset(1, 0).CopyFromRecordset rs

那如果我要分別將數據庫中的各"整欄"分別抽出放到各別指定位置呢?