admin-ps/zagruzka-dannyh-iz-excel
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v3.0.0.118

Browse Source
This commit is contained in:
Профи-Софт
2026-07-23 16:23:07 +00:00
parent de99bfa191
commit f726980064
2 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Configuration.xml
+1 -1
View File
@@ -56,7 +56,7 @@
<ScriptVariant>Russian</ScriptVariant> <ScriptVariant>Russian</ScriptVariant>
<DefaultRoles/> <DefaultRoles/>
<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor> <Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
<Version>3.0.0.117</Version> <Version>3.0.0.118</Version>
<Caption/> <Caption/>
<ShortCaption/> <ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+10 -9
View File
@@ -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); ГодЗагрузки = "" + ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, 4, 1);