Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.053 c
15-1161882072
Real
2006-10-26 21:01
2006.11.19
cd boot error 0x073 - И винда не сетапится!


15-1162319866
кукуруку
2006-10-31 21:37
2006.11.19
Класс Helper


3-1158396759
urel
2006-09-16 12:52
2006.11.19
Связи в БД


2-1162739216
Student2007
2006-11-05 18:06
2006.11.19
Убрать границы а PaintBox


1-1160114258
DVM
2006-10-06 09:57
2006.11.19
Фреймы самопроизвольно превращаются в формы!