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

Бывают ситуации когда 1С с строке состояния пишет Ожидание захвата таблицы «Журналы» для начала транзакции. Такое происходит в следствии того, что 1С не может проводить одновременно 2 документа. Сделано это специально, для того, чтобы исключить некоторые неприятные ситуации, например, чтобы 2 менеджера не продали один и тот же товар (последний) одновременно. Когда 1ый менеджер проводит […]


11 ноября 2010 ·

Поставили небольшую задачку загружать данные, которые хранятся в базе данных MS Access «засосать» в базу 1С 7.7. По примеру работы с базой данных MySQL подключаюсь через ADO. Пример кода с комментариями приведен ниже:


Метки

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

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

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

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

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

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

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

Ссылки