在做ocx 控制元件的時候，函式需要返回一個字串型別的陣列，程式碼如下：

VARIANT CreadDllCtrl::GetarcData(void)
{
    AFX_MANAGE_STATE(AfxGetStaticModuleState());

    VARIANT vaResult;
    VariantInit(&vaResult);
    SAFEARRAY * psa;

    SAFEARRAYBOUND rgsabound[1];   
    CComVariant cv;
    CComBSTR bstrTmp;

    long nIndex;



    rgsabound[
 
0].lLbound = 0;

    rgsabound[0].cElements = dxfR.m_tarcData.size();
    //psa = SafeArrayCreate(VT_BSTR, 1, rgsabound);

    psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);

    nIndex = 0;

    list<Tag_CADArc> ::iterator it;
    double pointx,pointy,pointz,r,stAngle,edAnge;
    CString strTmp;
    LONG nCount 
 
= 0;
    for( it= dxfR.m_tarcData.begin();it!=dxfR.m_tarcData.end();it++)
    {
         CString str;
        //cout<<*it<<"\t";
        strTmp.Empty();
        pointx = (*it).tCen.x; 
        pointy = (*it).tCen.y;
        pointz = (*it).tCen.z;
        r = (*it).radius;
        stAngle = (*it).stAngle;
        edAnge 
 
= (*it).edAngle;

        str.Format(_T("%lf,"),pointx);
        strTmp = str;
        str.Format(_T("%lf,"),pointy);
        strTmp = strTmp + str;
        str.Format(_T("%lf,"),pointz);
        strTmp = strTmp + str;
        str.Format(_T("%lf,"),r);
        strTmp = strTmp + str;

        str.Format(_T("%lf,"),stAngle);
        strTmp = strTmp + str;

        str.Format(_T("%lf"),edAnge);
        strTmp = strTmp + str;


        bstrTmp = strTmp.AllocSysString();
        cv = bstrTmp;

        //SafeArrayPutElement(psa, &nCount,bstrTmp);
        SafeArrayPutElement(psa, &nCount,&cv);

        nCount++;
    }

       //vaResult.vt = VT_ARRAY|VT_BSTR;

    vaResult.vt = VT_ARRAY|VT_VARIANT;

    vaResult.parray = psa;

    // TODO: Add your dispatch handler code here

    return vaResult;
}

本來是用的上面標紅的字型的程式碼，意思就是建立一個VARIANT 型別，這個型別是個BSTR型別的陣列；但是在VBS 裡面呼叫該函式的時候，使用變數接收返回的陣列，總是

報，型別不匹配的錯誤。

最後發現，要建立的VARINAT 的陣列型別應該是VT_ARRAY|VT_VARIANT ，也就是把VT_BSTR 換成VT_VARIANT ,再執行就正確了；

參考：

https://blog.csdn.net/Python/article/details/2568849?utm_medium=distribute.pc_relevant_bbs_down.none-task-blog-baidujs-2.nonecase&depth_1-utm_source=distribute.pc_relevant_bbs_down.none-task-blog-baidujs-2.nonecase

http://www.coder100.com/index/index/content/id/317915