Board logo

標題: excel 連接 SQL 2008語法 如何改進 與迴圈 [打印本頁]
作者: joey0415    時間: 2010-6-4 00:32     標題: excel 連接 SQL 2008語法 如何改進 與迴圈

小弟利用EXCEL讀取SQL2008的資料，想要從資料庫中抓出來計算，最後想再按照股票代碼跑迴圈，下面是小弟錄製的代碼，我覺得好像可以更簡單一些，請高手指點一下，當然錄製的代碼是2330，最後2330會用成變數來跑，不知道有人可以讓下面的連接方式更好或更快一些！謝謝


小弟只會這樣寫，當然有高手可以幫小弟改的更漂亮一些
  1. Sub 股票資料1()
  2. '

  4. '

  6.     Sheets("Sheet1").Select
  7.     Range("A1").Select
  8.     With ActiveSheet.QueryTables.Add(Connection:= _
  9.         "ODBC;DRIVER=SQL Server;SERVER=.;UID=sa;PWD=WXYZ1234;APP=Microsoft Office 2003;WSID=CS5111;DATABASE=stock" _
  10.         , Destination:=Range("A1"))
  11.         .CommandText = Array( _
  12.         "select * from (SELECT TOP 12 *  FROM stock.dbo.StockStore WHERE stockid=2330 ORDER BY sdate DESC) AAA ORDER BY sdate")
  13.         .Name = "來自 "
  14.         .FieldNames = True
  15.         .RowNumbers = False
  16.         .FillAdjacentFormulas = False
  17.         .PreserveFormatting = True
  18.         .RefreshOnFileOpen = False
  19.         .BackgroundQuery = True
  20.         .RefreshStyle = xlInsertDeleteCells
  21.         .SavePassword = True
  22.         .SaveData = True
  23.         .AdjustColumnWidth = True
  24.         .RefreshPeriod = 0
  25.         .PreserveColumnInfo = True
  26.         .Refresh BackgroundQuery:=False
  27.     End With

  29. End Sub
  30. Sub 股票資料2()
  31. '

  33. '

  35. '
  36.     Sheets("Sheet2").Select
  37.     Range("A1").Select
  38.     With ActiveSheet.QueryTables.Add(Connection:= _
  39.         "ODBC;DRIVER=SQL Server;SERVER=.;UID=sa;PWD=WXYZ1234;APP=Microsoft Office 2003;WSID=CS5111;DATABASE=stock" _
  40.         , Destination:=Range("A1"))
  41.         .CommandText = Array( _
  42.         " select * from (SELECT TOP 12 sdate,stockid, CreditMoney,CreditTick FROM stock.dbo.CreditExchangeMonth WHERE stockid=2330 ORDER BY sdate DESC) AAA ORDER BY sdate" _
  43.         )
  44.         .Name = "來自 "
  45.         .FieldNames = True
  46.         .RowNumbers = False
  47.         .FillAdjacentFormulas = False
  48.         .PreserveFormatting = True
  49.         .RefreshOnFileOpen = False
  50.         .BackgroundQuery = True
  51.         .RefreshStyle = xlInsertDeleteCells
  52.         .SavePassword = True
  53.         .SaveData = True
  54.         .AdjustColumnWidth = True
  55.         .RefreshPeriod = 0
  56.         .PreserveColumnInfo = True
  57.         .Refresh BackgroundQuery:=False
  58.     End With
  59. End Sub
複製代碼
作者: Hsieh    時間: 2010-6-4 18:31

回復 2# joey0415
查詢已經存在不再使用Add
假設代號是2030~2032
就同一個查詢使之變化
  1. Sub 股票資料1()
  2. For Each MyID In Array("2030","2031",2032")
  3.     With Sheets("Sheet1").QueryTables(1)
  4.         .CommandText = Array( _
  5.         "select * from (SELECT TOP 12 *  FROM stock.dbo.StockStore WHERE stockid=" & MyID & " ORDER BY sdate DESC) AAA ORDER BY sdate")
  6.         .Name = "來自 "
  7.         .FieldNames = True
  8.         .RowNumbers = False
  9.         .FillAdjacentFormulas = False
  10.         .PreserveFormatting = True
  11.         .RefreshOnFileOpen = False
  12.         .BackgroundQuery = True
  13.         .RefreshStyle = xlInsertDeleteCells
  14.         .SavePassword = True
  15.         .SaveData = True
  16.         .AdjustColumnWidth = True
  17.         .RefreshPeriod = 0
  18.         .PreserveColumnInfo = True
  19.         .Refresh BackgroundQuery:=False
  20.     End With
  21. Next
  22. End Sub
複製代碼
作者: joey0415    時間: 2010-6-4 21:40

本帖最後由 joey0415 於 2010-6-4 21:44 編輯

[quote]回復  joey0415
查詢已經存在不再使用Add
假設代號是2030~2032
就同一個查詢使之變化
  1. # Sub 股票資料1()
  2. # For Each MyID In Array("2030","2031",2032")
  3. #     With Sheets("Sheet1").QueryTables(1)
  4. #         .CommandText = Array( _
  5. #         "select * from (SELECT TOP 12 *  FROM stock.dbo.StockStore WHERE stockid=" & MyID & " ORDER BY sdate DESC) AAA ORDER BY sdate")
  6. #         .Name = "來自 "
  7. #         .FieldNames = True
  8. #         .RowNumbers = False
  9. #         .FillAdjacentFormulas = False
  10. #         .PreserveFormatting = True
  11. #         .RefreshOnFileOpen = False
  12. #         .BackgroundQuery = True
  13. #         .RefreshStyle = xlInsertDeleteCells
  14. #         .SavePassword = True
  15. #         .SaveData = True
  16. #         .AdjustColumnWidth = True
  17. #         .RefreshPeriod = 0
  18. #         .PreserveColumnInfo = True
  19. #         .Refresh BackgroundQuery:=False
  20. #     End With
  21. # Next
複製代碼
請問版主，是不是要先執行輸入帳號與密碼的SQL連線設定，才能使用版主的批次設定，請問要如何增加在版主所寫的程式上呢？感謝版主用心回應
作者: Hsieh    時間: 2010-6-4 22:12

你既然已經錄製出來
可見你得查詢已經建立
所以帳號密碼應該都被記錄
你先套用看看是否有達到變化
再針對遇到的問題發問



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)