Workbooks.Add with Workbook in Class

Question

1.简介

这是我的第一个 VBA 项目，也是我的第一篇文章。所以请原谅我，如果…… 它尝试了我在网上能找到的所有东西，我现在能想到几天，最后放弃了。 我以我理解网络建议的方式做了几个类的实现。不幸的是，这个（但其他的）不起作用。如果我放弃使用 PRIVATE 的数据封装，它会起作用，但似乎不是干净的编程。 我复制了下面代码的基本部分。这应该足以重现错误 (91)。 我希望有人知道一些魔术字符。估计也不算多。

提前致谢， 骑马

2。基础设施

PC：Win7Enterprise-64 SP1、Excel 365 ProPlus-32 (1808)

3。代码

类模块

Option Explicit
Private resWrkBook As Workbook         'resultXLS - Result workbook

‘Properties
Public Property Let resultXLS(ByVal resultXLS As Workbook)    'Write value to class variable
    Set resWrkBook = resultXLS                                               'Assign value to property
End Property

Public Property Get resultXLS() As Workbook     'Read value from class variable
    Set resultXLS = resWrkBook                  'Return value from property
End Property

编程模块

Option Explicit

Public Sub main()
    Dim wbs As XlsClass_Module         'declaration

    ‘Short (version S)
    Set wbs.resultXLS = Workbooks.Add    '=> Error 91

    ‘Long (version L, alternative)
    Dim wrk As Workbook
    Set wbs = New XlsClass_Module       'instance of Workbook Class
    Set wrk = Workbooks.Add
    Set wbs.resultXLS = wrk                 '=> Error 91
End Sub

Answer 1

这是工作的类模块和工作的主要代码。请看以下代码：

    Option Explicit

    Private resWrkBook As Workbook         'resultXLS - Result workbook

    'Properties
    Public Property Set resultXLS(ByVal resultXLS As Workbook)   'Write value to class variable
        Set resWrkBook = resultXLS                                               'Assign value to property
    End Property

    Public Property Get resultXLS() As Workbook     'Read value from class variable
        Set resultXLS = resWrkBook                  'Return value from property
    End Property

现在，需要更改的调用代码（注意 NEW 关键字）：

    Public Sub main()
        Dim wbs As XlsClass_Module          'declaration

        Set wbs = New XlsClass_Module

        'Short (version S)
        Set wbs.resultXLS = Workbooks.Add    '=> Error 91

        'Long (version L, alternative)
        Dim wrk As Workbook
        Set wbs = New XlsClass_Module       'instance of Workbook Class
        Set wrk = Workbooks.Add
        Set wbs.resultXLS = wrk                 '=> Error 91
    End Sub

此外，对于您使用 SET 的变量，您需要将它们设置为空，以便释放内存：

例如：set wbs = Nothing