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

 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           ‘ 列数

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