如何將Microsoft SQL Server資料 匯入到Microsoft Excel 中

文章翻譯 文章翻譯
文章編號: 306125 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

本指南將逐步告訴您,如何將 Microsoft Excel 將資料匯入來自 Pubs 資料庫中,Microsoft SQL Server 所隨附的範例資料庫。

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 建議您有下列知識:
  • 在 Office 程式中的程序建立 Visual Basic for Applications。
  • 使用物件變數。
  • 使用 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.Connection
    Set 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.Recordset
Set rsPubs = New ADODB.Recordset

With 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
	.Close
End With

cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing
				

驗證程式碼的運作

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

疑難排解

如果您的程式碼似乎無回應,而且您會收到執行階段錯誤,您的資料庫伺服器可能已中斷。您可以使用 ConnectionTimeout 屬性來控制傳回執行時期錯誤所花費的時間。這個屬性設為大於零。如果您設定的值為 0 時,連線將不會逾時時間。預設值為 15 秒。

?考

您可以找到其他的範例程式碼,藉由搜尋下列 Microsoft 網站:
http://msdn.microsoft.com/

屬性

文章編號: 306125 - 上次校閱: 2013年3月29日 - 版次: 3.0
這篇文章中的資訊適用於:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
關鍵字:?
kbhowtomaster kbmt KB306125 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:306125
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com