![EXCEL-VBA编程大全总结_第1页](http://file4.renrendoc.com/view3/M03/2E/0F/wKhkFmZyaOiAaSz2AADWHyRtWDA398.jpg)
![EXCEL-VBA编程大全总结_第2页](http://file4.renrendoc.com/view3/M03/2E/0F/wKhkFmZyaOiAaSz2AADWHyRtWDA3982.jpg)
![EXCEL-VBA编程大全总结_第3页](http://file4.renrendoc.com/view3/M03/2E/0F/wKhkFmZyaOiAaSz2AADWHyRtWDA3983.jpg)
![EXCEL-VBA编程大全总结_第4页](http://file4.renrendoc.com/view3/M03/2E/0F/wKhkFmZyaOiAaSz2AADWHyRtWDA3984.jpg)
![EXCEL-VBA编程大全总结_第5页](http://file4.renrendoc.com/view3/M03/2E/0F/wKhkFmZyaOiAaSz2AADWHyRtWDA3985.jpg)
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
实用的EXCELVBA编程小结:
最近单位内部的项目里要用到些报表EXCEL的生成,虽说JAVA的POI可以有这能力,但觉得还是可能比较麻烦,因此还是转用.net来搞,用VisualStudio2003配合office2003,用到了一些VBA,因此小结并归纳之,选了些资料归纳在这里,以备今后查考
首先创建Excel对象,使用ComObj:
DimExcelIDasExcel.Application
SetExcelIDasnewExcel.Application
1)显示当前窗口:
ExcelID.Visible:=True;
2)更改Excel标题栏:
ExcelID.Caption:='应用程序调用MicrosoftExcel';
3)添加新工作簿:
ExcelID.WorkBooks.Add;
4)打开已存在的工作簿:
ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');
5)设置第2个工作表为活动工作表:
ExcelID.WorkSheets[2].Activate;
或ExcelID.WorkSheets['Sheet2'].Activate;
6)给单元格赋值:
ExcelID.Cells[1,4].Value:='第一行第四列';
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)指定边框线宽度:
ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;
1-左2-右3-顶4-底5-斜(\)6-斜(/)
12)清除第一行第四列单元格公式:
ExcelID.ActiveSheet.Cells[1,4].ClearContents;
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;
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)设置拆分窗口,及固定行位置
ExcelID.ActiveWindow.SplitRow=1
ExcelID.ActiveWindow.FreezePanes=True
31)设置打印时固定打印内容
ExcelID.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"
32)设置打印标题
ExcelID.ActiveSheet.PageSetup.PrintTitleColumns=""
33)设置显示方式(分页方式显示)
ExcelID.ActiveWindow.View=xlPageBreakPreview
34)设置显示比例
ExcelID.ActiveWindow.Zoom=100
35)让Excel响应DDE请求
Ex.Application.IgnoreRemoteRequests=False
用VB操作EXCEL
PrivateSubCommand3_Click()
OnErrorGoToerr1
DimiAsLong
DimjAsLong
DimobjExlAsExcel.Application'声明对象变量
Me.MousePointer=11'改变鼠标样式
SetobjExl=NewExcel.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"
objExl.Sheets.Add,objExl.Sheets("book2")‘增加第三个工作薄在第二个之后
objExl.Sheets(objExl.Sheets.Count).Name="book3"
objExl.Sheets("book1").Select'选中工作薄
Fori=1To50'循环写入数据
Forj=1To5
Ifi=1Then
objExl.Selection.NumberFormatLocal="@"'设置格式为文本
objExl.Cells(i,j)="E"&i&j
Else
objExl.Cells(i,j)=i&j
EndIf
Next
Next
objExl.Rows("1:1").Select'选中第一行
objExl.Selection.Font.Bold=True'设为粗体
objExl.Selection.Font.Size=24'设置字体大小
objExl.Cells.EntireColumn.AutoFit'自动调整列宽
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个
SetobjExl=Nothing'清除对象
Me.MousePointer=0'
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 【正版授权】 IEC 60601-1-2:2014+AMD1:2020 CSV EN Medical electrical equipment - Part 1-2: General requirements for basic safety and essential performance - Collateral Standard: Electromagnetic dis
- 【正版授权】 IEC 60580:2019 EN-FR Medical electrical equipment - Dose area product meters
- 【正版授权】 IEC 60544-5:2011 EN-FR Electrical insulating materials - Determination of the effects of ionizing radiation - Part 5: Procedures for assessment of ageing in service
- 【正版授权】 IEC 60512-10-4:2003 EN-FR Connectors for electronic equipment - Tests and measurements - Part 10-4: Impact tests (free components),static load tests (fixed components),endurance te
- 【正版授权】 IEC 60465:1988 EN-FR Specification for unused insulating mineral oils for cables with oil ducts
- 【正版授权】 IEC 60444-9:2007 EN-FR Measurement of quartz crystal unit parameters - Part 9: Measurement of spurious resonances of piezoelectric crystal units
- 【正版授权】 IEC 60384-26:2018 EN-FR Fixed capacitors for use in electronic equipment - Part 26: Sectional specification - Fixed aluminium electrolytic capacitors with conductive polymer solid ele
- 【正版授权】 IEC 60381-1:1982 EN-FR Analogue signals for process control systems. Part 1: Direct current signals
- 【正版授权】 IEC 60372:1984/AMD2:2003 EN-FR Amendment 2 - Locking devices for ball and socket couplings of string insulator units - Dimensions and tests
- 【正版授权】 IEC 60364-7-704:2017 EN Low-voltage electrical installations - Part 7-704: Requirements for special installations or locations - Construction and demolition site installations
- 03G372 钢筋混凝土雨篷
- 2023年(1月、6月)浙江省普通高中学业水平考试标准-化学
- 高级英语I(下)-华东理工大学智慧树知到答案章节测试2023年
- 家政服务员五级考试题库及答案
- 高中英语-Live from the Louvre教学设计学情分析教材分析课后反思
- 油气管道典型事故案例
- 【集体备课记录】九下英语备课组活动记录
- GB/T 3810.11-2016陶瓷砖试验方法第11部分:有釉砖抗釉裂性的测定
- 新人教版三年级下册数学(新插图)练习十五 教学课件
- GEOGEBRA在初中数学教学中的应用
- 福州一中2023年高中招生(面向市区以外)综合素质测试数学试卷
评论
0/150
提交评论