VBA / VB中的类方法

Question

尝试在VBA中使用类时，我总是遇到下标超出范围的错误，可以在此处使用一些帮助！

这是课程-

Option Explicit
Private buildWs As String
Public Property Get affBuild() As String
    affBuild = buildWs
End Property

Public Property Let affBuild(value As String)
    buildWs = affBuild
End Property

Public Function activate()
    Sheets(buildWs).activate
End Function

这是电话-

Sub SetWs()
    Dim current As CBuildSheet
    Set current = New CBuildSheet
    current.affBuild = "Resource Entry"
    current.activate
End Sub

Answer 1

您的Let方法应该使用value参数：

Public Property Let affBuild(value As String)
    buildWs = value
End Property

您的Public Function activate()不返回任何值。

也许，您应该使用Public Sub activate() 。

Answer 2

这是错误的...

Public Property Let affBuild(value As String)
  buildWs = affBuild
End Property

应该是...

Public Property Let affBuild(value As String)
  buildWs = value
End Property

见。 http://ramblings.mcpher.com/Home/excelquirks/snippets/classes入门类。

布鲁斯