Общественное Sub SendItAll ()
Тусклое outlookApp
Тусклое mItem
Тусклое lRow как длиной
На резюме ошибки затем
Установите outlookApp = GetObject ("", «Outlook.Application»)
Если Err.Number <> 0 после этого
Установите outlookApp = CreateObject («Outlook.Application», "")
Закончитесь если
На ошибке переход 0
Application.ScreenUpdating = Fase
lRow = рабочий лист («данные»). Ряд («A65536»). Конец (xlUp). Рядок
'Ясно вне все старые данные на рапорте
Листы («рапорт»). Отборно
Ряд («A4: ОБЪЯВЛЕНИЕ» & lRow) .ClearContents
'Данные по вида зоной
'Листы («данные»). Отборно
'Ряд («A1») .CurrentRegion.Select
'Selection.Sort Key1: =Range («A2»), коллектор: =xlYes
'Обрабатывайте каждый показатель на распределении
Листы («распределение»). Отборно
FinalRow = ряд («A50»). Конец (xlUp). Рядок
Для I = 2 к FinalRow
Листы («распределение»). Отборно
RegionToGet = ряд («a» & I). Значение
Получатель = ряд («b» & I). Значение
'Ясно вне все старые данные на рапорте
Листы («рапорт»). Отборно
Ряд («A4: ОБЪЯВЛЕНИЕ» & lRow) .ClearContents
'Получите показатели от данных
Листы («данные»). Отборно
Ряд («A1») .CurrentRegion.Select
'Поверните дальше AutoFilter, если оно не дальше
Если ActiveSheet.AutoFilterMode = ложное после этого Selection.AutoFilter
'Фильтруйте данные к как раз этой зоне
Поле Selection.AutoFilter: =1, Criteria1: =RegionToGet
'Выберите только видимые клетки и скопируйте для того чтобы сообщить
Selection.SpecialCells (xlCellTypeVisible). Выберите
Назначение Selection.Copy: =Sheets («рапорт»). Ряд («A4»)
'Поверните Autofilter
Selection.AutoFilter
'Скопируйте лист рапорта к новой книге и электронная почта
Листы («рапорт»). Экземпляр
ActiveWorkbook.SaveAs «C:\Windows\temp\book123.xls»
' Application.Dialogs (xlDialogSendMail). Покажите _
' arg1: =Recipient, _
' arg2: = " рапорт - «& RegionToGet
Установите mItem = outlookApp.CreateItem (olMailItem)
С mItem
. К = получатель
. Вопрос = «рапорт -» & RegionToGet
. Телом = «это будет ваш рапорт»
. Attachments.Add «C:\Windows\temp\book123.xls»
. Сохраньте
Закончитесь с
ActiveWorkbook.Close SaveChanges: =False
Убийство «C:\Windows\temp\book123.xls»
Application.ScreenUpdating = Fase
Затем iий
Подводная лодка конца
|