| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Открыть книгу Exel и запустить в ней макрос

a.sitkin ©   (2007-07-12 06:49:00) 

Подскажите пожалуйста, как открыть книгу Exel и запустить в ней макрос

---

umbra   (2007-07-12 11:07:00) [1]

uses ....., ComObj, ......;

var
 XLApp, mybook: Variant;

{................................}

 XLapp := Unassigned;
 mybook := Unassigned;
 XLApp := CreateOLEObject('Excel.Application);
 if Not VarIsEmpty(XLApp) then
   try
     mybook := XLApp.Open(filename:='c:\test.xls');
     XLApp.Run(Macro:= mybook.Name + '.xls!supermacros1');
   fynally
     if not VarIsEmpty(mybook) then
        mybook.Close(SaveChanges:=True);
     mybook := Unassigned;
     XLApp.Quit;
     XLApp := Unassigned;
   end;

---

zorik   (2007-07-12 10:49:00) [2]

http://www.kornjakov.ru/stat.htm

---

Наверх