ecel的vb二次开发方法.doc

v1.0 可编辑可修改 用 VB操作 excel 方法汇总 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As ' 声明对象变量 = 11 ' 改变鼠标样式 Set objExl = New ' 初始化对象变量 = 1 ' 将新建的工作薄数量设为 1 ' 增加一个工作薄 = "book1" ' 修改工作薄名称 , ("book1") ' 增加第二个工作薄在第一个之后 = "book2" , ("book2") ' 增加第三个工作薄在第二个之后 = "book3" ("book1").Select ' 选中工作薄 <book1> For i = 1 To 50 ' 循环写入数据 For j = 1 To 5 If i = 1 Then = "@" ' 设置格式为文本 (i, j) = " E " & i & j Else (i, j) = i & j End If Next Next ("1:1").Select ' 选中第一行 = True ' 设为粗体 = 24 ' 设置字体大小 1第1页共29页 v1.0 可编辑可修改 自动调整列宽 = 1 ' 拆分第一行 =0 '拆分列 = True ' 固定拆分 = "$1:$1" ' 设置打印固定行 = "" ' 打印标题 =" 打印时间 :"&_ Format(Now, "yyyy 年 mm月 dd 日 hh:MM:ss") = xlPageBreakPreview ' 设置显示方式 = 100 ' 设置显示大小 ' 给工作表加密码 "123", DrawingObjects:=True, _ Contents:=True, Scenarios:=True = False = True ' 使 EXCEL可见 = xlMaximized 'EXCEL 的显示方式为最大化 = xlMaximized ' 工作薄显示方式为最大化 = 3 ' 将默认新工作薄数量改回 3 个 Set objExl = Nothing ' 清除对象 =0 '修改鼠标 Exit Sub End Sub 全面控制 Excel 首先创建 Excel 对象，使用 ComObj: 2第2页共29页 v1.0 可编辑可修改 Dim ExcelID as Set ExcelID as new 显示当前窗口： := True; 2) 更改 Excel 标题栏： := ' 应用程序调用 Microsoft Excel'; 添加新工作簿： 打开已存在的工作簿： 'C:\Excel\' ); 5) 设置第 2 个工作表为活动工作表： [2].Activate; 或 [ 'Sheet2' ].Activate; 6) 给单元格赋值： [1,4].Value := ' 第一行第四列 '; 设置指定列的宽度（单位：字符个数） ，以第一列为例： := 5; 设置指定行的高度（单位：磅） （ 1 磅＝厘米），以第二行为例： := 1/; ows[8].PageBreak := 1; 在第 8 列之前删除分页符： := 0; 指定边框线宽度： 'B3:D4' ].Borders[2].Weight := 3; 1-左 2- 右 3-顶 4- 底 5-斜(\) 6-斜(/) 3第3页共29页 v1.0 可编辑可修改 清除第一行第四列单元格公式： 设置第一行字体属性： :=' 隶书'; := clBlue; := True; := True; 进行页面设置： 页眉： := ' 报表演示 '; 页脚： := ' 第 &P页'; 页眉到顶端边距 2cm： := 2/; 页脚到底端边距 3cm： := 3/; 顶边距 2cm： := 2/; 底边距 2cm： := 2/; 左边距 2cm： := 2/; 右边距 2cm： := 2/; 页面水平居中： := 2/; 页面垂直居中： := 2/; 打印单元格网线： := True; 拷贝操作： 拷贝整个工作表： 拷贝指定区域： 'A1:E2' ].Copy; c. 从 A1 位置开始粘贴： 'A1' ].PasteSpecial; d. 从文件尾部开始粘贴： 插入一行或一列： a. 4第4页共29页 v1.0 可编辑可修改 b. 删除一行或一列： a. b. 打印预览工作表： 打印输出工作表： 工作表保存： If not then End if 工作表另存为： FileName:="C:\Excel\" 放弃存盘： := True; 关闭工作簿： 退出 Excel ： ; 设置工作表密码 : 5第5页共29页 v1.0 可编辑可修改 "123", Draw