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

ну решил я написать как все было в это раз… все как обычно суббота я весь день на работе,и вродь работы нет и домой не отпускают… вечер около шести,близиться рабочий день к концу и мне начинают званить, спрашивать будули я на брифе,говорю буду но чуть опоздаю… вопшем прозучала команда домой,быстро переодиваюсь и рву кокти домой,пью […]


Пришла пора на работе свернуть свою родную торговую базу, прекрасный шанс написать статью как это сделать пошагово. Вот результат: Во первых подобные статьи (мои же): Методика свертки 1С Свертка по партиям 1С Свертка торговой базы 1С пошагово Скачать обработку свертки Делаем копию БД Основная информационная база лежит в каталоге База. Копируем ее в папку БазаСвернуто […]


Метки

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

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

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

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

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

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

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

Ссылки