Яндекс меня на дельфийно-сишный форум выкинул, там такое повествуется:
XLWorkbook->SaveAs(WideString(dlgOpen->FileName),
xlWorkbookNormal,
"",
"",
false,
false,
xlExclusive,
xlUserResolution,
false,
WideString("1251"),
0,
XLApp); // XLApp - имя ExcelApplication
Долго думал, что есть WideString("1251"). Пытался просто 1251 писать, пытался строкой, пытался strconv в юникод, из юникода. Один хрен 866 получается.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас