资源描述：
《VB操作Excel报表(实例、图例、源码、注释).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VB操作Excel报表（实例、图例、源码、注释）用Excel报表非常方便，而用VB操作Excel更能延长VB的功能范围。对于重复生成的表格更是非常方便。字体，行高，列宽，合并单元格，排版等功能都有。供大家学习研究。VB中使用Excel控件要先引用哦。要不你错都不知道哪错了。郁闷吧！一、报表预览如下1、无内容报表如下：2、填表后预览如下：测试内容，随便填的。二、界面预览如下：打印记录按钮为Command3三、源码如下：PrivateSubCommand3_Click()声明一个新的Excel对象Setwinkexcel=NewExcel.Application该对象
2、可见winkexcel.Visible=True选择第一张表为操作表winkexcel.SheetsInNewWorkbook=1表添加内容Setwinkworkbook=winkexcel.Workbooks.Add设置指定单元格行高列宽Setxlsheet=winkworkbook.Worksheets(1)xlsheet.Rows(1).RowHeight=45xlsheet.Rows(2).RowHeight=33xlsheet.Rows(3).RowHeight=33xlsheet.Rows(4).RowHeight=33xlsheet.Rows(5).
3、RowHeight=33xlsheet.Rows(6).RowHeight=300xlsheet.Rows(7).RowHeight=100xlsheet.Rows(8).RowHeight=45xlsheet.Rows(9).RowHeight=45xlsheet.Rows(10).RowHeight=26xlsheet.Columns(1).ColumnWidth=14xlsheet.Columns(2).ColumnWidth=24xlsheet.Columns(3).ColumnWidth=14xlsheet.Columns(4).ColumnWidth=
4、24设置表格内容的对齐方式winkexcel.ActiveSheet.Rows.HorizontalAlignment=xlVAlignCenter'水平居中winkexcel.ActiveSheet.Rows.VerticalAlignment=xlVAlignCenter'垂直居中Withwinkexcel.ActiveSheet.Range("A1:D1")'合并单元格.MergeEndWithWithwinkexcel.ActiveSheet.Range("B6:D6")'合并单元格.MergeEndWithWithwinkexcel.ActiveShee
5、t.Range("B7:D7")'合并单元格.MergeEndWith画边框线，细线，黑。Withwinkexcel.ActiveSheet.Range("A3:D9").Borders'边框设置.LineStyle=xlBorderLineStyleContinuous.Weight=xlThin.ColorIndex=1EndWith为单元格添加内容，请注意数字索引顺序。行在前，列再后。Withwinkexcel.ActiveSheet.Cells(2,1).Value="检修部位："'第1行第2列.Cells(2,4).Value="编号："'第2行第2列.
6、Cells(3,1).Value="设备型号".Cells(3,3).Value="入库检修时间".Cells(4,1).Value="设备编号".Cells(4,3).Value="检修完工时间".Cells(5,1).Value="修程".Cells(5,3).Value="检修单位".Cells(6,1).Value="检修主要项目".Cells(7,1).Value="更换主要部件"注意添加空格，使自动换行后内容都居中。.Cells(8,1).Value="检修班长（签字）".Cells(8,3).Value="检修人（签字）".Cells(9,1).Va
7、lue="主管部长（签字）".Cells(9,3).Value="验收员（签字）".Cells(10,1).Value="铁路运输部".Cells(3,4).Value=DTPicker1.Value.Cells(4,4).Value=DTPicker2.Value.Cells(10,4).Value=DTPicker3.Value.Cells(2,2).Value=""+Combo7.Text.Cells(2,4).Value="编号："+Text2.Text.Cells(3,2).Value=""+Text3.Text.Cells(4,2).Value=""+
8、Text1
