считывание данных из Excel

@tyro89 · Регистрация: 07.03.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте. вот возникла такая проблема (1с 77). Есть книга Excel со множеством листов. Надо считать все данные с каждого листа. Мой отрывок кода приведен ниже:

Код

j=0;
КоличествоЛистов = Книга1.Sheets.Count;
Для j=1 по КоличествоЛистов Цикл
Лист1 = Книга1.WorkSheets(j);
ИмяЛиста = Книга1.WorkSheets(j).Name;
i=2; //со 2 строки начинаются данные в документе Microsoft Excel
Сообщить("Идет загрузка файла в справочник","i");
Стр=СокрЛП(Строка(ПолучитьЗначение(Эксель1,i,1)));
Пока ПустаяСтрока(Стр)=0 Цикл //пока непустые ячейки в строках — загружаем
Стр=СокрЛП(Строка(ПолучитьЗначение(Эксель1,i,1)));
Если ПустаяСтрока(Стр)=0 Тогда
.......
Иначе
Сообщить("Загрузка листа"""+ИмяЛиста+""" IPK.xls закончена.","i");
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Сообщить("Загрузка файла закончена.","i");

Проблема возникла в том, что в переменную Стр попадают значения только из первого листа. а сам цикл построен и работает правильно(проверяла через отладчик ). Вот приведен код функции, которая присваивается переменной Стр:

Код

Функция ПолучитьЗначение(Excel,у,х)
Cell=Excel.Cells(у, х);
Возврат Cell.Value;
КонецФункции

Извиняюсь за многословие, но очень нужна помощь в данном вопросе. Заранее спасибо.

@hosm · 07.07.2010, 20:12

при взятии значения можно указать с какого листа брать данные. синтаксис 1с не знаю, но в экселе есть обращения что-то типа Лист1!A1, т.е. что-то написать типа Книга1.WorkSheets(j).Cells(у, х). Если лист не указан, берет с текущего листа - видать, у вас это первый.

@kortomovmox · 07.07.2010, 20:21

У Вас Стр=СокрЛП(Строка(ПолучитьЗначение(Эксель1,i,1)));

Должно быть Стр=СокрЛП(Строка(ПолучитьЗначение(Лист1,i,1)));

Добавлено: И зачем тогда вообще была ведена переменная Лист1, если она нигде у Вас не используется

@tyro89 · 07.07.2010, 20:56

Спасибо огромное за советы. Все начало работать как надо)

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	07.07.2010, 20:12	2
	при взятии значения можно указать с какого листа брать данные. синтаксис 1с не знаю, но в экселе есть обращения что-то типа Лист1!A1, т.е. что-то написать типа Книга1.WorkSheets(j).Cells(у, х). Если лист не указан, берет с текущего листа - видать, у вас это первый. 0

@kortomovmox 0 / 0 / 0 Регистрация: 15.06.2008 Сообщений: 278
	07.07.2010, 20:21	3
	У Вас Стр=СокрЛП(Строка(ПолучитьЗначение(Эксель1,i,1))); Должно быть Стр=СокрЛП(Строка(ПолучитьЗначение(Лист1,i,1))); Добавлено: И зачем тогда вообще была ведена переменная Лист1, если она нигде у Вас не используется 0

@tyro89 0 / 0 / 0 Регистрация: 07.03.2010 Сообщений: 154
	07.07.2010, 20:56	4
	Спасибо огромное за советы. Все начало работать как надо) 0