VBA实战(03) - Excel 对象

1. Excel 的结构

一个完整的Excel应用由工作簿（workbook）、工作表（Sheet）、单元格（Cell）、范围（Range）、行（Row）和 列（Column）是由一些单元格的集合。

2. 打开和关闭Excel

2.1. 打开Excel文件

Workbooks. Open(fileName) 函数为打开一个Excel文件，其中 fileName 为文件路径。执行打开Excel文件后，会返回该文件的对象。

fileName = "‪E:\workspace\excel\test.xlsx"
Set targetWb = Workbooks.Open(fileName)

2.2. 关闭Excel文件

targetWb.Close

2.3. 保存Excel文件

targetWb.Save

3. 操作Sheet页

打开文件后，我们可以对Sheet页进行处理，下面介绍常用的Sheet页操作。

3.1. 定位到Sheet页

获取Sheet页一般有两种方法，按照序号和按照名称定位到Sheet页

' 按序号选择，选择第一个sheet页
Set targetSh = targetWb.Worksheets(1)
' 按名称定位，定位到名称为“Sheet2”的Sheet页
Set targetSh = targetWb.Worksheets("Sheet2")
targetSh.Select

3.2. 修改Sheet页的名称

targetWb.Sheets(1).Name = "核对"
targetSh.Name = "核对"

3.3. 获取Sheet页中的行数和列数

以下两个方法可以获取一个Sheet页里面有效的行数和列数，在后续的学习中使用非常频繁。

rowCount = targetSh.UsedRange.Rows.Count
colCount = targetSh.UsedRange.Columns.Count

4. 操作表格信息

4.1. 给单元格设置值

targetSh.Range("A3").value = "abc"
targetSh.Cells(1,1).value = "123"

4.2. 读取单元格的值

v_name = targetSh.Range("A3").value
MsgBox(v_name)
v_num  = targetSh.Cells(1,1).value
MsgBox(v_num)

4.3. 选中表格

' 选中一个单元格
targetSh.Cells(2,1).Select
' 选中一片范围
targetSh.Range("A3:F15").Select
targetSh.Range("A3:G").Select
' 选中一行
targetSh.Rows(20).Select
' 选中一列
targetSh.Columns(2).Select

4.4. 在单元格中使用Excel函数

originalSh.Range("F1").Formula = "=Sum(A1:E1)"

4.5. 设置单元格的背景色

originalSh.Range("A1:S20").Interior.ColorIndex = 3

其他链接

VBA实战(4) - 决策与循环
VBA实战(5) - 常用函数总结