// Создадим объект-приложение MS Excel
      ExcelApplication = CreateObject('Excel.Application')

// Откроем документ Excel
      Workbook = ExcelApplication.Workbooks.Add()




//Подключаемся к ЭД
      doc1 = edocuments.getobjectbyid('108986')
      doc2 = edocuments.getobjectbyid('109966')

//
      //sn = doc1.SQLTableName
      //sn =
      //ShowMessage(sn)

 //Присваиваю имя листу в екселе равному ИД карточки  //переходим к первому листу
      Sheet1 = Workbook.Sheets.Item(1)



//Выдераем наменование реквизитов doc1

        Count = doc1.RequisiteCount()

        i = 0
        while  i <= Count-1

            doc1.RequisiteByIndex(i)
                workbook.sheets(1).rows(i+1).columns(1).formula = doc1.RequisiteByIndex(i).name
                workbook.sheets(1).rows(i+1).columns(2).formula = doc1.RequisiteByIndex(i).value
                workbook.sheets(1).rows(i+1).columns(3).formula = doc1.RequisiteByIndex(i).DataType
            i = i+1
        endwhile

//Присваиваю имя листу в екселе равному ИД карточки  //переходим к первому листу
      Sheet2 = Workbook.Sheets.Item(2)

//Выдераем наменование реквизитов doc2

        Count = doc2.RequisiteCount()

        i = 0
        while  i <= Count-1

            doc2.RequisiteByIndex(i)
                workbook.sheets(2).rows(i+1).columns(1).formula = doc2.RequisiteByIndex(i).name
                workbook.sheets(2).rows(i+1).columns(2).formula = doc2.RequisiteByIndex(i).value
                workbook.sheets(2).rows(i+1).columns(3).formula = doc2.RequisiteByIndex(i).DataType
            i = i+1
        endwhile





//Сохраняем файл
     Workbook.SaveAs("C:\1\4501342.xls")

//Закрываем
      Workbook.Close()
      ExcelApplication.Quit()