资源描述：
《使用VB+Excel制作工程报表1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB操作Excel制作工程报表在工控项目中，报表的制作一直是困扰大部分现场工程师的一个难题，灵活多变的用户需求，复杂的数据表现格式，使得数据的组织十分麻烦。近日，笔者制作的一个项目用户需要的报表十分繁琐，呈现形式、打印方式等要求较高，这写都要求较高的编程技术，而Excel是处理数据报表的十分方便而强大的工具，如果我们将数据全部提交到Excel中去，在Excel中按照用户的意愿进行报表的设计和打印，则是十分轻松的工作。因此，笔者考虑使用VB将数据提交到Excel中，并操作它完成灵活的报表工作。首先，从数据库中查询需要的数据。本文以
2、Access数据库为例，使用VB编程，通过ADO编程接口访问Access数据库，提取需要的数据后填充预定义的Excel表格。1，建立Access数据库。本文假设一个数据库SamDb，建立一个表Table，该表的字段设置如下图示：2，打开VB，在窗体上画上如下控件，在工程引用中引入ADO2.8库。为了示例的需要，加入插入数据一项，用来向数据表中添加示例数据。将Text控件的text属性设置为空字符串。添加Dbcon公共过程。PublicSubDbcon(ByValFilePahtAsString,ByValCmdSelectAsB
3、oolean,ByValCmdStrAsString)Con.Open"provider=microsoft.jet.oledb.4.0;datasource="+FilePahtIfCmdSelectThenRst=Cmd.Execute(CmdStr)ElseCmd.Execute(CmdStr)EndIfEndSub该模块接受Sql命令字符串通过ADO执行命令，根据命令有没有返回值分别执行。在按钮“插入数据”的点击事件中中加入以下驱动代码：OnErrorGoToErr1DimcmdstrAsStringcmdstr="in
4、sertintoDataTable(温度,压力,流量,液位,pH,溶氧)values('"&Text1.Text&"','"&Text2.Text&"','"&Text3.Text&"','"&Text4.Text&"','"&Text5.Text&"','"&Text6.Text&"')"CallDbcon("E:创意创作实例SamDb.mdb",False,cmdstr)Con.CloseSetCon=NothingSetCmd=NothingMsgBox"成功插入数据！"ExitSubErr1:MsgBox"插入数
5、据异常！"运行程序，在文本框中输入数据，点击插入数据按钮，我们测试一下插入数据：成功插入数据，返回操作提示。同样的方法，添加几行数据到数据库中。3，在工程菜单的引用中加入microsoftExcelObjcetLibrary2.8的引用。在“关闭”按钮中添加一行代码：END表示程序结束执行。在“打开报表”按钮中添加如下代码：Label7.Visible=True‘表示显示该标签，提示用户Label7.Caption="正在生成报表，这可能花费几分钟时间……"'定义Excel对象DimappAsNewExcel.Applicati
6、onDimworkbookAsNewExcel.workbookDimworksheetAsNewExcel.worksheetDimchartAsNewExcel.chart'连接对象引用app.Caption="报表系统"Setworkbook=app.Workbooks.Add'workbook.FullName="工控报表系统"workbook.Worksheets(1).Deleteworkbook.Worksheets(1).DeleteSetworksheet=workbook.Worksheets(1)works
7、heet.Name="数据报表"Setchart=workbook.Charts.Add(after:=app.Sheets(1))chart.Name="分析图表"app.Sheets(1).Moveafter:=app.Sheets(2)'将数据库中的数据读入到Excel中去CallDbcon("E:创意创作实例SamDb.mdb",True,"select*fromdatatable")DimnAsIntegern=4worksheet.Activateworksheet.Range(Cells(1,1),Cell
8、s(2,Rst.Fields.Count-1)).SelectSelection.MergeWithworksheet.Cells(1,1).Value="工控系统报表".Font.Bold=True.Font.Name="隶书".Font.Size=22End
