VBA類模塊--添加類的函數（2）

為CTable類添加一個Create方法，代碼就變成下面這個樣子了

 

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           ' 列數

'類的方法
'
'====================================
'名稱: Create
'功能: 把CTable的對象實現出來
'參數：strName：表名
'      strWhere：表要創建的位置
'      astrWhat：列名數組
'返回值：無
'====================================
Public Function Create(strName As String, strWhere As String, astrWhat As Variant)
    Dim i, col
    If Not IsArray(astrWhat) Then Exit Function
    strName = strName
    strAddress = strWhere
    Set rngStart = Range(strWhere)
    rngStart.Value = strName
    
    For Each col In astrWhat
        rngStart.Offset(1, i).Value = col
        i = i + 1
    Next
    Set rngEnd = rngStart.Offset(1, i - 1)
    rngStart.Offset(0, 1).Value = rngEnd.Address
    
    iColumns = i
    rngStart.Offset(0, 2).Value = iColumns
End Function

Create 就是類的一個方法。

 

Data普通模塊：

Sub 創建學生表2()
    Dim clsStudentTable As New CTable       ' 聲明並創建一個對象
    Dim astrColumnNames As Variant
    
    astrColumnNames = Array("id", "Name", "Gender", "StuID", "Class")
    clsStudentTable.Create "學生表", "Sheet2!$A$1", astrColumnNames     '類方法的使用： 對象名.方法名
End Sub