Код ошибки 91 - переменная объекта или переменная блока не установлена ​​- OOP, метод класса - PullRequest
0 голосов
/ 26 марта 2020

Я борюсь с классами VBA, не могли бы вы взглянуть на следующий код? Это сокрушает в Set GetCustIdBeginningMap = Mapping.GetCustomerIdBeginningMap

   Private Function GetCustIdBeginningMap() As Scripting.Dictionary '<String, Currency>
   Dim Output As New Scripting.Dictionary
   Dim Mapping As WorksheetBeginningValueSource
   'Output.Add "1212990404", 101000000
   Set GetCustIdBeginningMap = Mapping.GetCustomerIdBeginningMap
   End Function

класс:

Option Explicit
Private Const ClassName As String = "WorksheetBeginningValueSource"
Public Function GetCustomerIdBeginningMap() As Scripting.Dictionary
  Const MethodName = "GetCustomerIdBeginningMap"
'extracting data from Excel
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...