C++Builder XE(2,3,4) 访问Excel(UnicodeString)解决方法

C++Builder XE(2,3,4) 访问Excel(UnicodeString)
由于对UnicodeString的支持,发现OLE访问Excel出现问题。现改为TExcelApplication，book，sheet等访问，却始终无法成功。代码化简如下：
tagVARIANT vRow,vCol,vStr;
vRow.vt = VT_I4;
vCol.vt = VT_I4;
vRow.intVal = 2;
vCol.intVal = 5;
vStr.vt = VT_BSTR;
vStr = ExcelSheet->Cells->get_Item(vRow,vCol);
UnicodeString strRd,strWr;
///////////////////////////////////////////////
strRd = vStr.bstrVal;
//////////////////////////////////////////////

strWr = L"ABCDEFG";
vStr.bstrVal = strWr.w_str();
ExcelSheet->Cells->set_Item(vRow,vCol,vStr);

strRd和最后的vStr可以获得正确的值么？

谢谢各位，请帮忙修正一下代码。