Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];
ВнизExcel.Application.8, его свойства и методы... Найти похожие ветки
← →
alfim (2003-07-16 08:28) [0]Приветствую, пипл...
Собственно, весь вопрос и содержится в сабже...
var
Excel:Variant;
...
Excel:=CreateOleObject("Excel.Application.8");
...
Поскольку Code Insight здесь не спасает :-) - то нужен хелп по полученному объекту. Поиски пока ничего не дали,.. может, здесь кто подскажет?
А если конкретней, то задача такова:
Есть набор данных, по ним надо построить диаграмму Excel"я...
Макросы юзать нельзя, все надо делать со своего приложения...
Заранее благодарен..
← →
avch (2003-07-16 10:32) [1]Вот тебе ссылки:
http://www.cbuilder.ru/WinLesson/bles1_2.htm
http://www.cbuilder.ru/Stat/elm_dccom/dccom.htm
Обычно работаешь с объектом Excel также как и в макросах,
только скобки надо иногда квадратные....вот пример:
try
Excel := GetActiveOleObject("Excel.Application");
except
Excel := CreateOleObject("Excel.Application");
end;
Excel.Visible := True;
Excel.SheetsInNewWorkbook := 1;
Book := Excel.WorkBooks.Add;
Sheet := Excel.ActiveSheet;
Sheet.Name := "Прогрессия Аn = n2";
Excel.Range("a1") := "N";
Excel.Range("b1") := "n2";
Sheet.Columns.Item[1].ColumnWidth := 3;
Sheet.Columns.Item[2].ColumnWidth := 5;
for I:=1 to 200 do
begin
// в макросах скобки круглые, а сдесь надо квадратные
Excel.Range["a1"].Offset[I,0].Value := IntToStr(I);
Excel.Range["b1"].Offset[I,0].Value := IntToStr(I*I);
end;
// и сдесь
Excel.Range["a2:b201"].Interior.ColorIndex := 4;
← →
jack128 (2003-07-16 10:51) [2]Запускаешь Excel меню Сервис|Макрос|Редактор Visial basic + F1
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c