0
woha
18.02.13
✎
11:39
|
Доброго дня!
Делаю импорт из екселя в 1С8.1 и столкнулся с проблемой считывания числа длиной в 13 символов. Использую следующий код:
MyCon = Новый COMОбъект ("ADODB.Connection");
MyCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + ПутьКФайлу + ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1""");
MyCat=Новый COMОбъект ("ADOX.Catalog");
MyCat.ActiveConnection = MyCon;
ИмяПервойСтраницы=MyCat.Tables.Item(0).Name;
MyRst = Новый COMОбъект ("ADODB.Recordset");
MyStr = "select * from ["+ИмяПервойСтраницы+"]";
MyRst.Open (MyStr, MyCon, 2, 3);//adOpenDynamic, adLockOptimistic
Формат(Число(MyRst.Fields(MyRst.Fields.Item(3).Name).Value), "ЧГ=") - выводить только 11 символов, а если не использую преобразований и форматирования то получаю: "4,0517918736e+012".
Спасибо.
|
|