Главная страница
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.055 c
1-1160398467
CDfdfgf
2006-10-09 16:54
2006.11.19
Tms "xlsadapter" - что это?


5-1143047689
Калям
2006-03-22 20:14
2006.11.19
Перехват сообщений мыши и клавиатуры


1-1160060212
IDens
2006-10-05 18:56
2006.11.19
Как подождать завершение потока


2-1162320660
daser
2006-10-31 21:51
2006.11.19
Как сделать, чтоб форма закывалась при нажатии на Esc?


2-1162210728
dreamse
2006-10-30 15:18
2006.11.19
Как считать список ключей которые есть в разделе ветки реестра ?