В NOMAD реализована возможность работы со сторонними приложениями через COM соединение. Это значит, что вы можете подключаться к Word,Excel,InternetExplorer,Outlook, Bat,Lotus, 1C и многим и многим другим программам, которые поддерживают COM соединения, и программировать в них на их встроенном языке. Создавать документы, таблицы, отсылать и получать письма, и даже гуглить. Чтобы найти больше информации об этом, можно поискать в интернете как это делается в Delphi с помощью модуля ComObj в NOMAD это делается абсолютно идентично. Приведем пример:
Итак, как открыть Excel и записать в ячейку чего нибудь? Вот так:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Procedure Button1OnClick(); var MsExcel,workbook,sheet: Variant; begin MsExcel := CreateOleObject('Excel.Application'); //создаем объект Excel Sleep(1000); //ждем секунду на всякий случай //весь последующий код по сути является командами Excel, т.е. мы уже программируем на Excel обращаясь к нему через //объект MsExcel, который мы создали (ну и workbook и sheet также) MsExcel.Workbooks.Add;//добавляем новую книгу Excel workbook := MsExcel.workbooks.item[1]; //позиционируемся на первом элементе sheet := workbook.sheets.item[1];//выбираем первую страницу sheet.cells[1,2]:='asdfg';//и рисуем в первой ячейке второго столбца 'asdfg' sheet.cells[2,2]:=230; //а во второй 230 MsExcel.Visible := True; //делаем эксель видимым (он появляется на экране) //MsExcel.ActiveWorkbook.Close; //MsExcel.Application.Quit; end; |
добавляем на форму кнопку, и в обработчик OnClick этой кнопки вставляем этот код. И наслаждаемся результатом. У вас на компьютере должен быть установлен Excel чтобы данный код работал. Последние 2 строки закомментированы, т.к. они закроют Excel и вы ничего не увидите.