extend » Поиск

Результаты по ключевому слову: extend

Как загрузить данные из Access в 1С ?

Загружаем данные из Access в 1С

Код 1C v 8.х

 Файл = "C:\files\demo.mdb" ;

   //СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + "; Extended Properties=""Excel 8.0;HDR=NO;""";

    СтрокаПодключения  =   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + ";""";

    Connection = Новый COMОбъект("ADODB.Connection");

    Попытка

        Connection.Open(СтрокаПодключения);

    Исключение

        Сообщить(ОписаниеОшибки());

        Возврат;

    КонецПопытки;

        Command = Новый COMОбъект("ADODB.Command");



    Command.ActiveConnection = Connection;

    Command.CommandText = "S_elect * FROM Table1";

    Command.CommandType = 1;

    RecordSet = Новый COMОбъект("ADODB.RecordSet");

    RecordSet = Command.Execute();

    стр ="";

      Пока RecordSet.EOF() = 0 Цикл

            для н=0 по  Recordset.Fields.Count -1 цикл

            стр = стр + " " + Recordset.Fields(н).Value;

         КонецЦикла;

      Сообщить(стр);

             стр ="";

        RecordSet.MoveNext(); 

      КонецЦикла;

   RecordSet.Close();

    Connection.Close();

Код 1C v 7.x

 Акцесс = СоздатьОбъект("ADODB.CONNECTION");
Попытка
     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";
     Акцесс.Open(СтрокаПодключения);
Исключение
     Сообщить("Все плохо:"+ОписаниеОшибки());
     Возврат;
КонецПопытки;
Команда = СоздатьОбъект("ADODB.Command");
Команда.ActiveConnection=Акцесс;
ТекстСелект = "S_elect * FROM tblCustoms";
НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");
Команда.CommandText=ТекстСелект;
Попытка
     НаборЗаписей=Команда.Execute;
Исключение
     Сообщить("Обломись:"+ОписаниеОшибки());
КонецПопытки;
Попытка
     НаборЗаписей.MoveFirst();
Исключение //нет записей в рекордсете
     НаборЗаписей.Close();
     Возврат;
КонецПопытки;
Пока НаборЗаписей.EOF()=0 Цикл
     ИНН = НаборЗаписей.Fields("INN").Value;
     //ну и т.д.
     НаборЗаписей.MoveNext();
КонецЦикла;
НаборЗаписей.Close();

// Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая: 
СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

Работа с ACCESS из 1С через DAO

Код 1C v 7.x

 Процедура Выполнить() 
//фасВладелец = СтрЗаменить(фасВладелец," ","_"); 
   Спр = СоздатьОбъект("Справочник.ТоварыВПрайсе"); 
   Спр.ИспользоватьВладельца(ФасВладелец); 
   dbe = СоздатьОбъект("dao.DBEngine.36"); 
   wksp = dbe.Workspaces(0); 
   db = 0; 
   Если ФС.СуществуетФайл(КаталогИБ()+"Pric_list.mdb")=0 Тогда               // 
       db = wksp.CreateDataBase(КаталогИБ()+"Pric_list.mdb",";LANGID=0x0419;Cp=1251;Country=0");             //   
       db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             
       |(Rec_ind integer, 
       |Код text,                                                                                                           
       |Артикул text, 
       |Цена integer, 
       |Товар text, 
       |Единица text, 
       |Val text);" 
       ); 
       db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 
   Иначе 
       db= wksp.OpenDataBase(КаталогИБ()+"Pric_list.mdb"); 
       Попытка 
           rs = db.OpenRecordset(Строка(фасВладелец)); 
       Исключение 
           Сообщить("Создается новая таблица"); 
       КонецПопытки; 
       Если ПустоеЗначение(rs)= 1 Тогда 
           db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             
           |(Rec_ind integer, 
           |Код text, 
           |Артикул text, 
           |Цена integer, 
           |Товар text, 
           |Единица text, 
           |Val text);" 
           ); 
           db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 
       КонецЕсли;     
       db.Execute("Delete * From ["+Строка(фасВладелец)+"];");                                                         
   КонецЕсли;   
   rs = db.OpenRecordset(Строка(фасВладелец)); 
   Y = 1; 
   Спр.ВыбратьЭлементы(); 
   Пока Спр.ПолучитьЭлемент() = 1 Цикл 
       лсЕдиницы = ""; 
       Если Спр.асТовар.апТип=Перечисление.ТипТовара.Услуга Тогда 
           лсЕдиницы = ""; 
       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Весовой Тогда 
           лсЕдиницы = "г"; 
       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Штучный Тогда 
           лсЕдиницы = "шт."; 
       КонецЕсли; 
       Если Спр.ЭтоГруппа() = 0 Тогда 
           rs.AddNew(); 
           rs.Rec_ind = Y; 
           rs.Код= Спр.асТовар.ПолныйКод(); 
           rs.Артикул =  Спр.асТовар.сАртикул; 
           rs.Цена = Спр.чЦена; 
           rs.Товар=Спр.асТовар.сПолнНаименование; 
           rs.Единица =  лсЕдиницы; 
           rs.Val = Спр.асВалюта.Код; 
           rs.Update(); 
           Y=Y+1; 
       КонецЕсли; 
   КонецЦикла; 
   db.Close();   
   Сообщить("Выгрузка завершена"); 
