Вниз
Скачать: 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
3-31155
n1tro
2003-06-19 06:44
2003.07.10
Помогите с запросом


7-31526
onezero
2003-04-27 14:21
2003.07.10
Как изменить системное время программно? Помогите!!!


14-31445
resheto
2003-06-23 18:10
2003.07.10
Sfx архиватор


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


6-31381
Art1111111
2003-05-05 00:22
2003.07.10
Named pipes (ERROR_PIPE_NOT_CONNECTED).




   Наверх