excel和ms sql

leo1889

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

c_c_lai

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

uranus_tw2

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

vanguarx

當然可以
參考這邊的說明 "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