КонецПроцедуры

Код 1C v 7.x

 
Процедура ACCESS()
     dbe=CreateObject("DAO.DBEngine.36");
     wksp=dbe.Workspaces(0);
     db=0;
     // в ковычках имя фаила с расширением MDB
     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда
          // создание файла базы данных с русским порядком сортировки
          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");
          // DDL - запрос на создание таблицы
          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access
          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB
          //Создадим еще таблицу
          db.Execute("CREATE TABLE   BANKS
          |(REC_IND INTEGER,
          |BANKCODE INTEGER,
          |BANKNAME  TEXT  ,
          |ModifiedFlg BIT,
          |ChangeSeqFlg BIT);"
          );
          // индекс на нужные поля
          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");
     Иначе
          // просто открываем базу данных в разделенном режиме
          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");
          // и очищаем имеющиеся данные
          db.Execute("DELETE * FROM BANKS;");
    КонецЕсли;
    // rs-это как раз сама таблица, куда мы будем добавлять записи
    rs=db.OpenRecordset("BANKS");
    // добавление записи
    rs.AddNew();
    // присвоение значений полям
    rs.REC_IND            =     "1";
    rs.BANKCODE       =     "34";
    rs.BANKNAME       =    "Инвест";
    rs.ModifiedFlg        =     "1";
    // запомним запись
    rs.Update();
    // и так далее ...
    db.Close();  // закрытие базы данных
КонецПроцедуры

Категория: Работа с Microsoft Office и OpenOffice

Загрузка данных из текстовых файлов, выбирая SQL запросом данные из этих файлов Категория: Конвертация данных, Обмен, Перенос

Значение параметра Extended Properties для разных версий MS Excel Категория: Работа с Microsoft Office и OpenOffice

Загрузка данных из текстовых файлов с выборкой через ADO. Категория: JSON, XML, TXT, CSV, DBF

Запуск макроса в MS Word из 1С

Код 1C v 8.х

 //Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!

//Макрос пишет на листе Добрый день!, https://helpf.pro и сохраняет файл в D:/primer.doc 



ПримерМакроса = "Sub VBAprimer()

|S_election.TypeText Text:=""Добрый день!""

|Application.Keyboard (1033)

|S_election.TypeText Text:="": https://helpf.pro""

|S_election.TypeParagraph

|S_election.MoveUp Unit:=wdLine, Count:=2

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 1"")

|S_election.MoveDown Unit:=wdLine, Count:=1

|S_election.HomeKey Unit:=wdLine

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 2"")

|ActiveDocument.SaveAs FileName:=""D:/primer.doc"", FileFormat:= _

|    wdFormatDocument, LockComments:=False, Password:="""", AddToRecentFiles:= _

|    True, WritePassword:="""", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

|    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

|    SaveAsAOCELetter:=False

|End Sub";



// Создание объекта

Word = Новый COMОбъект("Word.Application");

Word.Documents.Add();

//VBComponents = Word.VBE.ActiveVBProject.VBComponents;

VBComponents = Word.ActiveDocument.VBProject.VBComponents;

Count = VBComponents.Count();

VBComponents.Add(1);

VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, ПримерМакроса);

