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

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

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

все про Excel [D7, XP]

Max © (2011-05-11 15:40:00)
Добрый день, Мастера!
Помогите в элементарном...
Почему нельзя изменить ширину конкретной строки (выдает ошибку!)
<Class does not have a defalt property >
ExcelApplication1.Rows[1].RowHeight := 15.75;

Max (2011-05-12 11:19:00) [1]
Браво OW! И низкий поклон!

Круто - все заработало! Супер!

а я было заменил на (при попадании на большие данные) :

ExcelApplication1.Rows.RowHeight:=27;
ExcelApplication1.Cells.Item[ii,8].Font.Size:=6;

но это грубо, а так, спасибо OW, гибко получается....

OW (2011-05-11 17:56:00) [2]
да, где

ActiveSheets := WorkBook.WorkSheets[1];

OW (2011-05-11 17:55:00) [3]

> WorkBook.WorkSheets[1].Rows("1:1").RowHeight = 100.00
> А так?

WorkBook.WorkSheets[1].Rows('"1:1"').RowHeight := 100;
WorkBook.WorkSheets[1].Rows('1:1').RowHeight := 100;
Член группы не найден
EOleSysError

не, тут только так работает
ActiveSheets.Columns.Item[1].ColumnWidth := 95;
или
WorkSheets[1].Rows.Item[1].RowHeight := 100;

Dennis I. Komarov (2011-05-11 17:50:00) [4]
WorkBook.WorkSheets[1].Rows("1:1").RowHeight = 100.00
А так?

OW (2011-05-11 17:48:00) [5]
Workbook.PivotCaches.Add( xlDatabase, 'Данные!R1C1:R' + IntToStr(i-1) + 'C' + IntToStr(j-1)).CreatePivotTable('', 'СводнаяТаблица2',true);

например, так работает тоже

OW (2011-05-11 17:47:00) [6]

> Dennis I. Komarov © (11.05.11 17:44) [8]

какой именно?

вот запись макроса

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 11.05.2011 (Oshin Vladislav Viktorovich)
Rows("1:1").RowHeight = 26.25
End Sub

к чему его цеплять?

а так
WorkBook.WorkSheets[1].Rows.Item[1].RowHeight := 26.25;

работает.

Dennis I. Komarov (2011-05-11 17:44:00) [7]

> OW © (11.05.11 17:24) [7]

Ну а VBA-шный код фунцикулирует?

OW (2011-05-11 17:24:00) [8]
так и
WorkBook.WorkSheets[1].Rows.Item[1].RowHeight :=
тоже не через компанент у меня

ExcelApp, Workbook, Sheets, ActiveSheets: Variant;

ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.EnableEvents := False;
ExcelApp.DisplayAlerts := False;
Workbook := ExcelApp.WorkBooks.Add;

Dennis I. Komarov (2011-05-11 17:10:00) [9]

> а там написано Rows(3:3).RowHeight = и не понятно, к чему
> это было

Тогда возможно не надо использовать обертку TExcelApplication... Мне лень цеплять ёксель.

OW (2011-05-11 16:35:00) [10]
WorkBook.WorkSheets[1].Rows.Item[1].RowHeight :=
так у меня работает

> Для таких случаев универсальное средство - записать действия
> в макрос и подглядеть код...

а там написано Rows(3:3).RowHeight =
и не понятно, к чему это было

Dennis I. Komarov (2011-05-11 16:21:00) [11]
Для таких случаев универсальное средство - записать действия в макрос и подглядеть код...

Max (2011-05-11 16:17:00) [12]
да,пробую и в у Application и в WorkSheet
Ошибка везде та же!

clickmaker (2011-05-11 15:57:00) [13]
а Rows так прямо у Application, а не WorkSheet?

Медвежонок Пятачок (2011-05-11 15:56:00) [14]
изменение ширины (которая на самом деле высота) здесь никаким образом к ошибке не имеет отношения

Наверх

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