Форум: "Начинающим";
Текущий архив: 2008.10.12;
Скачать: [xml.tar.bz2];
ВнизСтарый добрый Excel Найти похожие ветки
← →
lordalex (2008-09-05 13:40) [0]Всем здрасте
Помогите пожалуйста вот с этой строкой
XLApp6.ActiveSheet.VPageBreaks[1].Location := Range["O1"];
Кампалер ругается на Range не пойму почему
Строка должна увеличить область печати с Столбика "М" до столбика "О"
За рание благодарен...
← →
Сергей М. © (2008-09-05 13:42) [1]
> не пойму почему
Потому что не понимает что такое Range и к чему оно относится
← →
lordalex (2008-09-05 13:49) [2]он относется к открытому файлу Excel XLApp6.ActiveSheet
← →
lordalex (2008-09-05 13:55) [3]Написал к чему относится серано ругается если знаешь как должно выглядеть подскажи
← →
Сергей М. © (2008-09-05 13:58) [4]
> Написал к чему относится серано ругается
так ведь теперь по-другому ругается)
← →
Сергей М. © (2008-09-05 14:09) [5]with SomeWorksheet do
Row01Range := Range[Cells[1,1].EntireRow, EmptyParam];
← →
Vlad Oshin © (2008-09-05 14:33) [6]заведи переменные для книги, страницы, участка.
Потом удобнее будет обращаться,
с другой стороны, и 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;
и т.п.
← →
lordalex (2008-09-05 17:33) [7]Vlad Oshin это черезчур грамоско
мне надо вот так
XLApp6:= CreateOleObject("Excel.Application");
Path6:=PathAppl+"\Data\1.xls";
XLApp6.ActiveSheet.VPageBreaks[1].Location := Range["O1"];
Вот только чтоб не ругался на Range
← →
Плохиш © (2008-09-05 17:36) [8]
> мне надо вот так
> XLApp6:= CreateOleObject("Excel.Application");
> Path6:=PathAppl+"\Data\1.xls";
> XLApp6.ActiveSheet.VPageBreaks[1].Location := Range["O1"];
> Вот только чтоб не ругался на Range
Ткни пальцем в то место, где написано, к чему относится Range.
← →
lordalex (2008-09-05 17:58) [9]XLApp6.ActiveSheet.VPageBreaks[1].Location:=XLApp6.WorkBooks.Add.ActiveSheet.Ran ge["O1"]
заделал так и серано при печати ошибка
← →
Сергей М. © (2008-09-05 19:42) [10]
> lordalex (05.09.08 17:58) [9]
Попроси программиста решить твою "проблему".
p.s.
> серано
Обсерено что ли ?
← →
lordalex (2008-09-05 20:10) [11]
> Попроси программиста решить твою "проблему".
Знал бы не спрашивал поэтому и прошу помощи.
← →
Сергей М. © (2008-09-06 10:26) [12]
> lordalex (05.09.08 20:10) [11]
Но хотя бы вникнуть в смысл содержимого текста сообщения об ошибке - это что, тоже невозможно ?
← →
Xandr001 (2008-09-08 06:33) [13]Так не пробовал?
XLApp6.ActiveSheet.PageSetup.PrintArea := "$A:$M"
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.10.12;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.043 c