實(shí)用的EXCELVBA編程大全總結(jié)

實(shí)用的EXCELVBA編程大全總結(jié)實(shí)用的EXCELVBA編程大全總結(jié)實(shí)用的EXCELVBA編程大全總結(jié)xxx公司實(shí)用的EXCELVBA編程大全總結(jié)文件編號(hào)：文件日期：修訂次數(shù)：第1.0次更改批準(zhǔn)審核制定方案設(shè)計(jì)，管理制度實(shí)用的EXCELVBA編程小結(jié)：

最近單位內(nèi)部的項(xiàng)目里要用到些報(bào)表EXCEL的生成，雖說JAVA的POI可以有這能力，但覺得還是可能比較麻煩，因此還是轉(zhuǎn)用來搞，用VisualStudio2003配合office2003，用到了一些VBA，因此小結(jié)并歸納之，選了些資料歸納在這里，以備今后查考

首先創(chuàng)建Excel對(duì)象，使用ComObj:

DimExcelIDas

SetExcelIDasnew

1)顯示當(dāng)前窗口：

:=True;

2)更改Excel標(biāo)題欄：

:='應(yīng)用程序調(diào)用MicrosoftExcel';

3)添加新工作簿：

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

'C:\Excel\');

5)設(shè)置第2個(gè)工作表為活動(dòng)工作表：

[2].Activate;

或['Sheet2'].Activate;

6)給單元格賦值：

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

7)設(shè)置指定列的寬度（單位：字符個(gè)數(shù)），以第一列為例：

:=5;

8)設(shè)置指定行的高度（單位：磅）（1磅＝厘米），以第二行為例：

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

10)在第8列之前刪除分頁符：

:=0;

11)指定邊框線寬度：

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

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

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

13)設(shè)置第一行字體屬性：

:='隸書';

:=clBlue;

:=True;

:=True;

14)進(jìn)行頁面設(shè)置：

a.頁眉：

:='報(bào)表演示';

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.打印單元格網(wǎng)線：

:=True;

15)拷貝操作：

a.拷貝整個(gè)工作表：

b.拷貝指定區(qū)域：

'A1:E2'].Copy;

c.從A1位置開始粘貼：

'A1'].PasteSpecial;

d.從文件尾部開始粘貼：

16)插入一行或一列：

a.

b.

17)刪除一行或一列：

a.

b.

18)打印預(yù)覽工作表：

19)打印輸出工作表：

20)工作表保存：

Ifnotthen

Endif

21)工作表另存為：

('C:\Excel\');

22)放棄存盤：

:=True;

23)關(guān)閉工作簿：

24)退出Excel：

;

25)設(shè)置工作表密碼:

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

26)EXCEL的顯示方式為最大化

=xlMaximized

27)工作薄顯示方式為最大化

=xlMaximized

28)設(shè)置打開默認(rèn)工作薄數(shù)量

=3

29)'關(guān)閉時(shí)是否提示保存(true保存；false不保存)

=False

30)設(shè)置拆分窗口,及固定行位置

=1

=True

31)設(shè)置打印時(shí)固定打印內(nèi)容

="$1:$1"

32)設(shè)置打印標(biāo)題

=""

33)設(shè)置顯示方式(分頁方式顯示)

=xlPageBreakPreview

34)設(shè)置顯示比例

=100

35)讓Excel響應(yīng)DDE請(qǐng)求

=False

用VB操作EXCEL

PrivateSubCommand3_Click()

OnErrorGoToerr1

DimiAsLong

DimjAsLong

DimobjExlAs'聲明對(duì)象變量

=11'改變鼠標(biāo)樣式

SetobjExl=New'初始化對(duì)象變量

=1'將新建的工作薄數(shù)量設(shè)為1

'增加一個(gè)工作薄

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

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

="book2"

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

="book3"

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

Fori=1To50'循環(huán)寫入數(shù)據(jù)

Forj=1To5

Ifi=1Then

="@"'設(shè)置格式為文本

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

Else

(i,j)=i&j

EndIf

Next

Next

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

=True'設(shè)為粗體

=24'設(shè)置字體大小

'自動(dòng)調(diào)整列寬

=1'拆分第一行

.SplitColumn=0'拆分列

=True'固定拆分="$1:$1"'設(shè)置打印固定行

=""'打印標(biāo)題="打印時(shí)間:"&_

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

=xlPageBreakPreview'設(shè)置顯示方式

=100'設(shè)置顯示大小

'給工作表加密碼

"123",DrawingObjects:=True,_

Contents:=True,Scenarios:=True

=False

=True'使EXCEL可見

=xlMaximized'EXCEL的顯示方式為最大化

=xlMaximized'工作薄顯示方式為最大化

=3'將默認(rèn)新工作薄數(shù)量改回3個(gè)