Эксел посылая рабочий лист по электронной почте - Проблемы и решения вопросов, связанных с Software

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

Общественное 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ий
Подводная лодка конца

Вопрос : Эксел посылая рабочий лист по электронной почте

Ответ : Эксел посылая рабочий лист по электронной почте