电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

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

VB操作Excel报表(实例、图例、源码、注释)_第1页
VB操作Excel报表(实例、图例、源码、注释)_第2页
VB操作Excel报表(实例、图例、源码、注释)_第3页
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...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部