Имя: Пароль:
1C
1С v8
ширина колонки
0 r2d24
 
19.12.13
12:49
Начинаю новый раздел изучать в 1с: выгрузка справочника через документ Microsoft Excel. Пока выгрузил некоторые реквизиты справочника номенклатуры. В одной колонке содержится наименование, в другой, родитель, в другой вид номенклатуры.
С выгрузкой пока понятно. Вопрос вот в чем: Как сделать ширину колонки в Excel, что бы в эта колонка полностью помещало наименование.

если кому интересен мой код:
ExelПриложение = новый COMОбъект("Excel.Application");    // получаем доступ к excel
    Книга = ExelПриложение.WorkBooks.Add();                     // создаем новый файл exel
    //Лист = Книга.WorkSheets.Add();                             // добавляем новый лист в книгу
    Лист = Книга.WorkSheets(1);                               // используем первый лист
    Лист.Cells(1,1).Value="Привет !";
    Выборка = Справочники.Номенклатура.Выбрать();
    СтрокаЛиста = 3;
    пока Выборка.Следующий() цикл
        СтрокаЛиста = СтрокаЛиста + 1;
        Лист.Cells(2,2).Value = "группа";
        Лист.Cells(2,3).Value = "Номенклатура";
        Лист.Cells(2,4).Value = "Вид номенклатуры";
        Лист.Cells(2,5).Value = "Родитель";
        Лист.Cells(2,6).Value = "Уровень";
        
        Лист.Cells(СтрокаЛиста,2).Value = Строка(Выборка.ЭтоГруппа);
        Лист.Cells(СтрокаЛиста,3).Value = Строка(Выборка.Наименование);  
        Лист.Cells(СтрокаЛиста,4).Value = Строка(Выборка.ВидНоменклатуры);
        Лист.Cells(СтрокаЛиста,5).Value = Строка(Выборка.Родитель);
        Лист.Cells(СтрокаЛиста,6).Value = Строка(Выборка.Родитель.Уровень());
        Сообщить(Лист.Columns(3).ColumnWidth);
        
    конеццикла;
    Книга.SaveAs("D:\doc.xls");
    ExelПриложение.Quit();
1 Wobland
 
19.12.13
12:52
ТабДок.Записать() не хочешь?
2 r2d24
 
19.12.13
12:54
(1) это зачем? и куда?
я пока выгружаю справочник в Excel и том все записывается
3 Wobland
 
19.12.13
12:56
(2) это чтоб не сношаться с екселем. куда хочешь
4 r2d24
 
19.12.13
13:52
так все таки не кто не подскажет с шириной колонки?
5 mzelensky
 
20.12.13
11:17
Ответил в другой ветке (своей). Продублирую и сюда

   mzelensky
5 - 20.12.13 - 11:12    (4) Да нифига не мало. Просто все в Пятнице сидят.
    mzelensky
6 - 20.12.13 - 11:14    (4) Вот кстати ответ на твой вопрос:

//АВТОПОДГОН КОЛОНОК ПО ШИРИНЕ

Эксель.Sheets(1).Range(Эксель.Sheets(1).Cells(2, 2),Эксель.Sheets(1).Cells(8, СчКолонка)).Select();
Эксель.Selection.Columns.AutoFit();
  
mzelensky
7 - 20.12.13 - 11:16    (6) + а вот так просто можно ширину задать (в данном случае для всей колонки "А"):

Эксель.Sheets(1).Range("A:A").ColumnWidth=50;
6 r2d24
 
20.12.13
11:32
(5) спасибо
Закон Брукера: Даже маленькая практика стоит большой теории.