vba: từ điển trở về từ hàm

Question

điều này phác thảo những gì tôi đang cố gắng thực hiện.

tính năng này không hoạt động đối với tôi và không rõ lý do.

cảm ơn bạn trước vì bất kỳ và tất cả trợ giúp.

 Sub mySub() 
     dim myDict as Dictionary 
      myDict=new Dictionary 

       myDict=myFunc() 

     End Sub 

     Function myFunc() 
      dim myDict2 
       set myDict2 = new Dictionary 

        'some code that does things and adds to myDict2' 

      myFunc=myDict2 
     End Function 

Answer 1

Bạn sẽ cần phải sử dụng từ khoá SET bất cứ lúc nào bạn đang gán một đối tượng thay vì một giá trị :

Sub mySub() 
     dim myDict as Dictionary 
     set myDict = myFunc() 
    End Sub 

    Function myFunc() as Dictionary 
     dim myDict2 as Dictionary 
     set myDict2 = new Dictionary 
       'some code that does things and adds to myDict2' 
     set myFunc=myDict2 
    End Function 

mã ban đầu của bạn cũng đã tạo ra myDict như một đối tượng từ điển mới , sau đó ngay lập tức thay thế nó bằng một cái khác. Bạn chỉ có thể bỏ qua bước đó.