Форум: "Начинающим";
Текущий архив: 2011.08.21;
Скачать: [xml.tar.bz2];
Внизвсе про 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);
например, так работает тоже
← →
Dennis I. Komarov © (2011-05-11 17:50) [11]
WorkBook.WorkSheets[1].Rows("1:1").RowHeight = 100.00
А так?
← →
OW © (2011-05-11 17:55) [12]
> 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;
← →
OW © (2011-05-11 17:56) [13]да, где
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, гибко получается....
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.08.21;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.005 c