diff --git a/Configuration.xml b/Configuration.xml index 4a9be2e..4a99518 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.117 + 3.0.0.118 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index a571ab7..e9b1115 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -108,15 +108,16 @@ КонецЕсли; Сообщить("Лист 'Расчет' найден: " + ЛистРасчет); - // Диагностика: проверяем ячейки листа "Расчет" - Для Ном = 1 По 20 Цикл - Для Кол = 1 По 5 Цикл - Текст = ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, Кол); - Если ЗначениеЗаполнено(Текст) Тогда - Сообщить(" [" + Ном + "," + Кол + "] = " + Текст); - КонецЕсли; - КонецЦикла; - КонецЦикла; + // Диагностика: пробуем разные способы чтения ячеек + ОблРасчет = ТаблДок.Области.Найти("Расчет"); + Если ОблРасчет <> Неопределено Тогда + Сообщить(" TopRow=" + ОблРасчет.Верх + " BottomRow=" + ОблРасчет.Низ + " Left=" + ОблРасчет.Лево + " Right=" + ОблРасчет.Право); + // Способ 1: через объект области + Сообщить(" Способ1 R4C1: " + СокрЛП("" + ОблРасчет.Область(4, 1, 4, 1).Текст)); + Сообщить(" Способ1 R15C1: " + СокрЛП("" + ОблРасчет.Область(15, 1, 15, 1).Текст)); + // Способ 2: через абсолютные координаты (TopRow + смещение) + Сообщить(" Способ2 AbsR" + (ОблРасчет.Верх + 3) + "C1: " + СокрЛП("" + ТаблДок.Область(ОблРасчет.Верх + 3, 1, ОблРасчет.Верх + 3, 1).Текст)); + КонецЕсли; // Читаем шапку листа "Расчет" ГодЗагрузки = "" + ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, 4, 1);