Lỗi khi tạo Dictionary

[cuongdoannhat]

Tôi làm demo về Dictionary. Tham khảo trong Help của Excel có đoạn code:

Dim d                   'Create a variable
Set d = CreateObject([B]Scripting.Dictionary)
d.Add "a", "Athens"     'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"[/B]

Trong môi trường code VBA tôi chọn Tool -> References-> Microsoft Scripting Runtime và test thử đoạn code trên. Kết quả là lỗi: "Compile error: Method or data member not found". Xin các bạn trong diễn đàn giúp tôi gỡ lỗi. Xin chân thành cám ơn.

 

[cuongdoannhat]

À, tôi đã giải quyết xong, chỉ thiếu cặp dấu nháy trong câu lệnh: Set d = CreateObject(Scripting.Dictionary)

 

[thanhlanh]

Tôi làm demo về Dictionary. Tham khảo trong Help của Excel có đoạn code:

Dim d                   'Create a variable
Set d = CreateObject([B]Scripting.Dictionary)
d.Add "a", "Athens"     'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"[/B]

Trong môi trường code VBA tôi chọn Tool -> References-> Microsoft Scripting Runtime và test thử đoạn code trên. Kết quả là lỗi: "Compile error: Method or data member not found". Xin các bạn trong diễn đàn giúp tôi gỡ lỗi. Xin chân thành cám ơn.

Thử đưa Scripting.Dictionary vào ngoặc kép : Set d = CreateObject("Scripting.Dictionary")

 

[ndu96081631]

Tôi làm demo về Dictionary. Tham khảo trong Help của Excel có đoạn code:

Dim d                   'Create a variable
Set d = CreateObject([B]Scripting.Dictionary)
d.Add "a", "Athens"     'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"[/B]

Trong môi trường code VBA tôi chọn Tool -> References-> Microsoft Scripting Runtime và test thử đoạn code trên. Kết quả là lỗi: "Compile error: Method or data member not found". Xin các bạn trong diễn đàn giúp tôi gỡ lỗi. Xin chân thành cám ơn.

Ngoài vụ dâu nháy đôi ra, xin nói thêm rằng: Bạn đã dùng CreateObject(...) thì không cần phải check bất cứ thứ gì trong Tools -> References cả
Còn nếu đã check mục Microsoft Scripting Runtime thì ta viết code khác hơn

Set d = New Scripting.Dictionary