Из DBGrid в Excel: проблема формата

[Пепс]

Добрый день! использую Embrcadero RAD Studio XE2
имеется вот такая функция экспорт ячеек из DBGrid в Эксель

int f4_ExcelSend(int Sheet, int Stolb, int Stroka, String Str, bool asText){//>>>
Variant ExcelSheet,Cur;//Запись данных в Excel (Лист, столбец, строка, "данные",как_текст?)
UnicodeString ErrStr;
asText = true;
if(Str=="")return 1;//Не писать "пустоту"
ErrStr=L"Ошибка при записи: лист "+IntToStr(Sheet)+", столбец "+IntToStr(Stolb)+", строка "+IntToStr(Stroka);
try{ExcelSheet=XLSAPP.OlePropertyGet("WorkSheets",Sheet);}
catch (...){Application->MessageBox(ErrStr.c_str(),
		   L"Ошибочный номер листа Microsoft Excel",MB_OK+MB_ICONERROR); return -1;}
XLSAPP.OlePropertyGet("Range", "A1:K1000").OlePropertySet("WrapText", true);
XLSAPP.OlePropertyGet("Range", "A1:K1000").OlePropertySet("ColumnWidth", 20);
try{Cur=ExcelSheet.OlePropertyGet("Cells",Stroka,Stolb);
   if(asText)Cur.OlePropertySet("NumberFormat","@");//Форматировать ячейку как текст
   
   Str = "as5911058646фы";
   Cur.OlePropertySet("Value",Str.w_str());
   }
catch (...){Application->MessageBox(ErrStr.w_str(),
		   L"Ошибка Microsoft Excel",MB_OK+MB_ICONERROR); return -1;}
return 1;
}

Если запустить код в таком виде, то в ячейках Экселя выходит значение as59110
Если же в конце код заменить на

//Str = "as5911058646фы";
   Cur.OlePropertySet("Value","as5911058646фы");

то в ячейках Экселя отображается as5911058646фы

можете подсказать, почему в первом случае в Экселе отображается лишь часть передаваемой строки?

[Пепс]

проблема решилась.

Cur.OlePropertySet("Value",WideString(Str));