用VB操作Excel.docx

用VB操作Excel.docx

《用VB操作Excel.docx》由会员分享，可在线阅读，更多相关《用VB操作Excel.docx（6页珍藏版）》请在冰点文库上搜索。

用VB操作Excel

用VB操作Excel（总8页）

用VB操作Excel（VB6.0）（整理）

全面控制Excel:

首先创建Excel对象，使用ComObj:

DimExcelIDasExcel.Application

SetExcelIDasnewExcel.Application

1）显示当前窗口：

ExcelID.Visible:

=True;

2）更改Excel标题栏：

ExcelID.Caption:

='应用程序调用MicrosoftExcel';

3）添加新工作簿：

4）打开已存在的工作簿：

5）设置第2个工作表为活动工作表：

ExcelID.WorkSheets[2].Activate;

或ExcelID.WorkSheets['Sheet2'].Activate;

6）给单元格赋值：

ExcelID.Cells[1,4].Value:

='第一行第四列';

7）设置指定列的宽度（单位：

字符个数），以第一列为例：

8）设置指定行的高度（单位：

磅）（1磅＝0.035厘米），以第二行为例：

9）在第8行之前插入分页符：

ExcelID.WorkSheets[1].Rows[8].PageBreak:

=1;

10）在第8列之前删除分页符：

11）指定边框线宽度：

1-左2-右3-顶4-底5-斜（\）6-斜（/）

12）清除第一行第四列单元格公式：

13）设置第一行字体属性：

14）进行页面设置：

a.页眉：

b.页脚：

c.页眉到顶端边距2cm：

d.页脚到底端边距3cm：

e.顶边距2cm：

f.底边距2cm：

g.左边距2cm：

h.右边距2cm：

i.页面水平居中：

j.页面垂直居中：

k.打印单元格网线：

15）拷贝操作：

a.拷贝整个工作表：

b.拷贝指定区域：

c.从A1位置开始粘贴：

d.从文件尾部开始粘贴：

16）插入一行或一列：

17）删除一行或一列：

18）打印预览工作表：

19）打印输出工作表：

20）工作表保存：

Endif

21）工作表另存为：

ExcelID.SaveAs（'C:

\Excel\Demo1.xls'）;

22）放弃存盘：

23）关闭工作簿：

24）退出Excel：

ExcelID.Quit;

25）设置工作表密码:

26）EXCEL的显示方式为最大化

ndowState=xlMaximized

27）工作薄显示方式为最大化

28）设置打开默认工作薄数量

ExcelID.SheetsInNewWorkbook=3

29）'关闭时是否提示保存（true保存；false不保存）

ExcelID.DisplayAlerts=False

30）设置拆分窗口,及固定行位置

31）设置打印时固定打印内容

32）设置打印标题

33）设置显示方式（分页方式显示）

34）设置显示比例

35）让Excel响应DDE请求

用VB操作EXCEL示例代码

PrivateSubCommand3_Click（）

OnErrorGoToerr1

DimiAsLong

DimjAsLong

DimobjExlAsExcel.Application'声明对象变量

Me.MousePointer=11'改变鼠标样式

SetobjExl=NewExcel.Application'初始化对象变量

objExl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1

objExl.Sheets（"book1"）.Select'选中工作薄

Fori=1To50'循环写入数据

Forj=1To5

Ifi=1Then

objExl.Cells（i,j）="E"&i&j

Else

objExl.Cells（i,j）=i&j

EndIf

Next

Next

objExl.Rows（"1:

1"）.Select'选中第一行

Format（Now,"yyyy年mm月dd日hh:

MM:

ss"）

'给工作表加密码

Contents:

=True,Scenarios:

=True

objExl.Visible=True'使EXCEL可见

objExl.SheetsInNewWorkbook=3'将默认新工作薄数量改回3个

SetobjExl=Nothing'清除对象

Me.MousePointer=0'修改鼠标

ExitSub

err1:

objExl.SheetsInNewWorkbook=3

objExl.DisplayAlerts=False'关闭时不提示保存

objExl.Quit'关闭EXCEL

objExl.DisplayAlerts=True'关闭时提示保存

SetobjExl=Nothing

Me.MousePointer=0

EndSub