VPF::как внести изменения в EXcel - Форум программистов

Drug28081985

Дата 26.5.2006, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 19.5.2006

Репутация: нет
Всего: нет

Может я чего-то и не понимаю но здесь в сылках я похожего не нашел.

нада автоматически окрыть известный Excel файл и в нем заменить все числа 5 на 3.

Я мало что понимаю. smile

Пожалуйста напишите подробно!

sexton

Дата 26.5.2006, 17:02 (ссылка)

(нет голосов)

Загрузка ...

sexton=Пономарь (eng)

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: нет
Всего: 9

1. Поищи пример записи данных в Excel через OLE. Оттуда возбмешь процедуру подключения и открытия книги.
2. Ищешь в Excel кнопку Сервис->Макрос->Начать запись. Пробуешь сделать нужную замену (вызовом функции "заменить") прямо в Excel. После этого жмешь кнопку "остановить запись". Жмешь Alt-F11 и смотришь сгенерированный бейсиковый код макроса.
3. Переписываешь этот макрос на Delphi в своей программе.

--------------------

Поставить +

ЖЖ
Рассылка Рассылок

Albinos_x

Дата 28.5.2006, 08:09 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

WordApplication, ExcelApplication

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

DimassS

Дата 29.5.2006, 05:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Да... похожего здесь море...!

Код


Var
Excel:variant;
filename:string;
begin
filename:=Дирректория на диске к файлу Excel;
excel:createoleobject('ExcelApplication');
Excel.Workbooks.Open(Filename,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
for i:=1 to excel.worcbooks.sheet.count do
for j:=1 to excel.colums.count do
for h:=1 to excel.height.count do
begin
if excel.cells[j,h]=5 then excel.cells[j,h]:=3;
end;

Не знаю поканает или нет, не пробовал... ну а в общем здесь инфы по этой теме... смотри подпись

Akella

Дата 11.7.2006, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

Заходишь в Excel, начинаешь записывать макрос. Выполни замену в Excel во время записи макроса. Потом посмотри что Excel состряпал - переведи в Delphi

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »