什么是VBA
VBA是Visual Basic for Applications(应用程序语言)，是一种可用于可视化应用程序集成开发环境中的编程语言，主要用于Microsoft Office软件中的宏编程。
简单来说，就是可编写代码通过对各种Office应用进行自动化操作，提高生产效率。
为何需要快速连接SQLServer数据库
在进行大规模数据处理时，单独的Excel文件或Access数据库很难胜任。因此，需要使用更加高效、稳定的数据库来存储和处理数据。这时，SQLServer就成为了一个比较好的选择。而VBA是Office自带的宏编程语言，可以方便快捷地连接SQLServer数据库，对数据进行实时处理和统计分析。
连接SQLServer数据库
连接SQLServer数据库需要使用VBA自带的ADO库。ADO库的全称是ActiveX Data Objects，是用于访问各种数据库的通用数据访问技术。以下是连接SQLServer数据库的大致步骤：
步骤一：创建连接对象
在VBA中，使用CreateObject方法可以创建连接对象。代码如下：
'定义变量
Dim cn As Object, connStr As String
'定义连接字符串
connStr = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=数据库名称;User Id=用户名;Password=密码;"
'创建连接对象
Set cn = CreateObject("ADODB.Connection")
'打开数据库连接
cn.Open connStr
上述代码中：
cn：定义了一个ADODB.Connection类型的变量，用于表示连接对象。
connStr：定义了一个连接字符串，用于指定连接数据库的详细信息。
Set cn = CreateObject("ADODB.Connection")：使用CreateObject方法创建连接对象。
cn.Open connStr：打开数据库连接。
步骤二：执行SQL语句
连接好数据库后，下一步就是执行SQL语句。SQL语句可以是查询、插入、更新、删除等各种类型。VBA可以使用Execute方法执行SQL语句。以下是一个简单的查询示例：
Dim rs As Object, sql As String
'定义查询语句
sql = "SELECT * FROM 表名"
'执行SQL语句并返回结果集
Set rs = cn.Execute(sql)
上述代码中：
rs：定义了一个ADODB.Recordset类型的变量，用于表示结果集。
sql：定义了一个SQL语句。
cn.Execute(sql)：执行SQL语句，并将结果集赋值给rs变量。
步骤三：处理结果集
执行SQL语句后，可以通过rs变量获取查询结果。以下是一个获取结果集数据的示例：
'遍历结果集中的所有行和列
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Name & ": " & rs.Fields(i).Value
Next i
rs.MoveNext
Loop
'关闭结果集
rs.Close
Set rs = Nothing
上述代码中，使用rs.Fields.Count获取结果集中的列数，使用rs.Fields(i).Name获取当前列的名称，使用rs.Fields(i).Value获取当前列的值。同时，使用rs.MoveNext方法遍历结果集中的所有行。最后，通过rs.Close方法关闭结果集。
完整示例
以下是一个完整的VBA连接SQLServer数据库并查询数据的示例：
'定义变量
Dim cn As Object, rs As Object, sql As String
'定义连接字符串
connStr = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=数据库名称;User Id=用户名;Password=密码;"
'创建连接对象
Set cn = CreateObject("ADODB.Connection")
'打开数据库连接
cn.Open connStr
'定义查询语句
sql = "SELECT * FROM 表名"
'执行SQL语句并返回结果集
Set rs = cn.Execute(sql)
'遍历结果集中的所有行和列
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Name & ": " & rs.Fields(i).Value
Next i
rs.MoveNext
Loop
'关闭结果集
rs.Close
Set rs = Nothing
'关闭数据库连接
cn.Close
Set cn = Nothing
总结
通过VBA连接SQLServer数据库可以快速实现Office软件和数据库之间的数据交互。通过前面的示例，可以看出连接SQLServer数据库的过程非常简单，只需要定义连接字符串、创建连接对象、执行SQL语句、获取结果集，即可完成对数据库的操作。