您目前已離線,請等候您的網際網路重新連線

如何將資料匯入 Microsoft SQL Server 從 Microsoft Excel

請注意--重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,且可能由 Microsoft Community 利用 Community Translation Framework技術或人工進行事後編修。翻譯過程並無專業譯者參與。Microsoft 同時提供使用者人為翻譯、機器翻譯及社群編修後的機器翻譯三種版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,所有翻譯文章都可能不盡完美,內容都可能出現詞彙、語意或文法上的錯誤。就翻譯內容之不正確或錯誤,或客戶因使用翻譯內容所產生的任何損害,微軟不負擔任何責任。Microsoft將依合理的商業努力不斷地更新機器翻譯軟體和工具,以期能為使用者提供更好的服務。

按一下這裡查看此文章的英文版本:306125
結論
本指南將逐步告訴您,如何將Microsoft SQL Server 範例資料庫Pubs中的資料匯入 Microsoft Excel 。

ActiveX Data Objects (ADO) 提供給任何類型的資料來源的存取。它是含有少數物件的平面物件模型。ADO 物件模型中的主要物件如下:
   Object          Description   -----------------------------------------------------------------------   Connection      Refers to the connection to the data source.   Recordset       Refers to the data extracted.   Command         Refers to a stored procedure or SQL statements that                    need to be executed.				
雖然有許多方法可以傳回藉由使用 ADO 資料錄集,但這份文件分別著重於連線和資料錄集物件。

需求

您必須有執行 Microsoft SQL Server 和包含 Pubs 資料庫的本機伺服器。

Microsoft 建議您具備下列知識:
  • 建立 Visual Basic for Applications 在 Office 程式中的程序。
  • 使用物件變數。
  • 使用 Excel 物件。
  • 關聯式資料庫管理系統 (RDBMS) 概念。
  • 結構化查詢語言 (SQL) 的 (SQL) SELECT 陳述式。

參照 ADO 物件程式庫

  1. 啟動 Excel。開啟新的活頁簿,然後將它儲存為 SQLExtract.xls。
  2. 啟動 [Visual Basic 編輯器],然後選取您的 VBA 專案。
  3. 在上 工具 功能表中,按一下 參考.
  4. 按一下以選取的最新版本 Microsoft ActiveX 資料物件程式庫 核取方塊。

建立連線

  1. 將新模組插入專案。
  2. 建立新的 Sub 程序,稱為 DataExtract。
  3. 輸入或貼上下列程式碼:
    ' Create a connection object.Dim cnPubs As ADODB.ConnectionSet cnPubs = New ADODB.Connection' Provide the connection string.Dim strConn As String'Use the SQL Server OLE DB Provider.strConn = "PROVIDER=SQLOLEDB;"'Connect to the Pubs database on the local server.strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"'Use an integrated login.strConn = strConn & " INTEGRATED SECURITY=sspi;"'Now open the connection.cnPubs.Open strConn					

擷取資料

輸入或貼上下列程式碼以擷取記錄:
' Create a recordset object.Dim rsPubs As ADODB.RecordsetSet rsPubs = New ADODB.RecordsetWith rsPubs	' Assign the Connection object.	.ActiveConnection = cnPubs	' Extract the required records.	.Open "SELECT * FROM Authors"	' Copy the records into cell A1 on Sheet1.	Sheet1.Range("A1").CopyFromRecordset rsPubs		' Tidy up	.CloseEnd WithcnPubs.CloseSet rsPubs = NothingSet cnPubs = Nothing				

驗證程式碼的運作

  1. 執行程式碼。
  2. 切換至 Excel,並查看活頁簿中的 Sheet1 以檢視資料。

疑難排解

如果您的程式碼似乎無回應,您會收到執行階段錯誤,您的資料庫伺服器可能無法使用。您可以使用 ConnectionTimeout 屬性來控制傳回執行階段錯誤的時間。這個屬性設為大於零。如果您將值設定為零,連線將不會逾時時間。預設值為 15 秒。
参考
您可以找到其他的範例程式碼,藉由搜尋下列 Microsoft 網站:
acc2002 xl2002 XL2003 XL2007

警告:本文為自動翻譯

內容

文章識別碼:306125 - 最後檢閱時間:05/10/2015 03:46:00 - 修訂: 4.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition

  • kbhowtomaster kbmt KB306125 KbMtzh
意見反應