C# enumerable class - tương thích với VBA

Question

Bất cứ ai có thể hướng dẫn tôi về cách mã hóa một lớp C# có thể đếm được sao cho cấu trúc "cho mỗi" trong Excel VBA hoạt động đúng không? Tôi đã thử điều này với một lớp thử nghiệm được gọi là Những người thực hiện IEnumerable và chứa một mảng các đối tượng Person. Cấu trúc "foreach" hoạt động tốt trong C#, nhưng trong VBA tôi chỉ có thể lặp lại cách cũ.

mã VBA này chỉ hoạt động tốt:

Dim P As Person 
Dim PP As New People 

For i = 0 To PP.Count - 1 
    Set P = PP(i) 
    Debug.Print P.firstName + " " + P.lastName 
Next i 

Nhưng điều này không tại thời gian chạy ("Object không hỗ trợ tài sản hoặc phương pháp"):

For Each P In PP 
    Debug.Print P.firstName + " " + P.lastName 
Next P 

Đây là mã C# (được biên dịch COM hiển thị trong VS 2008 để sử dụng với Excel VBA - Office 2010):

using System; 
using System.Collections; 
using System.Runtime.InteropServices; 

public class Person 
{ 
    public Person(string fName, string lName) 
    { 
     this.firstName = fName; 
     this.lastName = lName; 
    } 
    public string firstName; 
    public string lastName; 
} 

public class People : IEnumerable 
{ 
    private Person[] _people;       // array of people 
    public Int32 Count() { return _people.Length; }  // method to return array size 

    // indexer method to enable People[i] construct, or in VBA: People(i) 
    public Person this[Int32 PersonNo] { get { return _people[PersonNo]; } } 

    // constructor - hardcode to initialize w 3 people (for testing) 
    public People() 
    { 
     _people = new Person[3] 
     { 
      new Person("John", "Smith"), 
      new Person("Jim", "Johnson"), 
      new Person("Sue", "Rabon"), 
     }; 
    } 

    // test method just to make sure the c# foreach construct works ok 
    public void Test() 
    { 
     foreach (Person P in this) System.Diagnostics.Debug.WriteLine(P.firstName + " " + P.lastName); 
    } 

    //implementation of basic GetEnumerator 
    IEnumerator IEnumerable.GetEnumerator() 
    { 
     return (IEnumerator)GetEnumerator(); 
    } 

    //implementation of People GetEnumerator 
    public PeopleEnum GetEnumerator() 
    { 
     return new PeopleEnum(_people); 
    } 
} 

// People Enumerator class definition 
public class PeopleEnum : IEnumerator 
{ 
    public Person[] _people; 

    int position = -1; 

    public PeopleEnum(Person[] list) 
    { 
     _people = list; 
    } 

    public bool MoveNext() 
    { 
     position++; 
     return (position < _people.Length); 
    } 

    public void Reset() 
    { 
     position = -1; 
    } 

    object IEnumerator.Current 
    { 
     get 
     { 
      return Current; 
     } 
    } 

    public Person Current 
    { 
     get 
     { 
      try 
      { 
       return _people[position]; 
      } 
      catch (IndexOutOfRangeException) 
      { 
       throw new InvalidOperationException(); 
      } 
     } 
    } 
} 

Answer 1

Thử thêm [DispId(-4)] theo phương pháp GetEnumerator() của bạn. Lá cờ này là thành viên DISPID_NEWENUM. Để VBA làm việc với một bộ sưu tập sử dụng cho Mỗi, nó cần phải thực hiện _newEnum qua COM.

Điều này có thể được thực hiện bằng cách thực hiện một Điều tra viên và phân bổ nó với DispId thích hợp. Điều này thường được thực hiện thông qua việc triển khai giao diện tùy chỉnh với giao diện được chỉ định này, mặc dù có sẵn other mechanisms.