Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Заполнение справочника 1C данными из Excel через механизм OLE


Профессиональные приемы работы в Microsoft Excel

Выпуск 14
от 2012-04-13

Подписчиков: 5994

Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

Профессиональные приемы работы в Microsoft Excel
Excel от новичка до эксперта

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"



Заполнение справочника 1C данными из Excel через механизм OLE
2012-04-06 16:22
Система 1С позволяет гибко интегрировать приложения,написанные в этой среде с другими приложениями. Имеется возможность как обращаться ко внешним приложениям из кода 1С, так и наоборот, из внешних приложений обращаться к 1С. Рассмотрим пример обращения к 1С из кода на VBA.


Serge 007>> Re: Подсчет по дате, извлеченной из текста (без доп столбца)
2012-04-11 13:48 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Приложил кусочек реального исходника.
Раз уж сделал Улыбка

hammer7>> Re: Подсчет по дате, извлеченной из текста (без доп столбца)
2012-04-11 13:53 http://forum.msexcel.ru/profiles/hammer7-u10499.html
А так:
А так прямо в темечко!!!   Веселый

СПАСИБО!!!

hammer7>> Re: Подсчет по дате, извлеченной из текста (без доп столбца)
2012-04-11 13:55 http://forum.msexcel.ru/profiles/hammer7-u10499.html
Всем СПАСИБО! Все работает!!!

NooBasTiK>> Re: Как во всех ячейках поставить между словами знак "_"
2012-04-11 13:57 http://forum.msexcel.ru/profiles/noobastik-u40678.html
ну да так правильнее будет

andruxa-xa>> Re: Как во всех ячейках поставить между словами знак "_"
2012-04-11 14:49 http://forum.msexcel.ru/profiles/andruxaxa-u43158.html
Большое спасибо. Действительно. ctr + H - это самое простое и эффективное решение.
Главное сам активно этой функцией пользуюсь, что не допер сразу Улыбка

nilem>> Re: Удаление Object из VBAProject
2012-04-11 17:02 http://forum.msexcel.ru/profiles/nilem-u30547.html
Скорее всего просто скрытые (или очень скрытые) листы. Попробуйте выполнить этот код:
Код:
Sub test()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
    wsh.Visible = xlSheetVisible
Next
End Sub
Все листы должны стать видимыми.

Anton Stasenko>> Re: Удаление Object из VBAProject
2012-04-11 18:33 http://forum.msexcel.ru/profiles/antoine2000-u810.html
в таком виде у меня макрос не пошел. Запустился только когда я поменял This на Active. Но,к сожалению, макрос вытащил нормальные скрытые листы, а вот те "непонятные" так и остались в структуре файла - но не отобразились.

ASnake>> Как не включать в отчет пустые строки и вывод его ввиде шаблона
2012-04-11 18:50 http://forum.msexcel.ru/profiles/asnake-u99298.html
Смыл такой.
Исходные данные:
Лист1 таблица из 4 колонок
--- 1 колонка название, 2 - количество на начало периода, 3 - количество на конец периода, 4 - сумма 2 и 3 колонки

строк может быть разное (но для начала пусть будет фиксировано 100 строк)
в строке всегда заполнена первая колонка остальные могут быть пустые.

Нужно вывести в таблицу на нескольких листах бумаги А4 (на один не помещается)
на каждом листе бумаги вида такие блоки:
название таблицы
шапка таблицы
данные (пусть в том же виде что и таблица на Лист 1(тотже набор колонок и их последовательность)) в данных нужно исключить все строки в которых сумма (4 колонка) равна 0.
 подписи к таблице.

т.е. название, шапка и подписи постоянные для каждого листа (если б их можно было запихнуть в колонтитулы Грустный )
данные переменные.
Прошу помощи в решении, но само решение сделаю сам, подтолкните какой этап с помощью чего делать. Пока кроме VBA решения не вижу, но хотелось бы без него.

nilem>> Re: Удаление Object из VBAProject
2012-04-11 19:01 http://forum.msexcel.ru/profiles/nilem-u30547.html
Personal (персональная книга макросов), случайно, не используете? Может в Персонале все эти листы?

_Boroda_>> Re: Как не включать в отчет пустые строки и вывод его ввиде шаблона
2012-04-11 20:14 http://forum.msexcel.ru/profiles/boroda-u12234.html
Нули скрываем [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]ом, шапку и подписи в параметрах страницы - вкладка Лист - сквозные строки (для 207/2010 Разметка страницы - Печать зоголовки)
Без Вашего примера - это все, чем могу помочь.

VanDerHozzz>> Поиск строк в разных книгах по значениям ячеек,входящих в эти строки
2012-04-11 22:29 http://forum.msexcel.ru/profiles/vanderhozzz-u137194.html
Доброго времени суток!
Требуется написать макрос(или решить задачу с помощью встроенных функций,если возможно):поиск строк в разных книгах по значениям ячеек,входящих в эти строки,и возврат номера строки в одной из книг.Желательно,если сделано в VBA,то реализовать как функцию,которую можно вызывать прямо на листе.Поиск сразу по трем признакам. Критерий поиска - совпадение значений признаков,в примере: "сумма","номер","дата"
Буду рад любой помощи.Заранее очень благодарен!

