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

Собрались с друзьями по весне на очередную вылазку в неизведанные нами еще места, и решили посетить Богомольный Ключ, расположен который в одном из оврагов Сенгилеевского района Ульяновской области. Скажу сразу, хоть и отметили мы его на  GPS навигаторе, все равно искали достаточно долго. Помешала еще и грязь — чернозем, верхний слой которого подтаял и машина […]


23 сентября 2009 · Всячина

Вчера пришел домой, вышел на балкон воздухом подышать, стою, по телефону разговариваю, в ногах что то кошка носится. Странно так носится. Что случилось? Опускаю глаза, а там мой кошак гонят мышь ))) Откуда она на 7-м этаже я не понял. Ну я конечно же тоже начал ее гонять, поймал. Оказалось это не мышь (в темноте […]


Метки

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

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

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

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

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

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 равно еще хуже Касперского . Иди в жопу с ним
  • просто_чайник: Не люблю этот антивирус. Заметил такую особенность. Если обновить базы в начале работы, довольно часто...
  • Елена: Самое главное. Файл для совместной работы открыть нельзя! Если надо что-то отредактировать — только...
  • Виктор: Поставили мне на работе эту замечательную программку. Работать невозможно, ужасные тормоза. Стали...

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

Ссылки