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

v3.0.0.119

Browse Source
This commit is contained in:
Профи-Софт
2026-07-23 18:43:07 +00:00
parent f726980064
commit 82cf0044cc
2 changed files with 7 additions and 8 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.118</Version> <Version>3.0.0.119</Version>
<Caption/> <Caption/>
<ShortCaption/> <ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+6 -7
View File
@@ -108,15 +108,14 @@
КонецЕсли; КонецЕсли;
Сообщить("Лист 'Расчет' найден: " + ЛистРасчет); Сообщить("Лист 'Расчет' найден: " + ЛистРасчет);
// Диагностика: пробуем разные способы чтения ячеек // Диагностика: координаты области и чтение
ОблРасчет = ТаблДок.Области.Найти("Расчет"); ОблРасчет = ТаблДок.Области.Найти("Расчет");
Если ОблРасчет <> Неопределено Тогда Если ОблРасчет <> Неопределено Тогда
Сообщить(" TopRow=" + ОблРасчет.Верх + " BottomRow=" + ОблРасчет.Низ + " Left=" + ОблРасчет.Лево + " Right=" + ОблРасчет.Право); Сообщить(" TopRow=" + ОблРасчет.Верх + " BottomRow=" + ОблРасчет.Низ);
// Способ 1: через объект области // Абсолютные координаты: строка 4 листа = TopRow + 3
Сообщить(" Способ1 R4C1: " + СокрЛП("" + ОблРасчет.Область(4, 1, 4, 1).Текст)); АбсСтрока4 = ОблРасчет.Верх + 3;
Сообщить(" Способ1 R15C1: " + СокрЛП("" + ОблРасчет.Область(15, 1, 15, 1).Текст)); Сообщить(" AbsRow4: " + СокрЛП("" + ТаблДок.Область(АбсСтрока4, 1, АбсСтрока4, 1).Текст));
// Способ 2: через абсолютные координаты (TopRow + смещение) Сообщить(" AbsRow15: " + СокрЛП("" + ТаблДок.Область(ОблРасчет.Верх + 14, 1, ОблРасчет.Верх + 14, 1).Текст));
Сообщить(" Способ2 AbsR" + (ОблРасчет.Верх + 3) + "C1: " + СокрЛП("" + ТаблДок.Область(ОблРасчет.Верх + 3, 1, ОблРасчет.Верх + 3, 1).Текст));
КонецЕсли; КонецЕсли;
// Читаем шапку листа "Расчет" // Читаем шапку листа "Расчет"