使用VB+Excel制作工程报表1VIP专享

VB 操作Excel 制作工程报表 在工控项目中，报表的制作一直是困扰大部分现场工程师的一个难题，灵活多变的用户需求，复杂的数据表现格式，使得数据的组织十分麻烦。 近日，笔者制作的一个项目用户需要的报表十分繁琐，呈现形式、打印方式等要求较高，这写都要求较高的编程技术，而 Excel 是处理数据报表的十分方便而强大的工具，如果我们将数据全部提交到Excel 中去，在Excel 中按照用户的意愿进行报表的设计和打印，则是十分轻松的工作。因此，笔者考虑使用VB 将数据提交到Excel 中，并操作它完成灵活的报表工作。 首先，从数据库中查询需要的数据。本文以Access 数据库为例，使用VB 编程，通过ADO 编程接口访问Access 数据库，提取需要的数据后填充预定义的Excel 表格。 1，建立Access 数据库。本文假设一个数据库SamDb，建立一个表 Table，该表的字段设置如下图示： 2，打开VB，在窗体上画上如下控件，在工程引用中引入ADO2.8库。为了示例的需要，加入插入数据一项，用来向数据表中添加示例数据。 将 Text 控件的text 属性设置为空字符串。添加Dbcon 公共过程。 Public Sub Dbcon(ByVal FilePaht As String, ByVal CmdSelect As Boolean, ByVal CmdStr As String) Con.Open "provider = microsoft.jet.oledb.4.0;data source =" + FilePaht If CmdSelect Then Rst = Cmd.Execute(CmdStr) Else Cmd.Execute (CmdStr) End If End Sub 该模块接受Sql 命令字符串通过ADO 执行命令，根据命令有没有返回值分别执行。 在按钮“插入数据”的点击事件中中加入以下驱动代码： On Error GoTo Err1 Dim cmdstr As String cmdstr = "insert into DataTable(温度,压力,流量,液位,pH,溶氧) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "')" Call Dbcon("E:\创意\创作\实例\SamDb.mdb", False, cmdstr) Con.Close Set Con = Nothing Set Cmd = Nothing MsgBox "成功插入数据！" Exit Sub Err1: MsgBox "插入数据异常！" 运行程序，在文本框中输入数据，点击插入数据按钮，我们测试一下插入数据： 成功插入数据，返回操作提示。 同样的方法，添加几行数据到数据库中。 3 ， 在 工 程 菜 单 的 引 用 中 加 入microsoft E...