实用的EXCELVBA编程大全总结

精品文档 1欢迎下载 实用的实用的 EXCELEXCEL VBAVBA 编程小结 编程小结 最近单位内部的项目里要用到些报表 EXCEL 的生成 虽说 JAVA 的 POI 可以有这能力 但觉得还是可能比较 麻烦 因此还是转用 net 来搞 用 Visual Studio2003 配合 office 2003 用到了一些 VBA 因此小结并归 纳之 选了些资料归纳在这里 以备今后查考 首先创建 Excel 对象 使用 ComObj Dim ExcelID as Excel Application Set ExcelID as new Excel Application 1 显示当前窗口 ExcelID Visible True 2 更改 Excel 标题栏 ExcelID Caption 应用程序调用 Microsoft Excel 3 添加新工作簿 ExcelID WorkBooks Add 4 4 打开已存在的工作簿 打开已存在的工作簿 ExcelID WorkBooks Open C Excel Demo xls 5 设置第 2 个工作表为活动工作表 ExcelID WorkSheets 2 Activate 或 ExcelID WorkSheets Sheet2 Activate 6 6 给单元格赋值 给单元格赋值 ExcelID Cells 1 4 Value 第一行第四列 精品文档 2欢迎下载 7 设置指定列的宽度 单位 字符个数 以第一列为例 ExcelID ActiveSheet Columns 1 ColumnsWidth 5 8 设置指定行的高度 单位 磅 1 磅 0 035 厘米 以第二行为例 ExcelID ActiveSheet Rows 2 RowHeight 1 0 035 1 厘米 9 在第 8 行之前插入分页符 ExcelID WorkSheets 1 Rows 8 PageBreak 1 10 在第 8 列之前删除分页符 ExcelID ActiveSheet Columns 4 PageBreak 0 11 11 指定边框线宽度 指定边框线宽度 ExcelID ActiveSheet Range B3 D4 Borders 2 Weight 3 1 左 2 右 3 顶 4 底 5 斜 6 斜 12 清除第一行第四列单元格公式 ExcelID ActiveSheet Cells 1 4 ClearContents 13 13 设置第一行字体属性 设置第一行字体属性 ExcelID ActiveSheet Rows 1 Font Name 隶书 ExcelID ActiveSheet Rows 1 Font Color clBlue ExcelID ActiveSheet Rows 1 Font Bold True ExcelID ActiveSheet Rows 1 Font UnderLine True 精品文档 3欢迎下载 14 14 进行页面设置 进行页面设置 a 页眉 ExcelID ActiveSheet PageSetup CenterHeader 报表演示 b 页脚 ExcelID ActiveSheet PageSetup CenterFooter 第 c 页眉到顶端边距 2cm ExcelID ActiveSheet PageSetup HeaderMargin 2 0 035 d 页脚到底端边距 3cm ExcelID ActiveSheet PageSetup HeaderMargin 3 0 035 e 顶边距 2cm ExcelID ActiveSheet PageSetup TopMargin 2 0 035 f 底边距 2cm ExcelID ActiveSheet PageSetup BottomMargin 2 0 035 g 左边距 2cm ExcelID ActiveSheet PageSetup LeftMargin 2 0 035 h 右边距 2cm ExcelID ActiveSheet PageSetup RightMargin 2 0 035 i 页面水平居中 精品文档 4欢迎下载 ExcelID ActiveSheet PageSetup CenterHorizontally 2 0 035 j 页面垂直居中 ExcelID ActiveSheet PageSetup CenterVertically 2 0 035 k 打印单元格网线 ExcelID ActiveSheet PageSetup PrintGridLines True 15 15 拷贝操作 拷贝操作 a 拷贝整个工作表 ExcelID ActiveSheet Used Range Copy b 拷贝指定区域 ExcelID ActiveSheet Range A1 E2 Copy c 从 A1 位置开始粘贴 ExcelID ActiveSheet Range A1 PasteSpecial d 从文件尾部开始粘贴 ExcelID ActiveSheet Range PasteSpecial 16 16 插入一行或一列 插入一行或一列 a ExcelID ActiveSheet Rows 2 Insert b ExcelID ActiveSheet Columns 1 Insert 17 删除一行或一列 精品文档 5欢迎下载 a ExcelID ActiveSheet Rows 2 Delete b ExcelID ActiveSheet Columns 1 Delete 18 打印预览工作表 ExcelID ActiveSheet PrintPreview 19 19 打印输出工作表 打印输出工作表 ExcelID ActiveSheet PrintOut 20 工作表保存 If not ExcelID ActiveWorkBook Saved then ExcelID ActiveSheet PrintPreview End if 21 工作表另存为 ExcelID SaveAs C Excel Demo1 xls 22 放弃存盘 ExcelID ActiveWorkBook Saved True 23 关闭工作簿 ExcelID WorkBooks Close 24 退出 Excel ExcelID Quit 精品文档 6欢迎下载 25 25 设置工作表密码设置工作表密码 ExcelID ActiveSheet Protect 123 DrawingObjects True Contents True Scenarios True 26 EXCEL 的显示方式为最大化 ExcelID Application WindowState xlMaximized 27 工作薄显示方式为最大化 ExcelID ActiveWindow WindowState xlMaximized 28 设置打开默认工作薄数量 ExcelID SheetsInNewWorkbook 3 29 关闭时是否提示保存 true 保存 false 不保存 ExcelID DisplayAlerts False 30 30 设置拆分窗口设置拆分窗口 及固定行位置及固定行位置 ExcelID ActiveWindow SplitRow 1 ExcelID ActiveWindow FreezePanes True 31 设置打印时固定打印内容 ExcelID ActiveSheet PageSetup PrintTitleRows 1 1 32 设置打印标题 ExcelID ActiveSheet PageSetup PrintTitleColumns 33 设置显示方式 分页方式显示 精品文档 7欢迎下载 ExcelID ActiveWindow View xlPageBreakPreview 34 设置显示比例 ExcelID ActiveWindow Zoom 100 35 让 Excel 响应 DDE 请求 Ex Application IgnoreRemoteRequests False 用用 VBVB 操作操作 EXCELEXCEL Private Sub Command3 Click On Error GoTo err1 Dim i As Long Dim j As Long Dim objExl As Excel Application 声明对象变量 Me MousePointer 11 改变鼠标样式 Set objExl New Excel Application 初始化对象变量 objExl SheetsInNewWorkbook 1 将新建的工作薄数量设为 1 objExl Workbooks Add 增加一个工作薄 objExl Sheets objExl Sheets Count Name book1 修改工作薄名称 objExl Sheets Add objExl Sheets book1 增加第二个工作薄在第一个之后 objExl Sheets objExl Sheets Count Name book2 精品文档 8欢迎下载 objExl Sheets Add objExl Sheets book2 增加第三个工作薄在第二个之后 objExl Sheets objExl Sheets Count Name book3 objExl Sheets book1 SelectobjExl Sheets book1 Select 选中工作薄选中工作薄 For i 1 To 50 循环写入数据 For j 1 To 5 If i 1 Then objExl Selection NumberFormatLocal 设置格式为文本 objExl Cells i j E i j Else objExl Cells i j i j End If Next Next objExl Rows 1 1 Select 选中第一行 objExl Selection Font Bold True 设为粗体 objExl Selection Font Size 24 设置字体大小 objExl Cells EntireColumn AutoFit 自动调整列宽 精品文档 9欢迎下载 objExl ActiveWindow SplitRow 1 拆分第一行 objExl ActiveWindow SplitColumn 0 拆分列 objExl ActiveWindow FreezePanes True 固定拆分 objExl ActiveSheet PageSetup PrintTitleRows 1 1 设置打印固定行 objExl ActiveSheet PageSetup PrintTitleColumns 打印标题 objExl ActiveSheet PageSetup RightFooter 打印时间 Format Now yyyy 年 mm 月 dd 日 hh MM ss objExl ActiveWindow View xlPageBreakPreview 设置显示方式 objExl ActiveWindow Zoom 100 设置显示大小 给工作表加密码 objExl ActiveSheet Protect 123 DrawingObjects True Contents True Scenarios True objExl Application IgnoreRemoteRequests False objExl Visible True 使 EXCEL 可见 objExl Application WindowState xlMaximized EXCEL 的显示方式为最大化 objExl ActiveWindow WindowState xlMaximized 工作薄显示方式为最大化 objExl SheetsInNewWorkbook 3 将默认新工作薄数量改回 3 个 Set objExl Nothing 清除对象 Me MousePointer 0 修改鼠标 精品文档 10欢迎下载 Exit Sub err1 objExl SheetsInNewWorkbook 3 objExl DisplayAlerts False 关闭时不提示保存