VBA类模块--创建Table类（1）

VBA开发接触了两个月，自认为拜托了新手期，遇到很多问题，也有一些心得。根据开发中遇到的问题开始陆续总结。

开发过程中，遇到程序运行过程中的存储大量临时数据问题，这些数据只是用于下一步的计算，不需要呈现在最后的结果中。为了后面步骤使用和管理方便，创建了Table类模块。

类模块：CTable

 1 Option Explicit
 2
 3 ‘====================================
 4 ‘名称: CTable
 5 ‘功能: 描述一个Excel表格区域
 6 ‘====================================
 7
 8 Public strName As String            ‘ 表名
 9 Public strAddress As String         ‘ 地址
10 Public rngStart As Range            ‘ 开始单元格
11 Public rngEnd As Range              ‘ 结束单元格
12 Public iColumns As String           ‘ 列数

类模块名：CTable，下面这些Public就是类的属性了，这个类看起来跟自定义类型没什么区别，没错，这已经是一个类模块了。

普通模块：Data

Option Explicit

‘============================
‘名称: CreateTable
‘功能: 创建表
‘参数: strTableName: 表名
‘      astrColumnNames:列名数组
‘返回: 表
‘============================
Function CreateTable(ByRef strTableName As String, astrColumnNames As Variant) As CTable
    Dim clsStuTab As New CTable         ‘ 声明并创建一个对象
    clsStuTab.strAddress = "Sheet2!$A$1"
    Set clsStuTab.rngStart = Range(clsStuTab.strAddress)
    clsStuTab.strName = strTableName
    Dim i, j
    With clsStuTab.rngStart
        .Offset(0, 0).Value = clsStuTab.strName
        j = 0
        For i = LBound(astrColumnNames) To UBound(astrColumnNames)
            .Offset(1, j).Value = astrColumnNames(i)
            j = j + 1
        Next
        clsStuTab.iColumns = j
        Set clsStuTab.rngEnd = .Offset(1, j - 1)
    End With

    clsStuTab.rngStart.Offset(0, 1).Value = clsStuTab.rngEnd.Address
    Set CreateTable = clsStuTab
End Function

Sub 创建学生表()
    Dim clsStudentTable As CTable       ‘ 声明一个对象
    Dim astrColumnNames As Variant

    astrColumnNames = Array("id", "Name", "Gender", "StuID", "Class")
    Set clsStudentTable = CreateTable("学生表", astrColumnNames)
End Sub

运行结果：