Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.20;
Скачать: CL | DM;

Вниз

Выделение ячейки в Excel через OLE   Найти похожие ветки 

 
jiurajhgjhgty   (2004-01-08 19:24) [0]

А как через OLE поместить в Excel курсор на ту ячейку листа, котрая мне нужна (например A34)?
Я пишу:
...
В uses добавить ComObj
var
XLApp : variant;

Begin

XLApp:= CreateOleObject("Excel.Application");
XLApp.Workbooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].range["A34"].select;{В этой строке ошибка}
End;

При выполнеии дает ошибку.Коворит что метод select неподдерживается.Пробовал тоже написать через Cells -тоже самое.Как быть?


 
Vlad ©   (2004-01-08 19:37) [1]


> Как быть?

Взять Excel, запустить на запись макрос, выделить ручками ячейку (или группу ячеек) и посмотреть в редакторе visual basic сформированный код макроса.
У меня лично твой код срабатывает.


 
jiurajhgjhgty   (2004-01-08 20:09) [2]

OK!Я нем ного перефразирую вопрос:
Есть На форму ставим ToleContainer (с вкладки System). И две кнопки Button1, Button2.И пишем код:

procedure TForm1.Button1Click(Sender: TObject);
var
begin
OleContainer1.CreateObjectFromFile("путь к любому файлу Excel",false);
OleContainer1.DoVerb(0);
OleContainer1.OleObject.WorkSheets[2].select;
OleContainer1.OleObject.WorkSheets[2].range["A34"].select;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OleContainer1.OleObject.WorkSheets[2].range["A34"].select
end;

Последняя строка в обоих кодах идентична, но в первом случае она работает а во втором нет!!!!Почему?


 
Jedaito   (2004-01-09 01:17) [3]

при нажатии кнопки уходит фокус с контейнера

надо опять doverb(0)



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

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

Наверх




Память: 0.47 MB
Время: 0.029 c
1-63089
andrey__
2003-12-30 13:57
2004.01.20
TServiceApplication


8-63255
GhostDog
2003-09-13 14:09
2004.01.20
Фильтры


1-63063
serg128
2004-01-08 12:45
2004.01.20
Как сохранить проигрываемый звук в MP3?


1-63246
Вованчик
2004-01-09 09:38
2004.01.20
Hint


1-63078
Dublicator
2004-01-07 12:36
2004.01.20
Скрытие приложения