![]() ![]() Then, somewhere towards the top of your code (before you call on either of your two dictionary objects, add the code I put in my answer under In your code, do something like this:). You have two lines that do Createobject(New.Dictionary), and as I mentioned, these will fail even in Windows, because its an invalid classname. Once you do that, then its just changing a few lines of code in your subroutine. Important part is copying those two.cls files and importing them to the Excel files VBProject. This is not overly complicated for anyone whos done it before, but its not something that most beginners will even know is available to them, much less how to use it. Likewise, if you want to use this code in both Win and Mac environments, you cant use Scripting.Dictionary without taking some additional precautions to avoid errors. If Not dAttributes.Exists(c.value) Then dAttributes(c.value) c.value. If Not dAttributes.Exists(c.Value) Then dAttributes(c.Value) c.Value. If LO Is Nothing Then MsgBox Please select the table and re-run: Exit Sub.
0 Comments
Leave a Reply. |