Страницы: 1
RSS
Отправка книги или листа по email
 
Всех с добрым утром и удачного всем дня.    
Ребята, помогите, пожалуйста, решить такой вопрос: в разделе "Приёмы" есть такая тема:  
«Отправка книги или листа по email»    
Как быстро отправить всю книгу или отдельный лист по электронной почте на заданный адрес.  
И дан следующий код:  
Sub SendSheet()      
   ThisWorkbook.Sheets(1).Copy      
   With ActiveWorkbook      
       .SendMail Recipients:="vasya@pupkin.com", _      
                 Subject:="Лови файлик"      
       .Close SaveChanges:=False      
   End With      
End Sub    
Всё работает отлично. Всё хорошо. Но есть одно маленькое "но": Когда я отправляю лист (формата EXCEL 2003) из EXCEL 2007, то программа автоматом создаёт и отправляет лист в формате EXCEL 2007. И получатель, у которого EXCEL 2003, полученный файл открыть уже не может. Как быть в таком случае? С уважением, Сергей.
 
Попробуйте перед отправкой макросом сохранить книгу в нужном формате.  
 
для этого после строки With ActiveWorkbook    
добавьте вызов SaveAs:  
 
.SaveAs "Полный\Путь\к\Файлу.xls", xlworkbooknormal
 
{quote}{login=EducatedFool}{date=11.11.2011 01:00}{thema=}{post}Попробуйте перед отправкой макросом сохранить книгу в нужном формате.  
 
для этого после строки With ActiveWorkbook    
добавьте вызов SaveAs:  
 
.SaveAs "Полный\Путь\к\Файлу.xls", xlworkbooknormal{/post}{/quote}  
 
Лист создаёт в формате EXCEL 2003, но при этом выдаёт:  
Метод 'SaveAs'объекта'_Worksheet' не выполнен
Страницы: 1
Читают тему
Наверх