Имя: Пароль:
1C
1С v8
Excel файл, в нем таблица (товар, колич итд.) как ее считывать? У кажд. накл. разное колич
0 SkillUp
 
23.10.19
13:03
Excel файл, в нем таблица (товар, колич ,цена ,сумма итд.) как ее считывать? У каждой накл. разное количество строк. Вернее, как определить начало таблицы (строку в Эксель) и как последнюю строку таблицы? Надеюсь, понятно объяснил проблему...
1 ДенисЧ
 
23.10.19
13:05
Как-как... Начало таблицы - фиксируется по договорённости. Завершение - по содержанию
2 SkillUp
 
23.10.19
13:06
(1) Завершение ,если пустая?
3 Злопчинский
 
23.10.19
13:06
по явным регулярным признакам.
если таковых нет и невозможно формализовать - только интерактивно указывать первую и последнюю строку.
в разных местахя делал по разному.
например, программно определял строку в которой после строки заголовка со строкой "Номер п\п" встретится число 1. потом читал строки до тех пор пока очередная строка в этом столбце будет иметь номер предыдущая+1
4 SkillUp
 
23.10.19
13:06
(1) ОК.
5 Злопчинский
 
23.10.19
13:07
(2) что есть "пустая" - это не так очевидно как кажется
6 SkillUp
 
23.10.19
13:07
(3) Хорошая мысль.
7 Случайный прохожий
 
23.10.19
13:08
Это еще попробуй прогнать

    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
    Если Версия = "8" тогда
        ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
        ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
    Иначе
        ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
        ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
    Конецесли;
8 Злопчинский
 
23.10.19
13:08
вдобавок это позволяет автоматои пропускать всякие подвалы страниц, пустые строки итд
9 SkillUp
 
23.10.19
13:09
(5) ТекущееЗначение = Excel.Cells(НС, НомерКолонки).value;
Если ТекущееЗначение = "" тогда
Заверешние Таблицы
КонецЕсли;

Как-то так...
10 Garykom
 
гуру
23.10.19
13:09
(0) Загружаешь ёкселю в табдок в 1С 8, у табдок есть что надо.
11 Garykom
 
гуру
23.10.19
13:10
Вот нет у меня мс офиса, только либреофис есть.

И почему то все сотрудники отказались за свой счет себе мс офис покупать и прекрасно сидят на либре ))
12 SkillUp
 
23.10.19
13:11
(7) Не понял ,у меня есть этот кусок кода, а к чему он? Как он относиться к определению начала и завершения таблицы?
13 Garykom
 
гуру
23.10.19
13:12
(12) Он относится к всего строк и колонок в файле экселя.
А дальше циклом перебираешь ячейки и ищешь свои начала и конец по некоему формату.
14 SkillUp
 
23.10.19
13:12
(7) У меня приходят накладные в Эксель... Надо счтитать таблицу...
15 Злопчинский
 
23.10.19
13:12
(9) ну, если это значить что дальше читать не надо т.к. данных нет - то и ок типа
16 Garykom
 
гуру
23.10.19
13:13
Например колонка "№ п/п" и чтобы циферки были, а как итого или не циферки то пропускаем
17 Злопчинский
 
23.10.19
13:13
(14) ну покажи на скринге пример таблицы
18 SkillUp
 
23.10.19
13:14
(16) Да, понял. Наверно так и делать буду...
19 SkillUp
 
23.10.19
13:16
(17) Да обычная расходная накладная (с шапкой -получатель, поставщик)), под шапкой таблица с товаром, под таблицей общие суммы. Только это все не табличный документ а файл Эксель. Все... Все по ячекам разбито.
20 Злопчинский
 
23.10.19
13:17
ну так в 8-ке вроде штатно можно эксель средствами платформы прочитать в тд
21 SkillUp
 
23.10.19
13:21
(20) Пож., уточни как это выполнить? Что-то не понимаю...
22 Злопчинский
 
23.10.19
13:24
хз, я не восьмерочник
23 Злопчинский
 
23.10.19
13:25
24 SkillUp
 
23.10.19
13:26
(22) Ок. Спасибо!
25 Tatitutu
 
23.10.19
13:59
Прыг-Скок...или из MS EXCEL в 1С (8.2) (открытый код)
http://catalog.mista.ru/public/399457/
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший