Я борюсь с классами 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