v3.0.0.116

DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl

@@ -106,6 +106,17 @@
         Сообщить("Лист 'Расчет' не найден!");
         Возврат Неопределено;
     КонецЕсли;
+    Сообщить("Лист 'Расчет' найден: " + ЛистРасчет);
+
+    // Диагностика: проверяем ячейки листа "Расчет"
+    Для Ном = 1 По 20 Цикл
+        Для Кол = 1 По 5 Цикл
+            Текст = ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, Кол);
+            Если ЗначениеЗаполнено(Текст) Тогда
+                Сообщить("  [" + Ном + "," + Кол + "] = " + Текст);
+            КонецЕсли;
+        КонецЦикла;
+    КонецЦикла;
 
     // Читаем шапку листа "Расчет"
     ГодЗагрузки = "" + ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, 4, 1);
@@ -238,7 +249,7 @@
 &НаСервере
 Функция ПрочитатьЧислоИзТД(ТаблДок, ИмяОбласти, Строка, Колонка)
     Попытка
-        Значение = ТаблДок.Область(ИмяОбласти + "|R" + Строка + "C" + Колонка).Текст;
+        Значение = ТаблДок.Область(Строка, Колонка, Строка, Колонка).Текст;
         Если Не ЗначениеЗаполнено(Значение) Тогда Возврат 0; КонецЕсли;
         Возврат Число(СокрЛП(Значение));
     Исключение
@@ -249,7 +260,7 @@
 &НаСервере
 Функция ПрочитатьСтрокуИзТД(ТаблДок, ИмяОбласти, Строка, Колонка)
     Попытка
-        Возврат СокрЛП("" + ТаблДок.Область(ИмяОбласти + "|R" + Строка + "C" + Колонка).Текст);
+        Возврат СокрЛП("" + ТаблДок.Область(Строка, Колонка, Строка, Колонка).Текст);
     Исключение
         Возврат "";
     КонецПопытки;