如何将数据从 Microsoft SQL Server 导入 Microsoft Excel

文章翻译 文章翻译
文章编号: 306125 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

本分步指南介绍如何将数据导入 Microsoft Excel,从 Pubs 数据库中包含 Microsoft SQL Server 的一个示例数据库。

ActiveX 数据对象 (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) SELECT 语句。

引用 ADO 对象库

  1. 启动 Excel。打开新工作簿,然后将其保存为 SQLExtract.xls。
  2. 启动 Visual Basic 编辑器,然后选择 VBA 项目。
  3. 在上 工具 菜单上,单击 引用.
  4. 单击以选择最新版本 Microsoft ActiveX 数据对象库 复选框。

创建连接

  1. 在项目中插入一个新的模块。
  2. 创建名为 DataExtract 的新的 Sub 过程。
  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 属性用于控制将返回运行时错误所需的时间。此属性设置为一个值大于零。如果您将该值设置为零,连接将永远不会超时。默认值为 15 秒。

参考

您可以通过搜索以下 Microsoft 网站找到附加的示例代码:
http://msdn.microsoft.com/

属性

文章编号: 306125 - 最后修改: 2012年4月19日 - 修订: 1.0
这篇文章中的信息适用于:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 标准版
关键字:?
kbhowtomaster kbmt KB306125 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 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