Поэтому я экспериментировал при вызове ITypeInfo в экземпляре класса VBA, и, хотя он выглядит многообещающим, я хотел посмотреть, могу ли я получить ссылку на его содержащий проект, аналог библиотеки типов. Я думал, что ITypeInfo.GetContainingTypeLib может быть полезным, но он генерирует исключение, указывающее, что VBA не будет сотрудничать. У кого-нибудь есть идеи о том, как VBA может делать что-то иначе, чем стандартная спецификация COM?
Здесь находится код библиотеки классов С#. Зарегистрируйтесь для COM-взаимодействия и установите COMVisible (true) в AssemblyInfo.cs, чтобы сделать его доступным из VBA. Код клиента VBA, приведенный ниже.
using System;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;
namespace TypeLibraryInspector
{
[ComImport()]
[Guid("00020400-0000-0000-C000-000000000046")]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IDispatch
{
[PreserveSig]
int GetTypeInfoCount(out int Count);
[PreserveSig]
int GetTypeInfo
(
[MarshalAs(UnmanagedType.U4)] int iTInfo,
[MarshalAs(UnmanagedType.U4)] int lcid,
out System.Runtime.InteropServices.ComTypes.ITypeInfo typeInfo
);
//void GetTypeInfo(int typeInfoIndex, int lcid, [MarshalAs(UnmanagedType.CustomMarshaler,
// MarshalTypeRef = typeof(System.Runtime.InteropServices.CustomMarshalers.TypeToTypeInfoMarshaler))] out Type typeInfo);
//void GetTypeInfo(int typeInfoIndex, int lcid, out IntPtr piTypeInfo);
[PreserveSig]
int GetIDsOfNames
(
ref Guid riid,
[MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.LPWStr)]
string[] rgsNames,
int cNames,
int lcid,
[MarshalAs(UnmanagedType.LPArray)] int[] rgDispId
);
[PreserveSig]
int Invoke
(
int dispIdMember,
ref Guid riid,
uint lcid,
ushort wFlags,
ref System.Runtime.InteropServices.ComTypes.DISPPARAMS pDispParams,
out object pVarResult,
ref System.Runtime.InteropServices.ComTypes.EXCEPINFO pExcepInfo,
IntPtr[] pArgErr
);
}
public interface IInspector
{
void InspectThisObject(object vbaClassInstance);
}
[ClassInterface(ClassInterfaceType.None)]
[ComDefaultInterface(typeof(IInspector))]
public class Inspector : IInspector
{
private const int S_OK = 0; //From WinError.h
private const int LOCALE_SYSTEM_DEFAULT = 2 << 10; //From WinNT.h == 2048 == 0x800
void IInspector.InspectThisObject(object vbaClassInstance)
{
//https://limbioliong.wordpress.com/2011/10/18/obtain-type-information-of-idispatch-based-com-objects-from-managed-code/
IDispatch pDispatch = (IDispatch)vbaClassInstance;
ITypeInfo piTypeInfo;
pDispatch.GetTypeInfo(0, LOCALE_SYSTEM_DEFAULT, out piTypeInfo);
string s1; string s2; string s3;
int i1;
piTypeInfo.GetDocumentation(-1, out s1, out s2, out i1, out s3);
//s1 = "Class1" good
//s2 = null shame
ITypeLib piTypeLib;
int pIndex;
piTypeInfo.GetContainingTypeLib(out piTypeLib, out pIndex); // <-- throws Exception 0x800A88C1
}
}
}
Итак, какой-то клиент VBA здесь
Sub Test()
Dim oInspector As TypeLibraryInspector.Inspector
Set oInspector = New TypeLibraryInspector.Inspector
Dim oClass1 As Class1
Set oClass1 = New Class1
oInspector.InspectThisObject oClass1
End Sub
где Class1 может быть любым классом, у меня есть две пустые функции в моей, но я не думаю, что это важно.
Я задал аналогичный вопрос C++.