COM VBA 函数指针

Question

用ATL做了两个com：com1，com2
在VBA中调用它们，先调用com1处理数据，再用VBA处理，再用com2处理。
现在需要将VBA中的一个处理函数传到com2中，
请大家帮帮忙，看VBA中函数怎么声明传递过去，com2中怎么声明调用

Answer 1

VBA中新建一个标准模块，建立一个全局函数譬如
function AAA( byval a as long, byval b as long) as longCOM组件中写一个方法 譬如
HRESULT STDCALL CallAAA( long (STDCALL *pfn)(long a, long b) )
{
    long r = pfn(1,2);
    
    return S_OK;
}VB传递时
com2.CallAAA AddressOf AAA注意，VB里函数必须放在标准模块才行。