Набирал непосредственно в ББ1.6.
## Код:
```
IF tableSQL # NIL THEN
   pp := 0;
   FOR i:=0 TO tableSQL.rows-1 DO
   tableSQL.Read(i, dataSQL);
   Strings.IntToString(i+2+zdvig, row);
   INC(pp);
   Strings.IntToString(pp,pps);            
   range := sheet.Range(CtlT.Str("A"+row), CtlT.Str("A"+row));      range.PUTValue(CtlT.Str(pps$));
   s:=dataSQL.fields[4]$;
   res := WinApi.WideCharToMultiByte(1251, {},  s, -1, ss, 255, NIL, NIL);
   range := sheet.Range(CtlT.Str("B"+row), CtlT.Str("B"+row));      range.PUTValue(CtlT.Str(s$));
   range := sheet.Range(CtlT.Str("C"+row), CtlT.Str("C"+row));      range.PUTValue(CtlT.Str(dataSQL.fields[6]$));      
END;
```

Где tableSQL это SqlDB.Table и содержит результат запроса к MS SQL
Русские символы не читаемые ни в B ни в C столбцах