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

Первые части здесь: Отдых на море. Часть 1 — Дорога и общее впечатление. Отдых на море. Часть 2 — Море. Путешествие по береговой линии На второй день пребывания на море мы решили съездить поэкстремальничать. Так как времени у нас мало, а впечатления надо менять, денек на море, и хватит. Тем более мы впечатлились рассказами ребят, […]


29 октября 2010 · Работа

О вредном влиянии компьютеров на здоровье пользователя говорится много. И, скорее всего, эта тема будет актуальна до тех пор, пока существует многомиллионная армия пользователей, по желанию или вынужденно проводящая у ПК, складывающиеся в дни и месяцы, часы. Никто не боится скрытых в глубинах системного блока комплектующих, да и клавиатура вызывает не больше страха, чем паровые […]


Метки

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

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

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

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

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

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

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

Ссылки