Имя: Пароль:
1C
1C 7.7
v7: сохранение в excel через ADO
0 zladenuw
 
24.11.11
14:31
Возможно ли сохранить всю таблицу сразу без прохождение строк таблицы
Делаю так
СтрокаПодключения = "
   |Provider=Microsoft.ACE.OLEDB.12.0;
   |Data Source="+ИмяФайлаЭксель+";
   |Extended Properties=""Excel 12.0;HDR=No;"";";
   
   Попытка
       Catalog = СоздатьОбъект("ADOX.Catalog");    
   Исключение
       Сообщить(ОписаниеОшибки());
   КонецПопытки;
   Catalog.ActiveConnection = СтрокаПодключения;
   
   Table = СоздатьОбъект("ADOX.Table");
   Table.Name = "Table";
   
   Table.Columns.Append("Column1");
   Table.Columns.Append("Column2");
   
   Catalog.Tables.Append(Table);
   
   Table = "";
   Catalog = "";

   Connection = СоздатьОбъект("ADODB.Connection");    
   Connection.Open(СтрокаПодключения);
   
   Command = СоздатьОбъект("ADODB.Command");
   Command.ActiveConnection = Connection;
   Command.CommandType = 1;
       
   лСпЗн = СоздатьОбъект("СписокЗначений");
   лСпЗн.ДобавитьЗначение(1);
   лСпЗн.ДобавитьЗначение(2);
   лСпЗн.ДобавитьЗначение(3);
   
   Для ы=1 По лСпЗн.РазмерСписка() Цикл
       ;
       Command.CommandText = "
       |INSERT INTO [Table] VALUES ('"+лСпЗн.ПолучитьЗначение(ы)+"','"+лСпЗн.ПолучитьЗначение(ы)+"')";
       Command.Execute();
   КонецЦикла;
       
       
   Command = "";
   Connection.Close();
   Connection = "";