Даже не знаю с чего начать.
В голову лезет одна чепуха:
в модуле Книги "Документы"

Function Мойпоиск(Дата,Номер,Сумма)
With Workbooks("Операции").Worksheets("Лист1").UsedRange
Set rwДата = .Find(Дата,LookIn:=xlValues)
Set rwНомер = .Find(Номер,LookIn:=xlValues)
Set rwСумма = .Find(Сумма,LookIn:=xlValues)
Do While rwДата.row = rwНомер.row = rwСумма.row

а дальше что?или вообще не туда понесло


Anton Stasenko>> Re: Удаление Object из VBAProject
2012-04-11 22:37 http://forum.msexcel.ru/profiles/antoine2000-u810.html
нет, Персонала нет. все стандартно. только в Object Browser эти непонятные листы отображаются. раз нет очевидных решений, то предлагаю тему считать закрытой. Спасибо nilem за то, что пытались помочь.

asap-as>> Re: Случайное слово из диапазона данных
2012-04-12 00:03 http://forum.msexcel.ru/profiles/asapas-u136564.html
Примного благодарна! Правда только потыкавшись сообразила что диапазон со словами должен быть в 1 столбик. Думаю более подробное изучение упомянутых вами формул помогут срздавать новые возможности! Благодасю ещё раз!

sergo44441>> Проблема в работе макроса при использовании MS Query
2012-04-12 07:19 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
Добрый день, уважаемые знатоки. Пока файлик не донес, попозже выложу, а может, и так подскажете в чем причина проблема с макросом.
Пока текстовое описание:
Я сделал макрос, который переносит данные с одного листа книги на другой в необходимой форме отчета. Ежедневно заменял данные на исходном листе, запускал макрос и все было хорошо. Захотел чуть автоматизировать. Вставил на листе с данными подключение через MS Query к запросу в БД (вывод в виде таблицы), формат тот же. Вставил в макрос команду обновления thisworkbook.refreshall. Теперь при первом запуске макроса обновление отчетного листа не происходит, обновляется только лист с данными. Если запустить макрос еще раз, то все нормально. В чем может быть проблема?

sergo44441>> Re: Автоматическое заполнение ячеек с накапливающей базы данных
2012-04-12 07:30 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
Можно сделать. Если набранный номер есть на листе база, то подставляем с него данные, если нет, то записываем на лист база в конец списка. Можно предусмотреть тут выдачу сообщений с просьбой заполнить параметры для нового номера. Только по поводу автоматического обмена вопрос: будут ли добавляться еще листы в книге, на которых нужно автообновление данных телефонного номера?

_Boroda_>> Re: Проблема в работе макроса при использовании MS Query
2012-04-12 10:04 http://forum.msexcel.ru/profiles/boroda-u12234.html
А если предположить (я точно не знаю), что сначала происходит обновление отчетного листа, а потом листа с данными? Тогда отчетный лист при обновлении смотрит на старые данные, а потом уже происходит их (данных) обновление.
Попробуйте что-то по типу
Код:
   ActiveWorkbook.Connections("Запрос").Refresh
    ActiveWorkbook.RefreshAll


ASnake>> Re: Как не включать в отчет пустые строки и вывод его ввиде шаблона
2012-04-12 10:20 http://forum.msexcel.ru/profiles/asnake-u99298.html
В принципе ответ очень содержательный и достаточный, спасибо. Осталось через нижний колонтитул прикрутить подписи на каждый лист и все.

А такой вопрос, а можно будет как-то в автомате чтоб перед первой колонкой была еще колонка с нумерацией пунктов, но так чтобы нумеровались только те что отобраны фильтром (не равные нулю).
Думаю какую-то формулу можно, но получается пока только счет идет до перерыва, а потом с единицы опять.
т.е.
имеем

строка10
строка20
строка310
строка45
строка50
сторка67

фильтром отбираем те что больше 0, и оставшиеся нужно пронумеровать
1строка310
2сторка45
3строка67

пока получается только

1строка310
1сто...


_Boroda_>> Re: Как не включать в отчет пустые строки и вывод его ввиде шаблона
2012-04-12 10:56 http://forum.msexcel.ru/profiles/boroda-u12234.html
функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ
или в А2 =ЕСЛИ(B2;МАКС(A$1:A1)+1)
или
 =ЕСЛИ(B2;МАКС(A$1:A1)+1;"")
и тянем вниз

lelelik>> Re: Не совсем дубликаты
2012-04-12 10:59 http://forum.msexcel.ru/profiles/lelelik-u136945.html
Нет, ну что Вы, это не для проверки, это для составления списка соответствий (как говорится - день потерять, зато потом за 5 минут долететь). А по этому списку потом обычным ВПРом. А если где не нашел - значит, новая организация или новое написание старой.

Спасибо Вам!

ASnake>> Re: Как не включать в отчет пустые строки и вывод его ввиде шаблона
2012-04-12 13:59 http://forum.msexcel.ru/profiles/asnake-u99298.html
Спасибо!
Как говорится, "то, что доктор прописал!" Улыбка


На сегодня все. До встречи на следующей неделе.


В избранное