Скачать: CL | DM;

Как через OLE добавить строку столбец в Excel e??   Найти похожие ветки 

← →
ZSergey   (2005-09-01 09:18) [0]

и еще
Как запустить в Excel VBA-макрос через OLE?
Спасибо

---

← →
ZSergey   (2005-09-01 11:26) [1]

неужели никто не знает, хоть скажите, вообще это возможно или нет??

---

← →
jack128 ©   (2005-09-01 12:22) [2]

Application.Run

---

← →
ZSergey   (2005-09-01 12:46) [3]

Насколько я понял запуск приложение? В чем смысл? :)

---

← →
YurikGL ©   (2005-09-01 20:45) [4]

app := CreateOleObject("Excel.Application");
>добавить строку\столбец в Excel"e??
что-то типа
   app.activesheet.Rows("2:2").Select;
   app.Selection.Insert Shift:=xlDown
   app.activesheet.Columns("D:D").Select
   app.Selection.Insert Shift:=xlToRight
>Как запустить в Excel VBA-макрос через OLE?
Попробуй ExcelApplication1.Run("имя макроса")

---

← →
Карелин Артем ©   (2005-09-01 22:13) [5]

На это дело будут сильно влиять вплоть до запрета этого такие веши, как функции обеспечения безопасности и антивирусы.

---

← →
Карелин Артем ©   (2005-09-01 22:23) [6]

Имелась в виду работа с макросами. Остальное без проблем.

---

← →
Попов Виталий   (2005-09-02 17:12) [7]

вот пример добавления столбцов/строк, а также выполнения макроса

procedure TForm1.Button1Click(Sender: TObject);
Var
Exl,WB,Sh:OleVariant;

begin
Exl:=CreateOleObject("Excel.Application");
try
WB:=exl.Workbooks.Add("C:\Книга1.xls");
Sh:=Wb.WorkSheets[1];
 //Добавление строки
Sh.Rows[2].Insert;
//2-это номер строки по образцу и перед котрой будет
//добавлена новая.
Sh.Columns[2].Insert;
//Аналогично добавлению строки

//Выполнение макроса
Exl.Run("Макрос1");

Exl.Visible:=True;
finally
Exl:=Unassigned;
WB:=Unassigned;
Sh:=Unassigned;
end;

Примечание: макрос вызовется при любом выбранном уровне безопасности; если у макроса есть входные параметры их надо задавать через переменные типа OleVariant;
Например: Exl.Run("TestFunction", Arg1, Arg2).
Макрос можно выполнять только после инициализации книги, в которой он храниться
WB:=exl.Workbooks.Add("C:\Книга1.xls");

---

← →
ZSergey   (2005-09-06 15:52) [8]

to Попову Виталию
Большое спасибо, все работает :)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c