Lồi "Active x component can't create object"

[tuanxitin]

Em chạy lệnh lấy DSKH bị lỗi ""Active x component can't create object""
Nhờ Anh/chị xem giúp em
Tks

 

[huhumalu]

Bạn chuyển

CreateObject("Scripting.Dictionay")

thành

CreateObject ("Scripting.Dictionary")

do bạn lỗi chính tả.

 

[giaiphap]

Em chạy lệnh lấy DSKH bị lỗi ""Active x component can't create object""
Nhờ Anh/chị xem giúp em
Tks

Tui chỉ trả lời về cú pháp lệnh, chưa quan tâm đến giải thuật.
Sửa 2 chổ.

Set dic = CreateObject("Scripting.Dictionary")

và chổ này nửa

Application.Transpose(dic.keys)