Import a folder into VBA Project

Although the topic is "Import a folder", the requirement is to just import a file.

So you just want to import the Dictionary.cls?

Unzip the zip file to location of your choice. Open Excel file, and go to VB Editor (VBE).
Once inside VBE click in VBAProject pane and select "Import file...". Then find the .cls file you want to import and hit open.

Follow instruction in GitHub for usage.

Thanks for that advice. Some progress...

I have imported the dictionary.cls file which now sits in a folder called Class Modules. That seems fine.

But when I try to RUN it I get this error:
Runtime error '429'
ActiveX component can't create object.

Upon debug I get this highlight:
Set dAttributes = CreateObject("Scripting.Dictionary")
Active X component can't create object.

Is there anything I can do about this?

Thanks

"Scripting.Dictionary" is Windows based machine specific. That is why you needed to import Dictionary.cls.

Replace all reference to "Scripting.Dictionary" with something like below.

Please Login or Register  to view this content.

Read through the README file located in GitHub.
https://github.com/VBA-tools/VBA-Dic...ster/README.md

Thank you. I will try that.

I did replace all the references (see below), but it still came up with the same error. I am using the 32-but version of Excel on the Mac, so in theory it should run --- but it doesn't.

Any further suggestions?
Thanks

Option Explicit
Sub GenerateResults()

Dim LO As ListObject
Dim LO2 As ListObject
Dim LR As ListRow
Dim ws As Worksheet
Dim cCount As Integer
Dim gCount As Integer
Dim dAttributes As Object
Dim dValues As Object
Dim dKey As Variant
Dim c As Range
Dim v As Variant
Dim i As Integer
Dim InsertCount As Integer

Set LO = ActiveSheet.ListObjects("Data")
If LO Is Nothing Then MsgBox "Please select the table and re-run": Exit Sub
With Application
.EnableEvents = False
.DisplayAlerts = False
.ScreenUpdating = False
End With
LO.AutoFilter.ShowAllData

Set ws = ActiveWorkbook.Sheets.Add
ws.Range("A1:C1").Value = Array("Candidate", "Attribute", "Value")
ws.ListObjects.Add xlSrcRange, Range("A1:C1"), , xlYes
Set LO2 = ws.Range("A1").ListObject

Set dAttributes = CreateObject(“New.Dictionary")
For Each c In LO.ListColumns("Attribute").DataBodyRange.Cells
If Not dAttributes.Exists(c.Value) Then dAttributes(c.Value) = c.Value
Next c

For Each dKey In dAttributes.Keys
LO.Range.AutoFilter Field:=LO.ListColumns("Attribute").Index, Criteria1:=dKey
gCount = Evaluate("SUM(--(FREQUENCY(IF(" & LO.Name & "[Attribute]=""" & dKey & """,MATCH(" & LO.Name & "[Value]," & LO.Name & "[Value],0)),ROW(" & LO.Name & "[Value])-ROW(" & LO.Name & "[[#Headers],[Value]]))>0))")
cCount = Evaluate("SUM(--(FREQUENCY(IF(" & LO.Name & "[Attribute]=""" & dKey & """,MATCH(" & LO.Name & "[Candidate]," & LO.Name & "[Candidate],0)),ROW(" & LO.Name & "[Candidate])-ROW(" & LO.Name & "[[#Headers],[Candidate]]))>0))")
v = GenerateSplit(cCount, gCount)
Set dValues = CreateObject(“New.Dictionary")

For Each c In LO.ListColumns("Value").DataBodyRange.SpecialCells(xlCellTypeVisible)
If Not dValues.Exists(c.Value) Then dValues(c.Value) = c.Value
Next c

InsertCount = 0
i = 1
For Each c In LO.ListColumns("Candidate").DataBodyRange.SpecialCells(xlCellTypeVisible)
TryAgain:
If i <= v(InsertCount, 2) Then
Set LR = LO2.ListRows.Add
LR.Range.Value = Array(c.Value, dKey, dValues.Items()(InsertCount))
i = i + 1
Else
i = 1
InsertCount = InsertCount + 1
GoTo TryAgain
End If
Next c

Next dKey
LO.AutoFilter.ShowAllData
LO.Range.Worksheet.Select

With Application
.EnableEvents = True
.DisplayAlerts = True
.ScreenUpdating = True
End With

End Sub

Don't use "CreateObject()". Dictionary.cls is class module and treated as such (see how I set dAttributes in post #5). Also dAttributes should be dimmed as Dictionary not object.