Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Excel файл, в нем таблица (товар, колич итд.) как ее считывать? У кажд. накл. разное колич

Excel файл, в нем таблица (товар, колич итд.) как ее считывать? У кажд. накл. разное колич
Я
   SkillUp
 
23.10.19 - 13:03
Excel файл, в нем таблица (товар, колич ,цена ,сумма итд.) как ее считывать? У каждой накл. разное количество строк. Вернее, как определить начало таблицы (строку в Эксель) и как последнюю строку таблицы? Надеюсь, понятно объяснил проблему...
 
 
   ДенисЧ
 
1 - 23.10.19 - 13:05
Как-как... Начало таблицы - фиксируется по договорённости. Завершение - по содержанию
   SkillUp
 
2 - 23.10.19 - 13:06
(1) Завершение ,если пустая?
   Злопчинский
 
3 - 23.10.19 - 13:06
по явным регулярным признакам.
если таковых нет и невозможно формализовать - только интерактивно указывать первую и последнюю строку.
в разных местахя делал по разному.
например, программно определял строку в которой после строки заголовка со строкой "Номер п\п" встретится число 1. потом читал строки до тех пор пока очередная строка в этом столбце будет иметь номер предыдущая+1
   SkillUp
 
4 - 23.10.19 - 13:06
(1) ОК.
   Злопчинский
 
5 - 23.10.19 - 13:07
(2) что есть "пустая" - это не так очевидно как кажется
   SkillUp
 
6 - 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
вдобавок это позволяет автоматои пропускать всякие подвалы страниц, пустые строки итд
   SkillUp
 
9 - 23.10.19 - 13:09
(5) ТекущееЗначение = Excel.Cells(НС, НомерКолонки).value;
Если ТекущееЗначение = "" тогда
 Заверешние Таблицы
КонецЕсли;

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

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


Список тем форума
Рекламное место пустует  Рекламное место пустует
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс, 1996 г.
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.