Форум: "Потрепаться";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

Как выполнить макрос в 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

---

← →
VID ©   (2004-05-09 19:39) [2]

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

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

---

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

Форум: "Потрепаться";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c