VBA excel сохранить таблицу xls в dBase в кодировке windows

[Zarba]

Господа помогите (google уже пинал под дых) пожалуйста разобраться ... пытаюсь из макроса сохранить екселевсеий файл в dbase (office2003)
таким макаром

ActiveWorkbook.SaveAs Filename:= _
"D:\Program Files\Borland\Delphi7\Projects\wm_m ysql_exel\st122.dbf", _
FileFormat:=xlDBF4, CreateBackup:=False

все нормально но кодировка таблицы dbase ... dos 866

подскажите как макросом через метод SaveAs сохранить в dbase в нормальной человечной кодировкe win 1251

у метода saveas есть параметр TextCodePage но на него ни коем образом не реагирует...

сильно не бейте..

[Zarba]

Сам ума этому делу не дал но нашел вариант решения проблемы сдеся предложеный Basile надстройка к Excel xlstodbf.xla

запуск из под VBA надстрек Excel сдеся