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

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

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

 

类模块：CTable

Option Explicit

'====================================
'名称: CTable
'功能: 描述一个Excel表格区域
'====================================

Public strName As String            ' 表名
Public strAddress As String         ' 地址
Public rngStart As Range            ' 开始单元格
Public rngEnd As Range              ' 结束单元格
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

运行结果：