有用的 EXCEL VBA 编程小结： 最近单位内部的项目里要用到些报表 EXCEL 的生成，虽说 JAVA 的 POI 可以有这能力，但觉得还是可能比较麻烦，因此还是转用来搞，用 Visual Studio2024 配合 office 2024，用到了一些 VBA，因此小结并归纳之，选了些资料归纳在这里，以备今后查考首先创建 Excel 对象，使用 ComObj:Dim ExcelID as Set ExcelID as new 1) 显示当前窗口： := True;2) 更改 Excel 标题栏： := '应用程序调用 Microsoft Excel';3) 添加新工作簿：4) 打开已存在的工作簿： 'C:\Excel\' );5) 设置第 2 个工作表为活动工作表：[2].Activate; 或 [ 'Sheet2' ].Activate;6) 给单元格赋值：[1,4].Value := '第一行第四列';7) 设置指定列的宽度（单位：字符个数），以第一列为例： := 5;8) 设置指定行的高度（单位：磅）（1 磅＝厘米），以第二行为例： := 1/; ows[8].PageBreak := 1;10) 在第 8 列之前删除分页符： := 0;11) 指定边框线宽度： 'B3:D4' ].Borders[2].Weight := 3;1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )12) 清除第一行第四列单元格公式：13) 设置第一行字体属性： := '隶书'; := clBlue; := True; := True;14) 进行页面设置：a.页眉： := '报表演示';b.页脚： := '第&P 页';c.页眉到顶端边距 2cm： := 2/;d.页脚到底端边距 3cm： := 3/;e.顶边距 2cm： := 2/;f.底边距 2cm： := 2/;g.左边距 2cm： := 2/;h.右边距 2cm： := 2/;i.页面水平居中： := 2/;j.页面垂直居中： := 2/;k.打印单元格网线： := True;15) 拷贝操作：a.拷贝整个工作表：b.拷贝指定区域： 'A1:E2' ].Copy;c.从 A1 位置开始粘贴： 'A1' ].PasteSpecial;d.从文件尾部开始粘贴：16) 插入一行或一列：a. b. 17) 删除一行或一列：a. b. 18) 打印预览工作表：19) 打印输出工作表：20) 工作表保存：If not thenEnd if21) 工作表另存为：( 'C:\Excel\' );22) 放弃存盘： := True;23) 关闭工作簿：24) 退出 Excel：;25) 设置工作表密码: "123", DrawingObjects:=True, Contents:=True, Scenarios:=True26) EXCEL 的显示方式为最大化 = xlMaximized 27) 工作薄显示方式为最大化 = xlMaximized 28) 设置打开默认工作薄数量 = 329) '关闭时是否提示保存(true 保存；false 不保存) = False ...
