《实用的EXCELVBA编程大全总结.docx》由会员分享，可在线阅读，更多相关《实用的EXCELVBA编程大全总结.docx（10页珍藏版）》请在三一文库上搜索。
1、实用的 EXCELVBA编程大全总结实用的 EXCEL VBA 编程小结 :最近单位内部的项目里要用到些报表EXCEL的生成 ,虽说 JAVA 的 POI 可以有这能力 ,但觉得还就是可能比较麻烦 ,因此还就是转用、net 来搞 ,用 Visual Studio2003 配合 office 2003, 用到了一些VBA,因此小结并归纳之,选了些资料归纳在这里,以备今后查考首先创建Excel 对象 ,使用 ComObj:Dim ExcelID as Excel 、ApplicationSet ExcelID as new Excel 、Application1) 显示当前窗口 : ExcelID
2、、Visible := True;2) 更改 Excel 标题栏 :ExcelID、Caption := 应用程序调用Microsoft Excel;3) 添加新工作簿 :ExcelID、WorkBooks 、Add;4) 打开已存在的工作簿 :ExcelID、WorkBooks 、Open( C:ExcelDemo 、 xls );5) 设置第 2 个工作表为活动工作表 : ExcelID、WorkSheets2 、 Activate;或 ExcelID、WorkSheets Sheet2 、 Activate;6) 给单元格赋值 :ExcelID、Cells1,4 、 Value := 第
3、一行第四列 ;实用的 EXCELVBA编程大全总结7) 设置指定列的宽度 (单位 :字符个数 ),以第一列为例 : ExcelID、ActiveSheet 、Columns1 、 ColumnsWidth := 5;8) 设置指定行的高度 (单位 :磅 )(1 磅 0、035 厘米 ),以第二行为例 :ExcelID、ActiveSheet 、 Rows2、RowHeight := 1/0、035; / 1厘米9) 在第 8 行之前插入分页符 :ExcelID、WorkSheets1 、 Rows8、 PageBreak := 1;10) 在第 8 列之前删除分页符 :ExcelID、Acti
4、veSheet 、Columns4 、 PageBreak := 0;11) 指定边框线宽度 :ExcelID、ActiveSheet 、 Range B3:D4 、 Borders2 、Weight := 3;1- 左 2- 右3- 顶 4- 底 5- 斜( ) 6- 斜( / )12) 清除第一行第四列单元格公式 :ExcelID、ActiveSheet 、Cells1,4、 ClearContents;13) 设置第一行字体属性 :ExcelID、ActiveSheet 、 Rows1、Font 、 Name := 隶书 ;ExcelID、ActiveSheet 、 Rows1、Font
5、 、 Color := clBlue;ExcelID、ActiveSheet 、 Rows1、Font 、 Bold := True;ExcelID、ActiveSheet 、 Rows1、Font 、 UnderLine := True;实用的 EXCELVBA编程大全总结14) 进行页面设置 : a、页眉 :ExcelID、ActiveSheet 、 PageSetup 、CenterHeader := 报表演示 ;b、页脚 :ExcelID、ActiveSheet 、 PageSetup 、CenterFooter := 第&P 页 ;c、页眉到顶端边距2cm:ExcelID、Activ
6、eSheet 、 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
7、:= 2/0、035;h、右边距 2cm:ExcelID、ActiveSheet 、 PageSetup 、RightMargin := 2/0、 035;i、页面水平居中:实用的 EXCELVBA编程大全总结ExcelID、ActiveSheet 、 PageSetup 、CenterHorizontally := 2/0、035;j、页面垂直居中:ExcelID、ActiveSheet 、 PageSetup 、CenterVertically := 2/0、035;k、打印单元格网线:ExcelID、ActiveSheet 、 PageSetup 、PrintGridLines := T
8、rue;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) 插入一行或一列 :a、 ExcelID、ActiveSheet 、 Rows2、Insert;b、 ExcelID、ActiveSheet 、
9、 Columns1 、 Insert;17) 删除一行或一列 :实用的 EXCELVBA编程大全总结a、 ExcelID、ActiveSheet 、 Rows2、Delete;b、 ExcelID、ActiveSheet 、 Columns1 、 Delete;18) 打印预览工作表 :ExcelID、ActiveSheet 、 PrintPreview;19) 打印输出工作表 :ExcelID、ActiveSheet 、 PrintOut;20) 工作表保存 :If not ExcelID 、ActiveWorkBook 、Saved thenExcelID、ActiveSheet 、 Pr
10、intPreviewEnd if21) 工作表另存为 :ExcelID、SaveAs( C:ExcelDemo1 、 xls );22) 放弃存盘 :ExcelID、ActiveWorkBook 、Saved := True;23) 关闭工作簿 :ExcelID、WorkBooks 、Close;24) 退出Excel:ExcelID、Quit;实用的 EXCELVBA编程大全总结25) 设置工作表密码 :ExcelID、ActiveSheet 、 Protect 123, DrawingObjects:=True, Contents:=True, Scenarios:=True26) EXC
11、EL的显示方式为最大化ExcelID、Application 、WindowState = xlMaximized27) 工作薄显示方式为最大化ExcelID、ActiveWindow 、 WindowState = xlMaximized28) 设置打开默认工作薄数量ExcelID、SheetsInNewWorkbook = 329) 关闭时就是否提示保存 (true 保存 ;false 不保存 ) ExcelID、DisplayAlerts = False30) 设置拆分窗口 ,及固定行位置ExcelID、ActiveWindow 、 SplitRow = 1ExcelID、ActiveW
12、indow 、 FreezePanes = True31) 设置打印时固定打印内容ExcelID、ActiveSheet 、 PageSetup 、PrintTitleRows = $1:$132) 设置打印标题ExcelID、ActiveSheet 、 PageSetup 、PrintTitleColumns = 33) 设置显示方式 (分页方式显示 )实用的 EXCELVBA编程大全总结ExcelID、ActiveWindow 、 View = xlPageBreakPreview34) 设置显示比例ExcelID、ActiveWindow 、 Zoom = 10035) 让 Excel
13、响应DDE 请求Ex、Application 、IgnoreRemoteRequests = False用 VB 操作 EXCELPrivate Sub Command3_Click()On Error GoTo err1Dim i As LongDim j As LongDim objExl As Excel 、 Application 声明对象变量Me 、MousePointer = 11 改变鼠标样式Set objExl = New Excel 、Application 初始化对象变量objExl 、SheetsInNewWorkbook = 1 将新建的工作薄数量设为1objExl 、
14、Workbooks 、Add 增加一个工作薄objExl 、Sheets(objExl 、 Sheets、Count) 、 Name = book1 修改工作薄名称objExl 、Sheets、 Add , objExl 、 Sheets(book1) 增加第二个工作薄在第一个之后objExl 、Sheets(objExl 、 Sheets、Count) 、 Name = book2实用的 EXCELVBA编程大全总结objExl 、Sheets、 Add , objExl 、 Sheets(book2) 增加第三个工作薄在第二个之后objExl 、Sheets(objExl 、 Sheets
15、、Count) 、 Name = book3objExl 、 Sheets(book1)、Select 选中工作薄For i = 1 To 50 循环写入数据For j = 1 To 5If i = 1 ThenobjExl 、Selection 、 NumberFormatLocal = 设置格式为文本objExl 、Cells(i, j) = E & i & jElseobjExl 、Cells(i, j) = i & jEnd IfNextNextobjExl 、Rows(1:1) 、 Select 选中第一行objExl 、Selection 、 Font 、Bold = True 设
16、为粗体objExl 、Selection 、 Font 、Size = 24 设置字体大小objExl 、Cells、EntireColumn 、AutoFit 自动调整列宽实用的 EXCELVBA编程大全总结objExl 、ActiveWindow 、SplitRow = 1 拆分第一行objExl 、ActiveWindow 、 SplitColumn = 0 拆分列objExl 、ActiveWindow 、FreezePanes = True 固定拆分objExl 、ActiveSheet 、PageSetup 、PrintTitleRows = $1:$1设置打印固定行objExl
17、、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, _Con
18、tents:=True, Scenarios:=TrueobjExl 、Application 、IgnoreRemoteRequests = FalseobjExl 、Visible = True 使 EXCEL可见objExl 、Application 、WindowState = xlMaximized EXCEL的显示方式为最大化objExl 、ActiveWindow 、WindowState = xlMaximized 工作薄显示方式为最大化objExl 、SheetsInNewWorkbook = 3 将默认新工作薄数量改回3 个Set objExl = Nothing 清除对象Me 、MousePointer = 0 修改鼠标实用的 EXCELVBA编程大全总结Exit Suberr1:objExl 、SheetsInNewWorkbook = 3objExl 、DisplayAlerts = False 关闭时不提示保存objExl 、Quit 关闭 EXCELobjExl 、DisplayAlerts = True 关闭时提示保存Set objExl = NothingMe 、MousePointer = 0End Sub