Excel

← →
yurchello (2003-09-03 05:03) [0]

Привет всем
Помогите кто сталкивался с этим
я использую OleContainer
olecontainer1.CreateObjectFromFile("c:\test.xls",False);
по двойному щулчку я открываю Excel
затем я делаю таблицу, выделяю ее и вот она проблема:
я незнаю как програмно скопировать в буфер выделеную таблицу
Макрос на VB имеет такой вид
Selection.Copy
а вот как в delphi это сделать?

← →
yurchello (2003-09-03 09:41) [1]

неужели никто незнает
плиз очень надо

← →
Ghost_ (2003-09-03 10:07) [2]

Точно также..

← →
yurchello (2003-09-03 10:35) [3]

Точно также..
не получается подробней можно

← →
Ghost_ (2003-09-03 10:48) [4]

А че не получается?

← →
Ghost_ (2003-09-03 10:50) [5]

сделай
var
Range:Variant;
и сделай..
Range:=Excel.WorkSheets[1].Range["А2:А22"].Copy;
и все

← →
jack128 (2003-09-03 11:46) [6]

Ввот это у тя не работает?
// Копирум в буфер
OleContainer1.OleObject.Applicaion.Selection.Copy;
// Вставляем из буфера
OleContainer1.OleObject.Paste;

← →
jack128 (2003-09-03 11:48) [7]

Сорри недочитал вопрос -)
Но ExcelApp.Selection.Copy 100% работает!!

← →
yurchello (2003-09-03 12:06) [8]

pr button1
begin
olecontainer1.CreateObjectFromFile("c:\test.xls",False);
end;
делаю таблицу, выделяю ее затем
pr button2
begin
OleContainer1.OleObject.Applicaion.Selection.Copy;//ошибка
"Method "Application"not supported by automation object"
end;
что я не так делаю

← →
jack128 (2003-09-03 12:31) [9]

Мда..Не знаю..Что то у мя с этим контейнером работать не получается..В самом екселе все работает, а тут... :-(

← →
Е-Моё имя (2003-09-03 17:10) [10]

jack128 © (03.09.03 12:31)
наскока я понял, пока Verb "открыть" не сделаешь, никак из OleObject не достучаться до Application

← →
jack128 (2003-09-03 17:30) [11]

> Е-Моё имя © (03.09.03 17:10) [10]
100%
Поесть надо что-то типа
OleContainer1.CreateObjectFromFile("F:\Лист Microsoft Excel.xls", False);
OleContainer1.UpdateVerbs;
OleContainer1.DoVerb(0);
ExcelApp := OleContainer1.OleObject.Application;
А теперь что хошь, то делай :-)

← →
yurchello (2003-09-03 19:35) [12]

Excel Найти похожие ветки