VB操作Excel报表(实例、图例、源码、注释).doc

VB操作Excel报表（实例、图例、源码、注释）用Excel报表非常方便，而用VB操作Excel更能延长VB的功能范围。对于重复生成的表格更是非常方便。字体，行高，列宽，合并单元格，排版等功能都有。供大家学习研究。 VB中使用Excel控件要先引用哦。要不你错都不知道哪错了。郁闷吧！ 一、报表预览如下 1、无内容报表如下： 2、填表后预览如下：测试内容，随便填的。二、界面预览如下：打印记录按钮为Command3三、源码如下：Private Sub Command3_Click()声明一个新的Excel对象 Set winkexcel = New Excel.Application该对象可见 winkexcel.Visible = True选择第一张表为操作表 winkexcel.SheetsInNewWorkbook = 1表添加内容 Set winkworkbook = winkexcel.Workbooks.Add 设置指定单元格行高列宽 Set xlsheet = winkworkbook.Worksheets(1) xlsheet.Rows(1).RowHeight = 45 xlsheet.Rows(2).RowHeight = 33 xlsheet.Rows(3).RowHeight = 33 xlsheet.Rows(4).RowHeight = 33 xlsheet.Rows(5).RowHeight = 33 xlsheet.Rows(6).RowHeight = 300 xlsheet.Rows(7).RowHeight = 100 xlsheet.Rows(8).RowHeight = 45 xlsheet.Rows(9).RowHeight = 45 xlsheet.Rows(10).RowHeight = 26 xlsheet.Columns(1).ColumnWidth = 14 xlsheet.Columns(2).ColumnWidth = 24 xlsheet.Columns(3).ColumnWidth = 14 xlsheet.Columns(4).ColumnWidth = 24 设置表格内容的对齐方式winkexcel.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter 水平居中winkexcel.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter 垂直居中 With winkexcel.ActiveSheet.Range(A1:D1) 合并单元格 .Merge End With With winkexcel.ActiveSheet.Range(B6:D6) 合并单元格 .Merge End With With winkexcel.ActiveSheet.Range(B7:D7) 合并单元格 .Merge End With 画边框线，细线，黑。 With winkexcel.ActiveSheet.Range(A3:D9).Borders 边框设置 .LineStyle = xlBorderLineStyleContinuous .Weight = xlThin .ColorIndex = 1 End With 为单元格添加内容，请注意数字索引顺序。行在前，列再后。 With winkexcel.ActiveSheet .Cells(2, 1).Value = 检修部位： 第1行第2列 .Cells(2, 4).Value = 编号： 第2行第2列 .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).Value = 主管部长 （签字） .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 = + Text1.Text .Cells(5, 2).Value = + Text4.Text .Cells(5, 4).Value = + Combo6.Text .Range(A1:D1) = 内燃机车检修验收单 这个区域的值 .Range(B6:D6) = + Text7.Text .Range(B7:D7) = + Text8.Text End With With winkexcel.ActiveSheet 设置自动换行 .Cells(6, 1).WrapText = True 设置文字方向为竖版 .Cells(6, 1).Orientation = xlVertical .Cells(7, 1).WrapText = True .Cells(7, 1).Orientation = xlVertical .Cells(8, 1).WrapText = True .Cells(9, 1).WrapText = True .Cells(8, 3).WrapText = True .Cells(9, 3).WrapText = True End With 设置范围单元格内的字体 With winkexcel.ActiveSheet.Range(A1:D1).Font 字体设置 .Bold = True .Size = 20 .ColorIndex = 1 End With With winkexcel.ActiveSheet.Range(A2:D10).Font 字体设置 .Size = 12 .ColorIndex = 1 End With 设置上下左右边距。 winkexcel.ActiveSheet.PageSetup.TopMargin = 2 / 0.035 winkexcel.ActiveSheet.PageSetup.BottomMargin = 2 / 0.035 winkexcel.ActiveSheet.PageSetup.LeftMargin = 1.4 / 0.035 winkexcel.ActiveSheet.PageSetup.RightMargin = 1.4 / 0.035 设置页眉页脚距离 winkexcel.ActiveSheet.PageSetup.CenterHorizontally = 2 / 0.035 winkex