Имя: Пароль:
1C
1С v8
выгрузка в excel
Ø (aka AMIGO 22.12.2014 10:37)
,
0 Фанат1с
 
21.12.14
22:28
Здравствуйте! Помогите решить проблему!
При выгрузки в excel если строка слишком длинная то он вываливает ошибку! Перепробовал многие типы данных, не нашел нужного!
Если ли в ado что то больше чем "Type = 203"


СтрокаПодключения = "
    |Provider=Microsoft.ACE.OLEDB.12.0;
    |Data Source="+ИмяФайлаЭксель+";
    |Extended Properties=""Excel 12.0;HDR=No;"";";

    // Создаем соединение
    Connection = Новый COMОбъект("ADODB.Connection");
    Connection.Open(СтрокаПодключения);
    
    
    // Создаем объект ADOX.Catalog
    Catalog = Новый COMОбъект("ADOX.Catalog");
    Catalog.ActiveConnection = Connection;
    
    // Создаем таблицу и добавляем в неё два столбца
    Table = Новый COMОбъект("ADOX.Table");
    Table.Name = "TDSheet";
    
    Table.Columns.Append("Бренд");
    Table.Columns.Append("Код");
    Table.Columns.Append("Наименование");
    
    Column = Новый COMОбъект("ADOX.Column");
    //Column.DefinedSize = 9999;
    Column.Name = "Кроссы";
    Column.Type = 203;
    Table.Columns.Append(Column);

    Table.Columns.Append("Цена с НДС");
    Table.Columns.Append("Остаток");
        
    // Присоединяем таблицу
    Catalog.Tables.Append(Table);
    Table = Неопределено;
    Catalog = Неопределено;
    

    Command = Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection = Connection;
    Command.CommandType = 1;
    
    // Заполняем таблицу данными выборки
    Для каждого Строка из Данные Цикл
        
        Command.CommandText = "
        |INSERT INTO [TDSheet] VALUES (
        |'"+Строка.Бренд+"',
        |'"+Строка.Код+"',
        |'"+Строка.Наименование+"',
        |'"+Строка.Кроссы+"фыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофывфыводфыловлдофывлдофыв"+"',
        |'"+Строка.Цена+"',
        |'"+Строка.Остаток+"')";
        
        Command.Execute();

    КонецЦикла;
    
    // Закрываем соединение
    Command = Неопределено;
    Connection.Close();
    Connection = Неопределено;
1 Cap_1977
 
21.12.14
22:42
(0) в "фыводфыловлд...." пробел куда-нить ткни
2 Zhuravlik
 
21.12.14
22:48
(0) +1, можно просто разрезать длинные строки
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.