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();
|
|
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;
|
|