Word.Application.Run(VBAprimer");

Word.Quit();

Word = Неопределено;

Код 1C v 7.x

  // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...
Процедура Сформировать()
     Попытка     
          W=СоздатьОбъект("Word.Application"); 
     Исключение
          Возврат;
     КонецПопытки;
     W.Documents.Add();
     i = W.VBE.ActiveVBProject.VBComponents.Count();
     W.VBE.ActiveVBProject.VBComponents.Add (1);
     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (1, "Sub Golif()");
     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (2, "MsgBox " + """" + "Работает" + """");
     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (3, "End Sub");
     W.Application.Run ("Golif");
     W="";
КонецПроцедуры

Категория: Работа с Microsoft Office и OpenOffice

Подключение к EXCEL и чтение данных из листа Excel

Код 1C v 8.х

 Ex = Новый COMObject("Excel.Application");
   Ex.Workbooks.Open(Путь);
   Ex.Visible = 1;    
   ТекЛист=Ex.WorkSheets(1);        
   Для Ячейка = 1 по 400 цикл
       Если НЕ  ТекЛист.Cells(Ячейка,1).Value  = Неопределено тогда
           Сообщить(Строка(ТекЛист.Cells(Ячейка,1).Value));    
           Карта = Справочники.Номенклатура.НайтиПоКоду(ИзЧислаВСтроку(ТекЛист.Cells(Ячейка,1).Value));    
           Если Карта.Пустая() тогда        
               Сообщить(" Пустой элемент "  + ТекЛист.Cells(Ячейка,1));
           иначе
               Объект = Карта.ПолучитьОбъект();
               Объект.ОсновнойПоставщик = ОсновнойКлиент;
               Объект.Записать();
               конецесли;    
       конецесли;
   конеццикла;

Примеры процедур для чтения данных из EXCEL

Код 1C v 8.х

 

// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл - Имя файла

//   пЛист - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_ADO(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0) Экспорт



    #Если Клиент Тогда

    Состояние("Установка соединения с Excel");

    #КонецЕсли



    //ЗаголовкиВСтроке1 = "HDR=YES;"

    ЗаголовкиВСтроке1 = "HDR=NO;";



    СтрокаСоединения ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + СокрЛП(пФайл) +" ;Extended Properties=""Excel 8.0;" + ЗаголовкиВСтроке1 + "IMEX=1;""";



    Connection = Новый COMОбъект("ADODB.Connection");

    Connection.ConnectionString =  СтрокаСоединения;



    Попытка

        Connection.Open();

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    RS = Новый COMОбъект("ADODB.Recordset");



    ТекстЗапроса =

    "S_elect

    |    Лист.*

    |FROM

    |    [" + пЛист + "$] as Лист";



    Попытка

        RS.Open(ТекстЗапроса, Connection);

    Исключение

        Сообщить ("Проблемы с выполнением запроса");

        Возврат Неопределено;

    КонецПопытки;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По RS.Fields.Count Цикл

            Поле = RS.Fields.Item(Счетчик - 1);

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик, , Поле.Name);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НомерСтроки = 0;

    КолвоСтрок  = RS.RecordCount;



    Пока RS.EOF() = 0 Цикл



        НомерСтроки = НомерСтроки + 1;



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        Если НомерСтроки < НачСтрока Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;



        Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда

            Прервать;

        КонецЕсли;



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для Счетчик = 1 По RS.Fields.Count Цикл



                Поле = RS.Fields.Item(Счетчик - 1);

                НоваяСтрока["К" + Счетчик] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = RS.Fields.Item(КлючИЗначение.Значение - 1);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



        // Обработка других полей

        RS.MoveNext();



    КонецЦикла;



    // Завершение работы



    RS.Close();

    Connection.Close();



    Возврат Таблица;



КонецФункции



// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COM(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



    #Если Клиент Тогда

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    Для НомерСтроки = НачСтрока По КонСтрока Цикл



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КонСтрока));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, НомерКолонки);

                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, КлючИЗначение.Значение);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



КонецФункции



// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COMArray(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



    #Если Клиент Тогда

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        МаксимальныйНомерКолонки = 0;

        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

            МаксимальныйНомерКолонки = Макс(МаксимальныйНомерКолонки, КлючИЗначение.Значение);

        КонецЦикла;



        КолвоКолонок = Мин(КолвоКолонок, МаксимальныйНомерКолонки);



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    // Массив типа COMSafeArray

    Массив = Лист.Range(Лист.Cells(НачСтрока, 1), Лист.Cells(КонСтрока, КолвоКолонок)).Value;

    КолвоСтрок   = Массив.GetUpperBound(1);



    Для НомерСтроки = 1 По КолвоСтрок Цикл



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Массив.GetValue(НомерКолонки, НомерСтроки);



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                НоваяСтрока[КлючИЗначение.Ключ] = Массив.GetValue(КлючИЗначение.Значение, НомерСтроки);



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



КонецФункции



// Функция получает список листов Excel

//

// Параметры:

//   пФайл - Имя файла

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   СписокЗначений

//

Функция Excel_ПолучитьСписокЛистов(пФайл, XLSОбъект = Неопределено) Экспорт



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Возврат Новый СписокЗначений;

    КонецПопытки;



    СписокЛистов = Новый СписокЗначений;

    Для каждого Лист Из XLSОбъект.Sheets Цикл

        СписокЛистов.Добавить(Лист.Name);

    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат СписокЛистов;



КонецФункции

Код 1C v 7.x

 Попытка
  Excel = СоздатьОбъект("Excel.Application");
 Исключение
  Сообщить(ОписаниеОшибки()+"; программа Excel не установлена на данном компьютере!");
     Возврат;
 КонецПопытки;
РабочиеКниги=Excel.WorkBooks;  // создаем рабочую книгу

 Попытка // открываем файл
  Отчет=РабочиеКниги.Open(Каталог+ИмяФайла); 
 Исключение 
  Сообщить(ОписаниеОшибки()+"; фаил с макросом не найден!");
  Возврат;
 КонецПопытки;

// заносим в таблицу какие-либо данные

 Лист = Отчет.Worksheets(1);

 Для Ном=1 По 20 Цикл
      Ячейка = Лист .Cells(ном,1); Ячейка.Value;
      Сообщить(Ячейка );
 КонецЦикла; 

Excel.Visible=1;

Попытка
      Отчет.Save();
Исключение
     Сообщить(ОписаниеОшибки()+"; не могу сохранить отчет!");
  Возврат;
 КонецПопытки;

Категория: Работа с Microsoft Office и OpenOffice