Hi.
Does VBA have dictionary structure? Like key<>value array?
not sure what VB.NET has to do with VBA?
Mitch Wheat
2009-05-27 12:06:34
You can read question ones more: I've asked about VBA: Visual Basic for Application, not for VB, not for VB.Net, not for any other language.
2009-05-27 12:15:33
fessGUID: then again, you should read answers more! This answer can also be used for VBA (in particular, the first link).
Konrad Rudolph
2009-05-27 12:22:36
which is why I asked the original question about relevance of VB.NET...
Mitch Wheat
2009-05-27 12:27:17
I admit. I read the question too fast. But I did tell him what he needed to know.
Matthew Flaschen
2009-05-28 03:42:06
The relevance of .Net is that sooner or later VBA (which is currently a subset of VB6) will end up moving to being a subset of .Net. Besides you should never complain if people give you more than you ask for. It's just ungrateful.
Oorang
2009-05-29 20:30:00
@Oorang, there's absolutely no evidence of VBA becoming a subset of VB.NET, backcompat rules in Office - imagine trying to convert every Excel macro ever written.
Richard Gadsden
2010-08-27 14:26:12
+14
A:
Yes.
Set a reference to MS Scripting runtime
Set dict = CreateObject("Scripting.Dictionary")
or
Dim dict As New Scripting.Dictionary
Example of use:
If Not dict.Exists(key) Then
dict.Add key, value
End If
Don't forget to set the dictionary to Nothing when you have finished using it.
Set dict = Nothing
Mitch Wheat
2009-05-27 12:04:53
This data structure type is provided by the scripting runtime, not by VBA. Basically, VBA can use practically any data structure type that is accessible to it via a COM interface.
David-W-Fenton
2009-05-29 04:07:00
Just for the sake of completeness: you need to reference the "Microsoft Scripting Runtime" for this to work (go to Tools->References) and check its box.
regjo
2009-12-10 12:32:00
+10
A:
VBA does not have an internal implementation of a dictionary, but from VBA you can still use the dictionary object from MS Scripting Runtime Library.
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "aaa"
d.Add "b", "bbb"
d.Add "c", "ccc"
If d.Exists("c") Then
MsgBox d("c")
End If
Jarmo
2009-05-27 12:19:03