標題: excel和ms sql [打印本頁]

---

作者: leo1889    時間: 2016-5-11 00:00     標題: excel和ms sql

請問各位先進：如果用excel  和dde來抓取資料，是否能即時存入ms sql？謝謝。

---

作者: c_c_lai    時間: 2016-5-11 18:58

回復 1# leo1889
這問題太超出想像了，Excel 都能與 Acess 資料處理了，
你說能不能與 MySQL 聯結呢？

---

作者: uranus_tw2    時間: 2016-9-8 11:46

巨集中用recordset、connection兩種物件透過SQLOLEDB即可連到SQL SERVER了。

---

作者: vanguarx    時間: 2017-6-21 14:06

當然可以
參考這邊的說明 "tomliu888.blogspot.tw/2016/04/excel-ms-sql-vba.html"
因不能貼連結, 所以把內容貼上來
Sub connectSQL()
    Dim Conn As ADODB.Connection
    Dim sConnect As String
    Dim strSqlInstance As String
    Dim strSqlDB As String
    Dim strSqlUser As String
    Dim strSqlPWD As String
    ' strSqlInstance = "SERVER_NAME\INSTANCE"
    ' 如果伺服器只有裝一次 SQL，就只要輸入伺服器名稱
    strSqlInstance = "Your SQL Server Name or IP Address"
    strSqlDB = "Your Database Name"
    strSqlUser = "sa"
    strSqlPWD = "password"
    sConnect = "Provider=SQLOLEDB"
    sConnect = sConnect & ";DATA SOURCE=" & strSqlInstance & ";Initial Catalog=" & strSqlDB
   ' 如果把 User ID=...;Password=... 改成 "Integrated Security=sspi;"，認證方式就變成 AD 登入帳號
    sConnect = sConnect & ";User ID=" & strSqlUser & ";Password=" & strSqlPWD & ";"
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = sConnect
    Conn.Open
   ' 這裡輸入你處理 SQL 的命令
    Conn.Close
End Sub

---

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