From 82cf0044ccd32124d761b9f09b61acafafbb85ca Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=9F=D1=80=D0=BE=D1=84=D0=B8-=D0=A1=D0=BE=D1=84=D1=82?= Date: Thu, 23 Jul 2026 18:43:07 +0000 Subject: [PATCH] v3.0.0.119 --- Configuration.xml | 2 +- .../Forms/Форма/Ext/Form/Module.bsl | 13 ++++++------- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/Configuration.xml b/Configuration.xml index 4a99518..4cb34aa 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.118 + 3.0.0.119 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index e9b1115..d4011fd 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -108,15 +108,14 @@ КонецЕсли; Сообщить("Лист 'Расчет' найден: " + ЛистРасчет); - // Диагностика: пробуем разные способы чтения ячеек + // Диагностика: координаты области и чтение ОблРасчет = ТаблДок.Области.Найти("Расчет"); Если ОблРасчет <> Неопределено Тогда - Сообщить(" 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).Текст)); + Сообщить(" TopRow=" + ОблРасчет.Верх + " BottomRow=" + ОблРасчет.Низ); + // Абсолютные координаты: строка 4 листа = TopRow + 3 + АбсСтрока4 = ОблРасчет.Верх + 3; + Сообщить(" AbsRow4: " + СокрЛП("" + ТаблДок.Область(АбсСтрока4, 1, АбсСтрока4, 1).Текст)); + Сообщить(" AbsRow15: " + СокрЛП("" + ТаблДок.Область(ОблРасчет.Верх + 14, 1, ОблРасчет.Верх + 14, 1).Текст)); КонецЕсли; // Читаем шапку листа "Расчет"