Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Excel->Sheet->Columns->ShrinkToFit - как задать колонки? / 9 сообщений из 9, страница 1 из 1
02.10.2003, 15:24
    #32282145
^junior^
^junior^
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
Нужно подогнать ширину определенных столбцов по содержимому. Перебрал кучу вариантов - не нашел. Вот три из моих попыток:

Код: plaintext
1.
2.
ISheet.Columns.ShrinkToFit; - ничего не делает;
ISheet.Columns( "A:F" ).ShrinkToFit; - выдает ошибку!
ISheet.Columns('A','F').ShrinkToFit;


Как это делается правильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 16:37
    #32282310
ZrenBy
ZrenBy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
Sheet.Columns["A:A"].AutoFit
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 16:39
    #32282313
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
сперва надо выделить область ...то есть так


Sheet.Range['C:C'].Select;
Sheet.Selection.Columns.AutoFit;
или как там у тебя
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 17:12
    #32282374
ZrenBy
ZrenBy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
>>JibSkeart
>>сперва надо выделить область

Совершенно необязательно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 17:15
    #32282378
^junior^
^junior^
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
to ZrenBy

Sheet.Columns["A:A"].AutoFit - Class does not have a dafault property!

to JibSkeart

Sheet.Range['C:C'].Select; - работает
Sheet.Selection.Columns.AutoFit; - говорит, что нет у Sheet никакого Selection!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 17:31
    #32282412
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
а как работаешь с Екселем
покажи как создаещь обьект Sheet
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 17:32
    #32282415
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
у меня с 97 Offise все ок !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 17:36
    #32282423
ZrenBy
ZrenBy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
Хм.

Excel 2000
Код: plaintext
1.
function  AutoFit(out RHS: OleVariant): HResult; stdcall;


Excel 97
Код: plaintext
1.
function  AutoFit: HResult; stdcall;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 17:46
    #32282439
^junior^
^junior^
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
Код: plaintext
1.
2.
3.
4.
5.
6.
var
IWorkbook:Excel2000._Workbook;
ISheet:Excel2000._WorkSheet;
...
begin
IWorkbook:=ExcelApp.Workbooks.Open(SaveDialog.FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,True,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,True, 0 );
ISheet:=IWorkbook.Worksheets.Item[copy(ExtractFileName(SaveDialog.FileName), 1 ,pos('.',ExtractFileName(SaveDialog.FileName))- 1 )] as Excel2000._WorkSheet;


У меня так.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Excel->Sheet->Columns->ShrinkToFit - как задать колонки? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]