перечислимый класс c # - совместим с VBA

Может ли кто-нибудь рассказать мне, как кодировать перечислимый класс C # таким образом, чтобы конструкция "для каждого" в Excel VBA работала правильно? Я попробовал это с помощью тестового класса People, который реализует IEnumerable и содержит массив объектов Person. Конструкция «foreach» прекрасно работает в C #, но в VBA я могу использовать только старомодный способ.

Этот код VBA прекрасно работает:

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

Но это терпит неудачу во время выполнения («Объект не поддерживает это свойство или метод»):

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

Вот код C # (скомпилированный COM, видимый в VS 2008 для использования с 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();
            }
        }
    }
}
7 голосов | спросил tpascale 25 Jpm1000000pmTue, 25 Jan 2011 20:08:47 +030011 2011, 20:08:47

1 ответ


0

Попробуйте добавить [DispId(-4)] в свой GetEnumerator() метод. Это помечает его как член DISPID_NEWENUM. Чтобы VBA работал с коллекцией, использующей For Each, он должен реализовать _ newEnum через COM.

Это можно сделать, внедрив Enumerator и присвоив ему соответствующий DispId. Обычно это делается посредством реализации пользовательского интерфейса с указанным, хотя есть другие механизмы доступно.

ответил Reed Copsey 25 Jpm1000000pmTue, 25 Jan 2011 20:31:25 +030011 2011, 20:31:25

Похожие вопросы

Популярные теги

security × 330linux × 316macos × 2827 × 268performance × 244command-line × 241sql-server × 235joomla-3.x × 222java × 189c++ × 186windows × 180cisco × 168bash × 158c# × 142gmail × 139arduino-uno × 139javascript × 134ssh × 133seo × 132mysql × 132