|
ширина колонки | ☑ | ||
---|---|---|---|---|
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) спасибо
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |