使用Excel VBA连接SQL Server数据库并将表中的数据显示到Excel中

在Excel中使用VBA编程语言，我们可以轻松地连接到SQL Server数据库，并将数据库表中的数据显示在Excel工作表中。以下是详细的步骤和源代码示例。

步骤1：启用VBA编辑器
要开始编写VBA代码，首先需要启用VBA编辑器。在Excel中，按下Alt + F11键打开VBA编辑器。

步骤2：添加对ADO库的引用
在VBA编辑器中，选择“工具”菜单，然后选择“引用”。在出现的对话框中，找到并选中“Microsoft ActiveX Data Objects x.x Library”（其中x.x是版本号），然后点击“确定”按钮。

步骤3：编写VBA代码
在VBA编辑器中的代码窗口中，编写以下代码：

Sub ConnectToSQLServer()
    ' 声明变量
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim connStr As String
    Dim strSQL As String
    Dim serverName As String
    Dim dbName As String
    Dim tableName As String
    
    ' 设置数据库连接字符串
    serverName = "数据库服务器名称" ' 替换为实际的数据库服务器名称
    dbName = "数据库名称" ' 替换为实际的数据库名称
    tableName = "表名称" ' 替换为实际的表名称
    connStr = "Provider=SQLOLEDB;Data So