利用Excel连接MSSQL数据库快速生成报表

---

连接MSSQL数据库生成查询结果

在实际工作中，使用Excel连接MSSQL数据库并生成查询结果是一种非常有效的方法，特别适用于快速制作ERP报表或其他软件报表。通过设置好打印格式，只需输入条件和点击按钮，即可轻松获取数据，操作十分方便。

设置Excel表单控件和按钮

首先，在Excel中选择开发工具，进入设计模式，再插入表单控件并选择按钮。接着，设置两个单元格作为输入条件的内容。通过快捷键ALT F11调出Microsoft Visual Basic for Applications，输入连接数据库代码和执行代码，示例如下：

```vba

Private Sub CommandButton1_Click()

Dim conn1 As New , ConnStr1 As String, rds1 As New , blstr1 As String, blstr2 As String

Dim sqlstr1 As String

Dim sqlstr2 As String

blstr1 UCase(ActiveSheet.Range("B1"))

blstr2 UCase(ActiveSheet.Range("D1"))

ActiveSheet.Range("A3:IV65536").ClearContents

ConnStr1 "ProviderSQLOLEDB.1;Password密码;Persist Security InfoTrue;User ID用户名;Initial Catalog数据库;Data Source数据库来源地址"

sqlstr1 "select * from 表1 where A列'39;'" blstr1 "'39;' and B列'39;'" blstr2 "'39;'"

ConnStr1

adUseClient

sqlstr1, conn1, adOpenForwardOnly, adLockReadOnly

ActiveSheet.Range("A3").CopyFromRecordset rds1

ActiveSheet.Range("A3", "R" (2 )) xlContinuous

End Sub

```

自定义刷新表格样式

通过更改参数或单元格编号，可以使刷新后的表格具有不同的框线效果。例如，`ActiveSheet.Range("A3").CopyFromRecordset rds1`表示从A3格开始输出数据，而`ActiveSheet.Range("A3", "R" (2 )) xlContinuous`表示在A3到R列范围内有数据的地方增加框线效果。

通过以上步骤，利用Excel连接MSSQL数据库并生成报表将变得更加灵活和高效，让报表制作变得更加便捷。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。