Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Отправка листа по почте. Разорвать связи.
 
#1
31.01.2013 07:59:33
Добрый день!
Заранее извиняюсь если подобное есть, но я не нашел

Имеем макрос для отправки листа по почте

Код
Sub Mail_heinekenprobmail() Dim strdate As String Worksheets("Заказ-Наряд" ;) .Copy strdate = Format(Date, "dd.mm.yyyy" ;)  ActiveWorkbook.SaveAs "Заявка " & ActiveWorkbook.ActiveSheet.[g2] & " дата " & ActiveWorkbook.ActiveSheet.[c6] & ".xls" ActiveWorkbook.SendMail "qqqqq@qq.ru", _ "Заявка на ремонт" & ActiveWorkbook.ActiveSheet.[g2] ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End Sub



Проблема в следующем.
Надо, что бы при создании документа, который полетит по почте, разрывались связи с другим листом.
Изменено: SergeI - 01.02.2013 22:42:28
 
 
 
#2
31.01.2013 08:05:05
Код
Worksheets("Заказ-Наряд").Copy
Activesheet.usedrange.Value = Activesheet.usedrange.Value
'далее по тексту


P.S. Оформляйте листинги кодов тегами Code(<...>)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
31.01.2013 08:32:37
Весьма благодарен.

про оформления не совсем понял
 
 
 
#4
31.01.2013 08:38:31
Цитата
про оформления не совсем понял
Посмотрите как выглядит мой код в сообщении и как Ваш. Найдите отличия. Прочитайте мое сообщение. Попробуйте создать новое, но уже обращая внимание на ряд иконок над полем для создания сообщения(там, где смайлики еще есть).
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
31.01.2013 08:52:23
Исправил, на будущее буду иметь ввиду

Еще раз спасибо за помощь
 
 
 
Страницы: 1
Наверх