Объедянить ячейки

@Ermak27 · Регистрация: 16.01.2013

Студворк — интернет-сервис помощи студентам

Я вывожу файл excel в макет

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
    Если ПустаяСтрока(ИмяФайла) Тогда
        Предупреждение("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");
        Возврат;
    КонецЕсли;
    
    Попытка
        // Загрузка Microsoft Excel
        Состояние("Загрузка Microsoft Excel...");
        ExcelПриложение = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
        Возврат;
    КонецПопытки;
    
    Попытка
        // Открытие файла Microsoft Excel
        Состояние("Открытие файла Microsoft Excel...");
        ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);
    Исключение
        Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
    КонецПопытки;
    
    Попытка
        // Обработка файла Microsoft Excel
        Состояние("Обработка файла Microsoft Excel...");
        // Читаем данные первого листа книги
        ExcelЛист = ExcelФайл.Sheets(1);
        
        // Определить количество строк и колонок выбранного листа книги Excel
        xlCellTypeLastCell = 11;
        ExcelПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;
        ExcelПоследняяКолонка = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Column;
    Исключение
        Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
        // Закрыть COM соединение для экономии памяти
        ExcelПриложение.Quit();
    КонецПопытки;
    
    // Создание описателя типов для таблицы значений
    КЧ = Новый КвалификаторыЧисла(15,2);
    КС = Новый КвалификаторыСтроки(50);
    Массив = Новый Массив;
    Массив.Добавить(Тип("Строка"));
    ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);
    Массив.Очистить();
    Массив.Добавить(Тип("Число"));
    ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);
    
    
    ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
    ТабДок.Очистить();
    
    Макет = ПолучитьМакет("Макет");
    ОбластьЗаголовка = Макет.ПолучитьОбласть("Заголовок");
    
    ОбластьЗаголовка.Параметры.Заголовок = "План закупок по состоянию на";
    
    ТабДок.Вывести(ОбластьЗаголовка);
    
    Пробел = Макет.ПолучитьОбласть("Пробел");
    ТабДок.Вывести(Пробел);
    
    Шапка = Макет.ПолучитьОбласть("Шапка");
    ТабДок.Вывести(Шапка);
    
    НомСлед = "";
    НомПред = "";
    К = 0;
    
    Для Строка = 13 По ExcelПоследняяСтрока Цикл
        
        ОбработкаПрерыванияПользователя();
        
        Детали = Макет.ПолучитьОбласть("Детали");
        Детали.Параметры.Номер = 1;
        Попытка
            
            Если ПустаяСтрока(ExcelЛист.Cells(Строка, 7).Value)   Тогда
                Продолжить;
            Иначе  
                
            
 
                Детали.Параметры.Номенклатура = ExcelЛист.Cells(Строка, 3).Value;
                Цена = ExcelЛист.Cells(Строка, 7).Value;;
                Детали.Параметры.Кол1 = ExcelЛист.Cells(Строка, 9).Value;
                Детали.Параметры.Сумма1 = Цена * Детали.Параметры.Кол1;
                Детали.Параметры.Кол2 = ExcelЛист.Cells(Строка, 11).Value;
                Детали.Параметры.Сумма2 = Цена * Детали.Параметры.Кол2;
                Детали.Параметры.Кол3 = ExcelЛист.Cells(Строка, 13).Value;
                Детали.Параметры.Сумма3 = Цена * Детали.Параметры.Кол3;
                Детали.Параметры.Кол4 = ExcelЛист.Cells(Строка, 15).Value;
                Детали.Параметры.Сумма4 = Цена * Детали.Параметры.Кол4;
                
                ТабДок.Вывести(Детали);
                //К = К + 1;
                
 
            КонецЕсли;
            
        Исключение
            // Не редко происходит ошибка конвертации отдельной ячейки документа
            Сообщить("Ошибка чтения строки файла Microsoft Excel." + Строка + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
            Детали.Параметры.Номер =Детали.Параметры.Номер + 1;
        КонецПопытки;
        // Отобразить информацию о ходе выполнения обработки
        Состояние("Обработка файла Microsoft Excel : "
        + "строка " + Строка + " из " + ExcelПоследняяСтрока);
    
    КонецЦикла;
    
    ОбластьИтого = Макет.ПолучитьОбласть("ОблИтого");
    
    ТабДок.Вывести(ОбластьИтого);

В файле есть одинаковые Наименования, как мне сделать чтобы Наименования не повторялись в макете а плюсовались кол-во

@extendedflowers · 22.08.2013, 11:20

Сообщение от Ermak27

у меня в диспетчере много excek как сделать чтобы они не висели

excelприложение.Quit();

@wladimir_ui · 22.08.2013, 11:23

@Ermak27 · 22.08.2013, 11:23 **[ТС]**

мне нужно проверить колонку цена я добавил в ТЗ

1C
1
    ТЗ.Колонки.Добавить("Цена",ОписаниеТиповЧ,"Цена",7);

1C
1
НоваяСтрока.Цена = ExcelЛист.Cells(Строка, 6).Value;

Делаю условие

1C
1
2
3
4
5
6
7
8
9
Для Каждого Стр из ТЗ Цикл
            
    
            Если Стр.Цена = ""   Тогда
                Продолжить;
            Иначе  
                Детали = Макет.ПолучитьОбласть("Детали");
                Детали.Параметры.Номенклатура = Стр.Наименование;
                Детали.Параметры.Кол1 = Стр.Кол1;

а он выдает ошибку
{Форма.Форма.Форма(146)}: Поле объекта не обнаружено (Цена)
Если Стр.Цена = "" Тогда

@wladimir_ui · 22.08.2013, 11:27

свернули без цены
ТЗ.свернуть("Наименование, Цена", "Кол1, Сумма1,Кол2, Сумма2,Кол3, Сумма3,Кол4, Сумма4");

@Ermak27 · 22.08.2013, 13:34 **[ТС]**

Не понимаю, условие все равно не работает

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Для Каждого Стр из ТЗ Цикл
            
    
            Если Стр.Цена = ""   Тогда
                Продолжить;
            Иначе  
                Детали = Макет.ПолучитьОбласть("Детали");
                Детали.Параметры.Номенклатура = Стр.Наименование;
                Детали.Параметры.Кол1 = Стр.Кол1;
                Детали.Параметры.Сумма1 = Стр.Сумма1;
                Детали.Параметры.Кол2 = Стр.Кол2;
                Детали.Параметры.Сумма2 = Стр.Сумма2;
                Детали.Параметры.Кол3 = Стр.Кол3;
                Детали.Параметры.Сумма3 = Стр.Сумма3;
                Детали.Параметры.Кол4 = Стр.Кол4;
                Детали.Параметры.Сумма4 = Стр.Сумма4;
                ТабДок.Вывести(Детали);
                КонецЕсли;
        КонецЦикла;

@SonicQ · 22.08.2013, 13:39

Запили отладчиком, посмотри куда девается "Цена", и есть ли она там , что видишь в ТЗ ?

@Ermak27 · 22.08.2013, 14:25 **[ТС]**

SonicQ, я учился отладчиком работать так и не понял.
Вот весь код

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
    Если ПустаяСтрока(ИмяФайла) Тогда
        Предупреждение("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");
        Возврат;
    КонецЕсли;
    
    Попытка
        // Загрузка Microsoft Excel
        Состояние("Загрузка Microsoft Excel...");
        ExcelПриложение = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
        Возврат;
    КонецПопытки;
    
    Попытка
        // Открытие файла Microsoft Excel
        Состояние("Открытие файла Microsoft Excel...");
        ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);
    Исключение
        Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
    КонецПопытки;
    
    Попытка
        // Обработка файла Microsoft Excel
        Состояние("Обработка файла Microsoft Excel...");
        // Читаем данные первого листа книги
        ExcelЛист = ExcelФайл.Sheets(1);
        
        // Определить количество строк и колонок выбранного листа книги Excel
        xlCellTypeLastCell = 11;
        ExcelПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;
        ExcelПоследняяКолонка = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Column;
    Исключение
        Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
        // Закрыть COM соединение для экономии памяти
        ExcelПриложение.Quit();
    КонецПопытки;
    
    // Создание описателя типов для таблицы значений
    КЧ = Новый КвалификаторыЧисла(15,2);
    КС = Новый КвалификаторыСтроки(50);
    Массив = Новый Массив;
    Массив.Добавить(Тип("Строка"));
    ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);
    Массив.Очистить();
    Массив.Добавить(Тип("Число"));
    ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);
    
 
    // Создать колонки табличного документа
    ТЗ = Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("Номер",ОписаниеТиповС,"Номер",5);
    ТЗ.Колонки.Добавить("Наименование",ОписаниеТиповС,"Наименование",100);
    ТЗ.Колонки.Добавить("Кол1",ОписаниеТиповЧ,"Кол1",7);
    ТЗ.Колонки.Добавить("Сумма1",ОписаниеТиповЧ,"Сумма1",7);
    ТЗ.Колонки.Добавить("Кол2",ОписаниеТиповЧ,"Кол2",7);
    ТЗ.Колонки.Добавить("Сумма2",ОписаниеТиповЧ,"Сумма2",7);
    ТЗ.Колонки.Добавить("Кол3",ОписаниеТиповЧ,"Кол3",7);
    ТЗ.Колонки.Добавить("Сумма3",ОписаниеТиповЧ,"Сумма3",7);
    ТЗ.Колонки.Добавить("Кол4",ОписаниеТиповЧ,"Кол4",7);
    ТЗ.Колонки.Добавить("Сумма4",ОписаниеТиповЧ,"Сумма4",7);
    ТЗ.Колонки.Добавить("Цена",ОписаниеТиповЧ,"Цена",7);
 
 
    Строка = 13;
    
    Пока Строка <= ExcelПоследняяСтрока Цикл
        НоваяСтрока = ТЗ.Добавить();
        НоваяСтрока.Номер = 1;
        НоваяСтрока.Номер = НоваяСтрока.Номер + 1;
        НоваяСтрока.Наименование = ExcelЛист.Cells(Строка, 3).Value;
        НоваяСтрока.Цена = ExcelЛист.Cells(Строка, 6).Value;
        НоваяСтрока.Кол1 = ExcelЛист.Cells(Строка, 9).Value;
        НоваяСтрока.Сумма1 = ExcelЛист.Cells(Строка, 10).Value;
        НоваяСтрока.Кол2 = ExcelЛист.Cells(Строка, 11).Value;
        НоваяСтрока.Сумма2 = ExcelЛист.Cells(Строка, 12).Value;
        НоваяСтрока.Кол3 = ExcelЛист.Cells(Строка, 13).Value;
        НоваяСтрока.Сумма3 = ExcelЛист.Cells(Строка, 14).Value;
        НоваяСтрока.Кол4 = ExcelЛист.Cells(Строка, 15).Value;
        НоваяСтрока.Сумма4 = ExcelЛист.Cells(Строка, 16).Value;
        Строка = Строка + 1;
    КонецЦикла;
    ТЗ.свернуть("Наименование, Цена", "Кол1, Сумма1, Кол2, Сумма2, Кол3, Сумма3, Кол4, Сумма4");
    ТЗ.Сортировать("Наименование");
        
    ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
    ТабДок.Очистить();
    
    Макет = ПолучитьМакет("Макет");
    ОбластьЗаголовка = Макет.ПолучитьОбласть("Заголовок");
    
    ОбластьЗаголовка.Параметры.Заголовок = "";
    
    ТабДок.Вывести(ОбластьЗаголовка);
    
    Пробел = Макет.ПолучитьОбласть("Пробел");
    ТабДок.Вывести(Пробел);
    
    Шапка = Макет.ПолучитьОбласть("Шапка");
    ТабДок.Вывести(Шапка);
    
    Для Каждого Стр из ТЗ Цикл
            
    
            Если Стр.Цена = ""   Тогда
                Продолжить;
            Иначе  
                Детали = Макет.ПолучитьОбласть("Детали");
                Детали.Параметры.Номенклатура = Стр.Наименование;
                Детали.Параметры.Кол1 = Стр.Кол1;
                Детали.Параметры.Сумма1 = Стр.Сумма1;
                Детали.Параметры.Кол2 = Стр.Кол2;
                Детали.Параметры.Сумма2 = Стр.Сумма2;
                Детали.Параметры.Кол3 = Стр.Кол3;
                Детали.Параметры.Сумма3 = Стр.Сумма3;
                Детали.Параметры.Кол4 = Стр.Кол4;
                Детали.Параметры.Сумма4 = Стр.Сумма4;
                ТабДок.Вывести(Детали);
            КонецЕсли;
        Исключение
            // Не редко происходит ошибка конвертации отдельной ячейки документа
            Сообщить("Ошибка чтения строки файла Microsoft Excel." + Строка + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
            Детали.Параметры.Номер =Детали.Параметры.Номер + 1;
        КонецПопытки;
        // Отобразить информацию о ходе выполнения обработки
        Состояние("Обработка файла Microsoft Excel : "
        + "строка " + Строка + " из " + ExcelПоследняяСтрока);
        КонецЦикла;
 
 
    ОбластьИтого = Макет.ПолучитьОбласть("ОблИтого");
    ТабДок.Вывести(ОбластьИтого);
    ExcelПриложение.Quit();

@extendedflowers · 22.08.2013, 15:32

возможно я ошибаюсь конечно, но возможно проблема в том, что в ТЗ для цены тип данных число, а ты в условии проверяешь на пустую строку. подставь вместо "" неопределено или 0.

@SonicQ · 22.08.2013, 15:38

Сообщение от Ermak27

ТЗ.свернуть("Наименование, Цена", "Кол1, Сумма1, Кол2, Сумма2, Кол3, Сумма3, Кол4, Сумма4");

так как не могу воспроизвести твою ситуацию, и посмотреть в отладчике что попадает в ТЗ, подозреваю что ты цену и наименование свернул все в куче, и отдельно ставить условие типа стр.цена = "" не получается... только подозрения...

Что прям вообще ни как не можешь поставить точку остановы и поглядеть что же там в ТЗ ? Что не получается?

@Ermak27 · 22.08.2013, 16:05 **[ТС]**

extendedflowers, Вы были правы, спасибо.
А подскажите что я не так делаю с нуммерацией, у меня постоянно 11 выдают а не 1,2,3,4 и ...

@extendedflowers · 22.08.2013, 16:22

Сообщение от Ermak27

А подскажите что я не так делаю с нуммерацией, у меня постоянно 11 выдают а не 1,2,3,4 и ...

при формировании ТЗ у вас тип данных для номера строка. Имхо, присваивая ему 1, программа конвертирует число в строку. затем вы прибавляете 1 не к числу а к строке. получаем "11". при каждом повторении цикла все повторяется.

надо тип данных число сделать для номера, я думаю

Добавлено через 6 минут
или можно просто задать новую переменную НОМЕР и до цикла присвоить ей значение 0.

а внутри цикла написать
номер = номер + 1;
новаястрока.номер = номер;

@Ermak27 · 22.08.2013, 16:46 **[ТС]**

Спасибо

Добавлено через 5 минут
Делаю

1C
1
ТЗ.свернуть("Наименование, Цена", "Номер, Кол1, Сумма1, Кол2, Сумма2, Кол3, Сумма3, Кол4, Сумма4,ИтогоС1, ИтогоС2, ИтогоС3, ИтогоС4,ИтогоК1, ИтогоК2, ИтогоК3, ИтогоК4");

Нумерация тоже свернута а если поставить еще "Цена, Номер, ....." тогда не сворачивается, как быть?

@extendedflowers · 22.08.2013, 17:22

номер - это номер строки? его можно отдельно уже при заполнении макета добавить. он же просто возрастает и все. его не обязательно включать в ТЗ.

Добавлено через 2 минуты
ну или да, свернуть без номера сначала, а номер заполнить циклом уже в свернутой ТЗ

@Ermak27 · 22.08.2013, 17:27 **[ТС]**

extendedflowers, покажите на примере че та не получается

@extendedflowers · 22.08.2013, 17:44

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Номер = 0;
Для Каждого Стр из ТЗ Цикл
                Номер = Номер + 1;
                Детали = Макет.ПолучитьОбласть("Детали");
                Детали.Параметры.Номер = Номер;
                Детали.Параметры.Номенклатура = Стр.Наименование;
                Детали.Параметры.Кол1 = Стр.Кол1;
                Детали.Параметры.Сумма1 = Стр.Сумма1;
                Детали.Параметры.Кол2 = Стр.Кол2;
                Детали.Параметры.Сумма2 = Стр.Сумма2;
                Детали.Параметры.Кол3 = Стр.Кол3;
                Детали.Параметры.Сумма3 = Стр.Сумма3;
                Детали.Параметры.Кол4 = Стр.Кол4;
                Детали.Параметры.Сумма4 = Стр.Сумма4;
                ТабДок.Вывести(Детали);
        
КонецЦикла;

Соответственно в ТЗ колонку номер не создавайте вообще.

@Ermak27 · 22.08.2013, 17:47 **[ТС]**

Идет нурмерация 1, 5, 14, и т.д . Не по порядку

@SonicQ · 22.08.2013, 17:51

Сообщение от Ermak27

Идет нурмерация 1, 5, 14, и т.д . Не по порядку

1C
1
ТЗ.Сортировать("Номер Возр");

Добавлено через 1 минуту
Ну или какой тебе столбец отсортировать

@extendedflowers · 22.08.2013, 17:55

не понял

т.е. в экселе идут номера 1, 5, 14, 22 и тд... при этом у одинаковых наименований номера разные и при переносе нужно сопоставить номера так как они были?

просто судя по коду, который вы выкладывали, вам просто нужна нумерация строк.

@SonicQ · 22.08.2013, 17:58

и вообще

Сообщение от Ermak27

КС = Новый КвалификаторыСтроки(50);

ОписаниеТиповС = Новый ОписаниеТипов(Массив, КС);

ТЗ.Колонки.Добавить("Номер",ОписаниеТипо вС,"Номер",5);

поставьте не строку а число и будет вам счастье

Добавлено через 1 минуту

1C
1
ТЗ.Колонки.Добавить("Номер",ОписаниеТиповЧ,"Номер",7);

и номер должен свернуться

@Ermak27 · 22.08.2013, 18:24 **[ТС]**

SonicQ, не получается

Добавлено через 1 минуту
extendedflowers, В экселе нет нумерации. Я сделал как вы выше написали у меня почему то идет нумерация не по порядку а так 1, 5, 8, 10, 14 и т.д

Добавлено через 25 секунд
Скажите как сделать чтобы загружала все страницы Excel а не только первую

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@wladimir_ui Шизофреник 361 / 363 / 83 Регистрация: 25.06.2013 Сообщений: 1,141
	22.08.2013, 11:23
	0

@wladimir_ui Шизофреник 361 / 363 / 83 Регистрация: 25.06.2013 Сообщений: 1,141
	22.08.2013, 11:27
	свернули без цены ТЗ.свернуть("Наименование, Цена", "Кол1, Сумма1,Кол2, Сумма2,Кол3, Сумма3,Кол4, Сумма4"); 1

@SonicQ 286 / 186 / 18 Регистрация: 20.02.2012 Сообщений: 926
	22.08.2013, 13:39
	Запили отладчиком, посмотри куда девается "Цена", и есть ли она там , что видишь в ТЗ ? 1

@extendedflowers 37 / 37 / 1 Регистрация: 11.12.2012 Сообщений: 211
	22.08.2013, 15:32
	возможно я ошибаюсь конечно, но возможно проблема в том, что в ТЗ для цены тип данных число, а ты в условии проверяешь на пустую строку. подставь вместо "" неопределено или 0. 1

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	22.08.2013, 16:05 [ТС]
	extendedflowers, Вы были правы, спасибо. А подскажите что я не так делаю с нуммерацией, у меня постоянно 11 выдают а не 1,2,3,4 и ... 0

@extendedflowers 37 / 37 / 1 Регистрация: 11.12.2012 Сообщений: 211
	22.08.2013, 17:22
	номер - это номер строки? его можно отдельно уже при заполнении макета добавить. он же просто возрастает и все. его не обязательно включать в ТЗ. Добавлено через 2 минуты ну или да, свернуть без номера сначала, а номер заполнить циклом уже в свернутой ТЗ 1

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	22.08.2013, 17:27 [ТС]
	extendedflowers, покажите на примере че та не получается 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	22.08.2013, 17:47 [ТС]
	Идет нурмерация 1, 5, 14, и т.д . Не по порядку 0

@extendedflowers 37 / 37 / 1 Регистрация: 11.12.2012 Сообщений: 211
	22.08.2013, 17:55
	не понял т.е. в экселе идут номера 1, 5, 14, 22 и тд... при этом у одинаковых наименований номера разные и при переносе нужно сопоставить номера так как они были? просто судя по коду, который вы выкладывали, вам просто нужна нумерация строк. 1

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	22.08.2013, 18:24 [ТС]
	SonicQ, не получается Добавлено через 1 минуту extendedflowers, В экселе нет нумерации. Я сделал как вы выше написали у меня почему то идет нумерация не по порядку а так 1, 5, 8, 10, 14 и т.д Добавлено через 25 секунд Скажите как сделать чтобы загружала все страницы Excel а не только первую 0