Последнее обновление: 23 мая 2015 в 14:58
Подпишись на RSS
rss Подпишитесь на RSS, чтобы всегда быть в курсе событий.

Вроде как все утихло с порнобаннерами и вирусами, которые блокируют компьютер и просят отправить СМС. Часто от таких вирусов спасает антивирус. Но вот опять люди обращаются с похожими проблемами. На этот раз появился новый вирус, который ни нод32, ни касперский не находят. Тескт без изысков: Вы установили банер для доступа на наш сайт. Срок действия […]


11 февраля 2011 ·

Иногда при ведении учета возникает ситуация, когда в базе появляется несколько одинаковых контрагентов. Такое возможно, например, при невнимательности оператора, или же при реорганизации группы компаний контрагентов, а также проблема задвоенности может возникать при некорректном переносе данных из одной базы в другую. А если и документы ведутся по нескольким одинаковым контрагентам, то становится совсем грустно, ведь […]


Метки

Метки записей
восстановить нумерацию расчет ПЗД Windows XP 1с реестр Свертка 1С Новая форма счет-Фактуры автозапуск Методика свертки 1С Кино свертка торговли СМС Командная строка Игры открыть xlsx docx Лирика Деньги Свертка по партиям бесплатно Взлом 1С реестр Мужчина и женщина Спутниковое ТВ LiveCD Dr.Web Обзоры просроченная дебиторская задолженность Оптимизация Интересные места Скачать 1С Взлом 1 Взлом перенос документов скачать конвертер office 2003-2007 сертфикаты узнать пароль Добавить новую метку День жестянщика HP Pavilion dv6000 удаляем пароли антивирусы Фото печать от поставщика перенумарация Обработки Zver DVD Автомобили вирус SMS Драйвер ODBC скачать ZverCD Интренет уменьшить размер базы Вопросы Структура 1С сверка базы 1С Сайты Делаем LiveCD связь Oracle Система Работа портативный аккумулятор вирус Программы Отношения дравер MySQL скачать код защита Документы на почту переустановка windows Пошаговая свертка партии XPE Спорт Файлы 1С Оборудование Армия Юмор программы для слепых антивирус Интерент вирус эмулирует нажатие Win Жизнь Экономика сайт Программы для 1С Загрузка с компакт - диска Отчет Установка Windows мошенничество Бухгалтерия Интернет Asus Eee Печатные формы контент-провайдер СМС оплата свертка Альпинизм автоматизация office 2003 удаление документов гаджеты сбились номера документов 1с и MySQL homachi локальная сеть через интернет пакетный запуск 1С Drivers Вся заблокирован Проблемы Анализ ПДЗ office 2007 Драйвера новости взломать пароль Экстремальные игры Ошибки 1С Финансы редактирование DBF jaws Свертка базы 1С Подключить 1С к MySQL Видео Отзывы свертка в картинках Вирусы Удаление партий
28 декабря 2010

Поиск из 1С 7.7 в XLS файле

Автор статьи: , 28 декабря 2010 в рубрике . Метки: , , . Просмотров: 2 341

Поставили такую задачу.

Есть самописаня конфигурация, которая содержит информацию об определенных заказах, и ссылается на внешние Эксель — файлы. Ссылки на эти файлы содержатся в реквизитах справочников.

excel Поиск из 1С 7.7 в XLS файле

Обработка для поиска информации в Excel из 1С

Цель — осуществить поиск в этих файлах заданной фразы. Причем искать будут номенклатуру и не важно где находится (в какой ячейке) результат поиска. Самое простое, что приходит в голову — перебирать ячейки и искать поисковую фразу в каждой ячейке. Однако я пошел другим путем. Так как не важно в какой ячейке находится поисковая фраза, то воспользуемся общим поиском.

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Пример кода


Попытка
Excel=СоздатьОбъект("Excel.Application"); // создаем подключение к эксель-файлу
Books=Excel.WorkBooks;
Excel.DisplayAlerts=1;
Books.Open(Файл);  //Открываем XLS-файл с путем ФАЙЛ
Сообщить("Открыли " + Файл); // сообщаем
Исключение
Сообщить(ОписаниеОшибки(),""); // Если открыть не удалось, то сообщаем по какой причине
Возврат;
КонецПопытки;
Состояние("Поиск...");
Excel.Worksheets(1).Unprotect ("1qaz");
Для й=1 По Excel.Worksheets.Count Цикл //цикл по всем листам книги Excel
Диапазон = Excel.Worksheets(й).UsedRange; // задаем используемый диапазон. Нет надобности искать в пустых ячейках
Попытка
Найден = Диапазон.Find(Фраза); // Собственно ищем ФРАЗУ в заданном диапазоне
флНайден=1;
Исключение
флНайден=0;
КонецПопытки;
Если флНайден=1 Тогда
ТТТ.НоваяСтрока(); // необходимые мне действия
ТТТ.Заказ = ТЗак.Заказ;
ТТТ.ДатаЗак = Тзак.Заказ.ДатаЗаказа;
ТТТ.ДатаПорт = Тзак.Заказ.ПортДатаПлан;
ТТТ.ДатаСклад = Тзак.Заказ.СкладДатаПлан;
ТТТ.Файл = Файл;
КонецЕсли;
КонецЦикла;
Excel.DisplayAlerts=1;
Books.Close();
Excel.Quit();        // закрываем файл
Сообщить("Закрыли " + Файл);




Оставить комментарий

*

Блог программиста 1С. Программирование 1С
Если Вас что-то заинтересовало или возникли вопросы, пишите.
petr@evseev.ru
Skype - evseev_petr
ICQ - 262808698

Сохраните меня в социальных сервисах

Комментарии

Присоединяйтесь к обсуждению
  • Леха: Мало того, что это говно-антивирус требует .Net Framework не ниже 4.0, так он еще пожирает ресурсы компьютера,...
  • tommy: AVG равно еще хуже Касперского . Иди в жопу с ним
  • просто_чайник: Не люблю этот антивирус. Заметил такую особенность. Если обновить базы в начале работы, довольно часто...
  • Елена: Самое главное. Файл для совместной работы открыть нельзя! Если надо что-то отредактировать — только...
  • Виктор: Поставили мне на работе эту замечательную программку. Работать невозможно, ужасные тормоза. Стали...

Избранное видео

Ссылки