Вот пример кода, который считывает из файла Excel данные и заполняет табличную часть некоего документа
ExcelApp = CreateObject("Excel.Application");
WorkBooks = ExcelApp.WorkBooks;
WorkBook = WorkBooks.Open(ИмяФайла);
Lists = WorkBook.Sheets.Count();
for k = 1 to Lists do
Name = WorkBook.Sheets(k).Name();
ShList.AddValue(TrimAll(Name),TrimAll(Name));
enddo;
if ShList.ChooseValue(S,"выберите лист таблицы ""Excel""",N,,) = 0 then
DoMessageBox("Не выбран лист таблицы ""Excel"" !");
Goto ~Exit;
else
ShList.GetValue(N,NL);
endif;
Sheet = WorkBook.WorkSheets();
WorkBook.Sheets(TrimAll(NL)).Activate();
Counter = 0;
First = 5; Last = 9999;
Doc = CreateObject("Document.ВидДокумента");
for k = First to Last do
Counter = Counter + 1;
Status("Обработано строк "+Counter);
XCell = ExcelApp.Cells(k,1).Value;
if EmptyValue(XCell) = 1 then
k = 9999; Break
endif;
Doc.NewLine();
// а потом, к примеру, так
Doc.Количество = ExcelApp.Cells(k,2).Value;
Doc.Сумма = ExcelApp.Cells(k,3).Value;
enddo;
Doc.write();
~Exit :
ExcelApp.ActiveWorkbook.Close();
ExcelApp.Quit()