Как выполнить макрос в Excel ?

← →
VID © (2004-05-09 17:59) [0]

Delphi 5 + Excel 2002.
Делаю так.
Excel:=GetActiveOleObject("Excel.application.10");
Excel.Visible:=true;
defaultxls := ReportDir + "default.xls";
Excel.WorkBooks.Open(defaultxls);
WorkSheet:=Excel.ActiveSheet;
UsdRange:=WorkSheet.UsedRange;
Cells:=Excel.Cells;
В файле default.xls есть макрос "macros_1".
как запустить его выполнение в Excel"е из delphi ?

← →
Думкин © (2004-05-09 18:11) [1]

Информация к размышлению:
Sub Макрос1() " " Макрос1 Макрос " Макрос записан 09.05.2004 (Думкин) " " Range("D8").Select ActiveCell.FormulaR1C1 = "=5" Range("E8").Select ActiveCell.FormulaR1C1 = "=6" Range("F8").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" Range("F9").Select End Sub Sub Макрос2() " " Макрос2 Макрос " Макрос записан 09.05.2004 (Думкин) " " Range("D10").Select ActiveCell.FormulaR1C1 = "=7" Range("D8:F8").Select Selection.ClearContents Range("D7").Select Application.Run "Книга1!Макрос1" Range("F10").Select ActiveCell.FormulaR1C1 = "=8" Range("F11").Select End Sub

Application.Run "Книга1!Макрос1"

Большое спасибо, что решил мне помочь :)

Как выполнить макрос в Excel ? Найти похожие ветки