Автоматическое открытие файла

Опустим в текущем рассмотрении функцию AddFile из OOO т.к. в экселе копирование данных из одной книги в другую производится намного проще. Сразу перейдем к так называемой автоматической обработке.

Sub Openfil()
' Здесь расположен код обработки текущего документа....
' Когда обработка завершена проводим необходимые действия по переносу данных
'Выделить диапазон который необходимо скопировать
Range("A1:R65535").Copy
FileSpec = ThisWorkbook.Path & "\" & "Реестр документов для ГК.xls"
Workbooks.Open FileSpec
'Выделить начальную ячейку в которую необходимо вставить скопированные данные
ActiveWorkbook.Worksheets.Add after:=Worksheets("Лист1")
Worksheets(2).Name = "Подстановка"
'Вставить данные
ActiveSheet.Paste
'Определим для примера некоторый именованный диапазон
Worksheets(2).Range("A1:B65536").Name = "постановка"
' Дальнейшая обработка
End Sub

Как видно из примера в VBA совсем не обязательно выделять данные перед копированием и указывать начальную ячейку для вставки (по умолчанию на новый пустой лист данные вставятся с ячейки А1)

Комментарии

Отправить комментарий

Популярные сообщения из этого блога

Запуск макросов в автоматическом режиме по расписанию

Изображение
При наличии множества пакетных обработок файлов может быть очень удобным назначить им автоматическое выполнение по расписанию. Пакетные обработки могут выполняться через интервалы, друг за другом, без участия пользователей (в ночное время при включенном ПК). Это избавляет от необходимости присутствия оператора для запуска обработок, экономит время на их ожидание. Можно сделать так, что к началу рабочего дня обработчики уже создадут готовые отчеты и пользователям останется только проверить их. Автоматический запуск из закрытого Excel не возможен. Из ситуации есть два выхода - оставить открытой книгу Excel из которой будут вызываться обработки по расписанию либо воспользоваться внешним vbs-скриптом для этой задачи. который сам по сути является макросом. Макросы для планировщика придется немного изменить - нужно создавать их так, чтобы макрос не запрашивал никаких дополнительных окон и не просил от пользователя никаких действий. Т.е. если применяется пакетная обработка, то в коде макрос
Далее...

Пакетная обработка отчетов

Изображение
В задачах автоматизации массовых обработок часто стоит задача обработки множества отчетов однотипным образом (разные подразделения, филиалы). Чтобы не обрабатывать каждый такой отчет отдельно можно создать типовой обработчик одного файла, а затем вставить его в процедуру обработки множества файлов. Приведем пример. Нам нужно обработать файлы Продажи блюд производства с отгрузками по 20-ти ГМ. Их можно выгрузить в одну папку, добавив в конце имени файла название города или ГМ и запустить макрос, который обработает все 20 файлов без участия пользователя. Ранее мы уже разработали обработчик одного файла под названием Simple_Relise. Теперь Необходимо вставить его в макрос, который пройдет по всем файлам в папке и применит к ним этот обработчик. Приведем код. Запускать его нужно из любого файла НЕ находящегося в этой папке. Sub ГрупповаяОбработка()     ' запрашиваем пути к папкам с файлами, функция открывает окно выбора папки     InvoiceFolder$ = GetFolderPath     Dim coll A
Далее...

Отправка отчетов по электронной почте

Несмотря на широкую распростаненность и популярность Excel отправка электронных писем из него весьма не типична и не удобна. Без MS Outlook очень ограниченна. Есть некоторые устаревшие методы полноценной отправки, правда они не оставляют копий таких писем, требуют указания в коде программы личных данных почты и паролей, что может быть небезопасно. Поэтому рассмотрим только один подходящий пример отправки письма через используемый нами Mozilla Thunderbird (в VBA нет понятия почтового клиента по умолчанию в отличие от OOO, поэтому отправка из него настолько затруднена). Sub SMail() Dim addrRassl ' Пишем адрес, на который хотим отправить, можно указать несколько через массив или 'оставить поле пустым addrRassl = "example@mail.ru" Dim oShell Dim oThisBook As Workbook Set oThisBook = ThisWorkbook 'Определяем полный адрес вызова программы почтового клиента 'На вашем компьютере (в вашей системе) он может быть другим ' Указываем тему сообщения с текуще
Далее...