выгрузка в 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, можно просто разрезать длинные строки
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший