如何用SAFEARRAY向VBS传递数组 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

您好，我按照上面的思想写了个测试用例：

VARIANT varColInfo[3];
//初始化 VARIANTs
for (int m = 0; m < 3; m++)
VariantInit(&varColInfo[m]);

// 每一列
varColInfo[0].vt = VT_UI4;
varColInfo[0].lVal = 1;

varColInfo[1].vt = VT_UI4;
varColInfo[1].lVal = 2;

COleSafeArray sa;
//创造一维
//用varColInfo初始化
sa.CreateOneDim(VT_VARIANT, 2, varColInfo);

// 返回
VARIANT vt = sa.Detach();
return vt;

VARIANT VBSAddin::BaoHanTest(){ 刚才的那段代码}

在vbs里调用如下：

dim nkh(1)
Dim MyAddin
Set MyAddin = CreateObject("MyActiveXDemo.VBSAddin")
nkh= MyAddin.BaoHanTest()
msgbox nkh(0)

提示运行时错误，描述为类型不匹配，是我在vbs里调用错误吗，应该怎样调用？

主题：如何用SAFEARRAY向VBS传递数组