После демонстрации образом о том, как читать материалы из архива с помощью Borland + + конструктор, в настоящее время мы намерены проиллюстрировать способ записи вашей продукции для архива, используя один и тот же язык, С + +.

Иногда бывает лучше объяснить вещи с помощью, например, это хороший Ниже простой пример, чтобы продемонстрировать процесс.

Если вы собираетесь писать производства хранится в переменной, х, скажем х = 3,14 в строке 2, колонка 3 из архива. Тогда все что вам нужно сделать, это использовать следующий код.

Случай 1: Вы должны создать новый архива затем напишите ваш выход там

/ / объявлять переменные
Вариант XL, v0, v1, v2, v3;
двойные х = 3,14;

/ / открыть excel применения
Вариант XL =:: CreateObject ( "excel.application");

/ / установка приложения как невидимая, вы можете изменить "ложное" к "подлинной" сделать его видимым
XL.OlePropertySet ( "Visible", ложно);

/ / Получение Учебное
v0 = XL.OlePropertyGet ( "Workbooks");

/ / добавить один трудовой книжке
v0.OleProcedure ( "Добавить");

/ / Учебное выберите номер 1
v1 = v0.OlePropertyGet ( "Пункт", 1);

/ / Получение лист
v2 = v1.OlePropertyGet ( "рабочие");

/ / Добавить одну работу лист
v2.OleFunction ( "Добавить");

/ / выбрать лист № 1
v3 = v2.OlePropertyGet ( "Пункт", 1);

/ / переименовать его в электронную таблицу "example1"
v3.OlePropertySet ( "Имя", "example1");

/ / Наконец, записывайте свой выход в строке 2 столбце 3
Температура символ [10];
sprintf (температурных, "% lf", х);
v3.OlePropertyGet ( "Элементы"). OlePropertyGet ( "Пункт", 2,3). OlePropertySet ( "стоимость", температура);

/ / Это остановит просим вас, когда вы хотите же ваши архива или нет
XL.OlePropertySet ( "DisplayAlerts", ложно);

/ / сохранение вашего архива на "г" и назовите его как "case1.xls"
XL.OlePropertyGet ( "Workbooks"). OlePropertyGet ( "Пункт", 1). OleProcedure ( "SaveAs", "г: \ \ case1.xls");

/ / Закрыть трудовой книжке
v1.OleProcedure ( "Закрыть");

/ / довольно excel применения
XL.OleProcedure ( "Выход");

/ / переменная unassign
XL = Unassigned;

Вариант 2: Вы хотите написать ваши результаты в существующих архива с именем "case1.xls", расположенные на "D:"

двойные х = 3,14;
/ / объявлять переменные
Вариант XL, v0, v1, v2, v3;

/ / открыть excel применения
Вариант XL =:: CreateObject ( "excel.application");

/ / установка приложения как невидимая, вы можете изменить "ложное" к "подлинной" сделать его видимым
XL.OlePropertySet ( "Visible", ложно);

/ / открыть журнал "называется case1.xls"
XL.OlePropertyGet ( "Workbooks"). OleProcedure ( "Открыть", "г: \ \ case1.xls");

/ / открыть рабочий "example1"
v0 = XL.OlePropertyGet ( "бюллетени", "example1");

/ / получить клетки
v1 = v0.OlePropertyGet ( "Элементы");

/ / Наконец, записывайте свой выход в строке 2 столбце 3
Температура символ [10];
sprintf (температурных, "% lf", х);
v1.OlePropertyGet ( "Пункт", 2,3). OlePropertySet ( "стоимость", температура);

/ / Это остановит просим вас, когда вы хотите же ваши архива или нет
XL.OlePropertySet ( "DisplayAlerts", ложно);

/ / сохранить то, что Вы сделали
XL.OleProcedure ( "Сохранить");

/ / довольно excel применения
XL.OleProcedure ( "Выход");

/ / переменная unassign
XL = Unassigned;

Вот и все. Хотя долго, процедура до сих пор стандартным и простым.