Excel и Outlook

[Barabanoff]

Требуется программно замутить такую весчь:
есть файл эксель, в нем таблица, нуно скопировать эту таблицу в новый файл, а потом этот файл запихать в папку изходящие в аутлук!
Есть соображения? Кто нибудь такое делал?

[Pavel55]

Могу показать как копировать таблицу в Excel в новый файл ), а вот с Outlook не помогу )

[Barabanoff]

Сообщение от Pavel55

Могу показать как копировать таблицу в Excel в новый файл ), а вот с Outlook не помогу )

покажи, аутлук буду искать

[Pavel55]

ну, например, так

Sub Макрос1()
'допустим таблица находится в ячейках A1:C8
    Range("A1:C8").Copy 'копируем нужную область таблицы
    Workbooks.Add 'добавляем новый файл
    ActiveSheet.Paste 'вставляем таблицу на новый лист
    ActiveSheet.UsedRange.EntireColumn.AutoFit 'подгоняем размеры столбцов под таблицу
    Range("A1").Select
End Sub

[Barabanoff]

спасиб, тока надо шоп в новый файл таблица копировалась, а не на новый лист

[Pavel55]

Там и есть новый файл, просто я неправильно комментарий написал к этой строчке )

[romanovsv]

Sub Mail_workbook()
Application.SendKeys "{ENTER}"
Dim wb As Workbook
Set wb = ActiveWorkbook
On Error Resume Next
wb.SendMail "пупкин@mail.ru", "отчет"
End Sub