Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];
Вниз
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]jack128 © (03.09.03 17:30) [11]
Спасибо огромное
все получилось
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
