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

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


16 февраля 2009 · Железки

Вот понадобился мне дешовенький фотик. Чтобы быстро фотографировать интересные моменты в жизни, а так же для DozoRa. Профессионально фоторгафией я не занимаюсь, поэтому за магапикселями не гонюсь. Основныйм требованием для фотоаппарата у меня были — быстрая зарядка вспышки, чтобы оперативно снимать интересные моменты, и большое время автономной работы.


Метки

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

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

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

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

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

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

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

Ссылки