各种Excel VBA的命令1

1）创建Excel对象

Excel对象模型包括了128个不同的对象，从矩形、文本框等简单的对象到透视表，图表等复杂的对象。下面简单介绍一下其中最重要，也是用得最多的五个对象。

（1）Application对象

Application对象处于Excel对象层次结构的顶层，表示 Excel自身的运行环境。

（2）Workbook对象

Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件。

（3）Worksheet对象

Worksheet对象包含于Workbook对象，表示一个Excel工作表。

（4）Range对象

Range对象包含于Worksheet对象，表示 Excel工作表中的一个或多个单元格。

（5）Cells对象

Cells对象包含于Worksheet对象，表示Excel工作表中的一个单元格。

如果要启动一个Excel，使用Workbook和Worksheet对象，下面的代码启动了Excel并创建了一个新的包含一个工作表的工作薄：

Dim zsbexcel As Excel.Application
Set zsbexcel = New Excel.Application
zsbexcel.Visible = True
如要Excel不可见，可使zsbexcel.Visible = False
zsbexcel.SheetsInNewWorkbook = 1
Set zsbworkbook = zsbexcel.Workbooks.Add

2）设置单元格和区域值

要设置一张工作表中每个单元格的值，可以使用Worksheet对象的Range属性或Cells属性。

With zsbexcel.ActiveSheet
.Cells(1, 2).value = "100"
.Cells(2, 2).value = "200"
.Cells(3, 2).value = "=SUM(B1:B2)"
.Range("A3:A9") = "中国人民解放军"
End With

要设置单元格或区域的字体、边框，可以利用Range对象或Cells对象的Borders属性和Font属性：

With objexcel.ActiveSheet.Range("A2:K9").Borders　 '边框设置
.Line = xlBorderLine
.Weight = xlThin
.ColorIndex = 1
End With
With objexcel.ActiveSheet.Range("A3:K9").Font　　'字体设置
.Size = 14
.Bold = True
.Italic = True
.ColorIndex = 3
End With

通过对Excel单元格和区域值的各种设置的深入了解,可以创建各种复杂、美观、满足需要的、具有自己特点的报表。