Вниз
Скачать: CL | DM;

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

← →
snake1977   (2003-06-27 11:35) [0]

Здравствуйте! мне нужно сделать отчет в своем приложении в Excel.
Вот кусок исходника
procedure TForm1.Button1Click(Sender: TObject);
Var XL,Sheet:Variant;
i:Integer;
Caption,Account,AccountName,Vid:String;
Begin
try
XL:=GetActiveOLEObject("Excel.Application");
except
XL:=CreateOleObject("Excel.Application");
end;
XL.WorkBooks.Add;
XL.WorkBooks[XL.WorkBooks.Count].WorkSheets[1].Name:="sh1";
Sheet:=XL.WorkBooks[XL.WorkBooks.Count].WorkSheets["sh1"];
XL.Visible:=true;
Sheet.Cells[1,1] := "fff";
.....

подскажите, где можно взять описание этих классов, WorkBooks,Sheets,Cells

Пробовал поставить например
Sheet.Selection.Borders(xlEdgeBottom).Weight := xlThin;
неработает, ругается на то что Selection для этого объекта не существует.


← →
Ozone ©   (2003-06-27 11:56) [1]

По-моему этот форум вконец забит вопросами такого рода и забит неоправданно.
Делаешь так:
1. Запускаешь Excel
2. Сервис -> Макрос -> Начать запись
3. Делаешь то, что тебе нужно было бы сделать программно
4. Смотришь код получившегося макроса и пишешь тоже самое на
Delphi (с учетом языка)


← →
snake1977   (2003-06-27 12:10) [2]

я именно так и сделал ..... не прокатывает
эксель все далет через selection, но в создаваемом COM объекте такого метода или свойства нет :(
вот я и спрашиваю, где можно найти описание свойств и методов СОМ объектов этого типа?


← →
Bel ©   (2003-06-27 13:02) [3]

> где можно найти описание свойств и методов СОМ объектов этого типа?

В справке по VBA Excel.


← →
Ann ©   (2003-06-27 13:09) [4]

а ты вместо selection пиши что-то вроде этого
Range:=sheet1.Range["A1:E1"];
и дальше уже для Range то что требуется...


← →
fridy ©   (2003-06-27 13:31) [5]

Судя по справке Selection работает если предварительно
Worksheets["Лист1"].Activate,
но через Range действительно удобнее



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
11-31164
battar
2002-10-21 20:26
2003.07.10
А какой нить репорт будет на основе КОЛ?


4-31559
SerVel
2003-05-07 13:51
2003.07.10
CreateFileMapping(....) весь текст


7-31521
Spartak
2003-04-21 11:02
2003.07.10
как запустить программу с провами администратора


14-31410
AlexRush
2003-06-25 18:41
2003.07.10
Delphi. Перспективы.


3-31077
OxyGen
2003-06-14 16:06
2003.07.10
Удаление всех записей




   Наверх