ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
9 сообщений из 9, страница 1 из 1
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
    #32282145
^junior^
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
^junior^
Участник
Нужно подогнать ширину определенных столбцов по содержимому. Перебрал кучу вариантов - не нашел. Вот три из моих попыток:

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


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


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

Совершенно необязательно
...
Рейтинг: 0 / 0
02.10.2003, 17:12
| Ответить | Цитировать | Написать  
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
    #32282378
^junior^
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
^junior^
Участник
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:15
| Ответить | Цитировать | Написать  
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
    #32282412
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
а как работаешь с Екселем
покажи как создаещь обьект Sheet
...
Рейтинг: 0 / 0
02.10.2003, 17:31
| Ответить | Цитировать | Написать  
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
    #32282415
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
у меня с 97 Offise все ок !
...
Рейтинг: 0 / 0
02.10.2003, 17:32
| Ответить | Цитировать | Написать  
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
    #32282423
ZrenBy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZrenBy
Участник
Хм.

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:36
| Ответить | Цитировать | Написать  
Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
    #32282439
^junior^
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
^junior^
Участник
Код: 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
02.10.2003, 17:46
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Excel->Sheet->Columns->ShrinkToFit - как задать колонки?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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