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

给你一段金字塔的C++代码

 

VARIANT IFormulaRunTime::GetVARDATA(LPCTSTR Name)
{
 COleSafeArray saRet;
 if(!m_pCallBack->m_pExp)
  return saRet.Detach();
 
 if(GetDataSize() == 0)
  return saRet.Detach();
 
 int nLineIndex = m_pCallBack->GetLineIndex(Name);
 if(nLineIndex < 0)
  return saRet.Detach();

 // Create the safe-array...
 saRet.CreateOneDim(VT_VARIANT, m_pCallBack->m_pRunTime->GetMainView()->m_pMarketData->m_dwDataNumber+1);
 
 // Initialize it with values...
 long lArrayIndex[1];
 for(UINT i = 0; i <= m_pCallBack->m_pRunTime->GetMainView()->m_pMarketData->m_dwDataNumber; i++)
 {
  int nIndex = i * m_pCallBack->m_pExp->m_nLineNum + nLineIndex;
  if(nIndex >= (int)m_pCallBack->m_pExp->m_arLineData.size())
  {
   return saRet.Detach();
  }

  lArrayIndex[0] = i;
  if(m_pCallBack->m_pExp->m_arLineData.m_pData[nIndex].m_bInvalid)
  {
   _variant_t vt(m_pCallBack->m_pExp->m_arLineData.m_pData[nIndex].m_dblVal);
   saRet.PutElement(lArrayIndex, &vt);
  }
  else
  {
   _variant_t vt(g_fInvalid);
   saRet.PutElement(lArrayIndex, &vt);
  }
 }
 
 // Return the safe-array encapsulated in a VARIANT...
 VARIANT vt = saRet.Detach();
 return vt;
}

把你的C++工程，去掉编译的中间文件，把工程打包压缩过来我们帮你看看