Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Старый добрый Excel [D7, WinXP]

lordalex © (2008-09-05 13:40:00)
Всем здрасте
Помогите пожалуйста вот с этой строкой

XLApp6.ActiveSheet.VPageBreaks[1].Location := Range['O1'];

Кампалер ругается на Range не пойму почему
Строка должна увеличить область печати с Столбика 'М' до столбика 'О'
За рание благодарен...

Xandr001 (2008-09-08 06:33:00) [1]
Так не пробовал?
XLApp6.ActiveSheet.PageSetup.PrintArea := '$A:$M'

Сергей М. (2008-09-06 10:26:00) [2]

> lordalex (05.09.08 20:10) [11]

Но хотя бы вникнуть в смыслсодержимого текста сообщения об ошибке - это что, тоже невозможно ?

lordalex (2008-09-05 20:10:00) [3]

> Попроси программиста решить твою "проблему".

Знал бы не спрашивал поэтому и прошу помощи.

Сергей М. (2008-09-05 19:42:00) [4]

> lordalex (05.09.08 17:58) [9]

Попроси программистарешить твою "проблему".

p.s.

> серано

Обсерено что ли ?

lordalex (2008-09-05 17:58:00) [5]
XLApp6.ActiveSheet.VPageBreaks[1].Location:=XLApp6.WorkBooks.Add.ActiveSheet.Ran ge['O1']
заделал так и серано при печати ошибка

Плохиш (2008-09-05 17:36:00) [6]

> мне надо вот так
> XLApp6:= CreateOleObject('Excel.Application');
> Path6:=PathAppl+'\Data\1.xls';
> XLApp6.ActiveSheet.VPageBreaks[1].Location := Range['O1'];
> Вот только чтоб не ругался на Range

Ткни пальцем в то место, где написано, к чему относится Range.

lordalex (2008-09-05 17:33:00) [7]
Vlad Oshin это черезчур грамоско
мне надо вот так
XLApp6:= CreateOleObject('Excel.Application');
Path6:=PathAppl+'\Data\1.xls';
XLApp6.ActiveSheet.VPageBreaks[1].Location := Range['O1'];
Вот только чтоб не ругался на Range

Vlad Oshin (2008-09-05 14:33:00) [8]
заведи переменные для книги, страницы, участка.
Потом удобнее будет обращаться,
с другой стороны, и range уже определен

var
XLApp,Workbook,Sheet,Range:Variant;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
Workbook := XLApp.WorkBooks.Add;
Sheet:=WorkBook.ActiveSheet;
Range := Sheet.Range['$A$1:$B$2'];
Sheet.PageSetup.PrintArea :=range;
...
Range.NumberFormat:='@';
..
range.select;
и т.п.

Сергей М. (2008-09-05 14:09:00) [9]
with SomeWorksheet do
Row01Range := Range[Cells[1,1].EntireRow, EmptyParam];

Сергей М. (2008-09-05 13:58:00) [10]

> Написал к чему относится серано ругается

так ведь теперь по-другому ругается)

lordalex (2008-09-05 13:55:00) [11]
Написал к чему относится серано ругается если знаешь как должно выглядеть подскажи

lordalex (2008-09-05 13:49:00) [12]
он относется к открытому файлу Excel XLApp6.ActiveSheet

Сергей М. (2008-09-05 13:42:00) [13]

> не пойму почему

Потому что не понимает что такое Range и к чему оно относится

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »