用VB操作excel方法汇总.docx
- 文档编号:2440085
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:21
- 大小:33.67KB
用VB操作excel方法汇总.docx
《用VB操作excel方法汇总.docx》由会员分享,可在线阅读,更多相关《用VB操作excel方法汇总.docx(21页珍藏版)》请在冰豆网上搜索。
用VB操作excel方法汇总
用VB操作excel方法汇总
PrivateSubCommand3_Click()
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 '修改鼠标
ExitSub
EndSub
全面控制Excel
首先创建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;
14)进行页面设置:
a.页眉:
ExcelID.ActiveSheet.PageSetup.CenterHeader:
='报表演示';
b.页脚:
ExcelID.ActiveSheet.PageSetup.CenterFooter:
='第&P页';
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.页面水平居中:
ExcelID.ActiveSheet.PageSetup.CenterHorizontally:
=2/0.035;
j.页面垂直居中:
ExcelID.ActiveSheet.PageSetup.CenterVertically:
=2/0.035;
k.打印单元格网线:
ExcelID.ActiveSheet.PageSetup.PrintGridLines:
=True;
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.Rows[2].Insert;
b.ExcelID.ActiveSheet.Columns[1].Insert;
17)删除一行或一列:
a.ExcelID.ActiveSheet.Rows[2].Delete;
b.ExcelID.ActiveSheet.Columns[1].Delete;
18)打印预览工作表:
ExcelID.ActiveSheet.PrintPreview;
19)打印输出工作表:
ExcelID.ActiveSheet.PrintOut;
20)工作表保存:
IfnotExcelID.ActiveWorkBook.Savedthen
ExcelID.ActiveSheet.PrintPreview
Endif
2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 操作 excel 方法 汇总
![提示](https://static.bdocx.com/images/bang_tan.gif)