VB操作Excel报表(实例、图例、源码、注释)VIP专享VIP免费

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...