Текущий архив: 2007.08.12;
Скачать: CL | DM;

Вниз

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

← →
a.sitkin ©   (2007-07-12 06:49) [0]

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

---

← →
zorik ©   (2007-07-12 10:49) [1]

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

---

← →
umbra ©   (2007-07-12 11:07) [2]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2007.08.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c