все про Excel

← →
Max (2011-05-11 15:40) [0]

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

← →
Медвежонок Пятачок © (2011-05-11 15:56) [1]

изменение ширины (которая на самом деле высота) здесь никаким образом к ошибке не имеет отношения

← →
clickmaker © (2011-05-11 15:57) [2]

а Rows так прямо у Application, а не WorkSheet?

← →
Max (2011-05-11 16:17) [3]

да,пробую и в у Application и в WorkSheet
Ошибка везде та же!

← →
Dennis I. Komarov © (2011-05-11 16:21) [4]

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

← →
OW © (2011-05-11 16:35) [5]

WorkBook.WorkSheets[1].Rows.Item[1].RowHeight :=
так у меня работает

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

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

← →
Dennis I. Komarov © (2011-05-11 17:10) [6]

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

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

← →
OW © (2011-05-11 17:24) [7]

так и
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:44) [8]

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

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

← →
OW © (2011-05-11 17:47) [9]

> 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;

работает.

← →
OW © (2011-05-11 17:48) [10]

Workbook.PivotCaches.Add( xlDatabase, "Данные!R1C1:R" + IntToStr(i-1) + "C" + IntToStr(j-1)).CreatePivotTable("", "СводнаяТаблица2",true);

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

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

> 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;

да, где

ActiveSheets := WorkBook.WorkSheets[1];

← →
Max (2011-05-12 11:19) [14]

Браво OW! И низкий поклон!

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

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

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

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

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