Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать диапазон в коде / 5 сообщений из 5, страница 1 из 1
18.06.2007, 01:15:33
    #34600670
Alexandr_80
Alexandr_80
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать диапазон в коде
Добрый день!
Есть код. Необходимо чтобы вместо значения "А1" в письмо подставлялся диапазон значений ячеек А1:Н35. Помогите!

Sub postcard()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Range("B3").Value
.Subject = "Тема"
.Body = "Тело письма " & _
Range("A1").Value & "."
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.06.2007, 07:42:16
    #34600747
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать диапазон в коде
Alexandr_80Добрый день!
Есть код. Необходимо чтобы вместо значения "А1" в письмо подставлялся диапазон значений ячеек А1:Н35. Помогите!

Sub postcard()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Range("B3").Value
.Subject = "Тема"
.Body = "Тело письма " & _
Range("A1").Value & "."
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

Спасибо!

Код: plaintext
1.
2.
3.
Dim MailBody as string
For Each icel in Range("А1:Н35")
 MailBody=MailBody&icel.value
next icel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.06.2007, 23:04:22
    #34603235
Alexandr_80
Alexandr_80
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать диапазон в коде
Deggasad Alexandr_80Добрый день!
Есть код. Необходимо чтобы вместо значения "А1" в письмо подставлялся диапазон значений ячеек А1:Н35. Помогите!

Sub postcard()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Range("B3").Value
.Subject = "Тема"
.Body = "Тело письма " & _
Range("A1").Value & "."
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

Спасибо!

Код: plaintext
1.
2.
3.
Dim MailBody as string
For Each icel in Range("А1:Н35")
 MailBody=MailBody&icel.value
next icel


Выдает ошибку: Method 'Range' of object '_Global' failed в стоке For each...
Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.06.2007, 23:38:52
    #34603281
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать диапазон в коде
Код: plaintext
1.
2.
3.
4.
5.
Dim MailBody As String
Dim icel As Range
For Each icel In Range("A1:H35")
 MailBody = MailBody & icel.Value
Next icel
так работает

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2007, 20:52:19
    #34606159
Alexandr_80
Alexandr_80
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать диапазон в коде
big-duke
Код: plaintext
1.
2.
3.
4.
5.
Dim MailBody As String
Dim icel As Range
For Each icel In Range("A1:H35")
 MailBody = MailBody & icel.Value
Next icel
так работает



Выдает: icel.Value=Error 2015 (Type mismatch)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать диапазон в коде / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 370ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182746]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 227ms
total:  370ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]