实用的EXCELVBA编程大全总结

实用的EXCELVBA编程大全总结实用的EXCELVBA编程大全总结实用的EXCELVBA编程大全总结xxx公司实用的EXCELVBA编程大全总结文件编号：文件日期：修订次数：第1.0次更改批准审核制定方案设计，管理制度实用的EXCELVBA编程小结：

最近单位内部的项目里要用到些报表EXCEL的生成，虽说JAVA的POI可以有这能力，但觉得还是可能比较麻烦，因此还是转用来搞，用VisualStudio2003配合office2003，用到了一些VBA，因此小结并归纳之，选了些资料归纳在这里，以备今后查考

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

DimExcelIDas

SetExcelIDasnew

1)显示当前窗口：

:=True;

2)更改Excel标题栏：

:='应用程序调用MicrosoftExcel';

3)添加新工作簿：

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

'C:\Excel\');

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

[2].Activate;

或['Sheet2'].Activate;

6)给单元格赋值：

[1,4].Value:='第一行第四列';

7)设置指定列的宽度（单位：字符个数），以第一列为例：

:=5;

8)设置指定行的高度（单位：磅）（1磅＝厘米），以第二行为例：

:=1/;ows[8].PageBreak:=1;

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

:=0;

11)指定边框线宽度：

'B3:D4'].Borders[2].Weight:=3;

1-左2-右3-顶4-底5-斜(\)6-斜(/)

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

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

:='隶书';

:=clBlue;

:=True;

:=True;

14)进行页面设置：

a.页眉：

:='报表演示';

b.页脚：

:='第&P页';

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

:=2/;

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

:=3/;

e.顶边距2cm：

:=2/;

f.底边距2cm：

:=2/;

g.左边距2cm：

:=2/;

h.右边距2cm：

:=2/;

i.页面水平居中：

:=2/;

j.页面垂直居中：

:=2/;

k.打印单元格网线：

:=True;

15)拷贝操作：

a.拷贝整个工作表：

b.拷贝指定区域：

'A1:E2'].Copy;

c.从A1位置开始粘贴：

'A1'].PasteSpecial;

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

16)插入一行或一列：

a.

b.

17)删除一行或一列：

a.

b.

18)打印预览工作表：

19)打印输出工作表：

20)工作表保存：

Ifnotthen

Endif

21)工作表另存为：

('C:\Excel\');

22)放弃存盘：

:=True;

23)关闭工作簿：

24)退出Excel：

;

25)设置工作表密码:

"123",DrawingObjects:=True,Contents:=True,Scenarios:=True

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

=xlMaximized

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

=xlMaximized

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

=3

29)'关闭时是否提示保存(true保存；false不保存)

=False

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

=1

=True

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

="$1:$1"

32)设置打印标题

=""

33)设置显示方式(分页方式显示)

=xlPageBreakPreview

34)设置显示比例

=100

35)让Excel响应DDE请求

=False

用VB操作EXCEL

PrivateSubCommand3_Click()

OnErrorGoToerr1

DimiAsLong

DimjAsLong

DimobjExlAs'声明对象变量

=11'改变鼠标样式

SetobjExl=New'初始化对象变量

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

'增加一个工作薄

="book1"'修改工作薄名称

,("book1")‘增加第二个工作薄在第一个之后

="book2"

,("book2")‘增加第三个工作薄在第二个之后

="book3"

("book1").Select'选中工作薄

Fori=1To50'循环写入数据

Forj=1To5

Ifi=1Then

="@"'设置格式为文本

(i,j)="E"&i&j

Else

(i,j)=i&j

EndIf

Next

Next

("1:1").Select'选中第一行

=True'设为粗体

=24'设置字体大小

'自动调整列宽

=1'拆分第一行

.SplitColumn=0'拆分列

=True'固定拆分="$1:$1"'设置打印固定行

=""'打印标题="打印时间:"&_

Format(Now,"yyyy年mm月dd日hh:MM:ss")

=xlPageBreakPreview'设置显示方式

=100'设置显示大小

'给工作表加密码

"123",DrawingObjects:=True,_

Contents:=True,Scenarios:=True

=False

=True'使EXCEL可见

=xlMaximized'EXCEL的显示方式为最大化

=xlMaximized'工作薄显示方式为最大化

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