Есть Код:

Excel.Cells.Select();//Выделяем все...
Excel.Selection.ShrinkToFit = 1; //1 - автоподбор ширины, 0 - нет

Происходит следующее: длинный текст ужимаеся до размеров ширины колонки, а нужно чтобы колонка раздвинулась до ширины текста, может кто знает куда копать.
Тут смотрел http://www.itpb.ru/forum4/topic.php?id=1021&page=-1

Свойства колонки правильно установи, как вариант.

Если бы это заточить под 1Сы то все было бы супер, макрос:

Columns("D:D").EntireColumn.AutoFit

Вот это (2) мне и нужно, тока в 1Сы не знаю как написать

Включите уже моск!
Excel.Selection.AutoFit= 1

Согласен, туплю, а можно кусочек полного кода до Excel.Selection.AutoFit= 1, у меня
Excel.Cells.Select();
Excel.Selection.AutoFit= 1;

НЕ работает

+(4)(1)

Лист.Cells.WrapText = 0;
Лист.Cells.Columns.AutoFit();