|
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 = "";
|
|