Блог

Главная - Вопросы по программированию - Почему я получаю ошибку несоответствия в этом скрипте vba?

Почему я получаю ошибку несоответствия в этом скрипте vba?

#excel #vba #error-handling

#excel #vba #обработка ошибок

Вопрос:

В строке «EmailItem.To = Str(Лист4.Ячейки (1, 2))» когда я пытаюсь запустить его, появляется ошибка несоответствия, как мне это исправить?

Вот код

 Sub SendEmail_Example1()

Dim EmailApp As Outlook.Application
Dim Source As String
Set EmailApp = New Outlook.Application

Dim EmailItem As Outlook.MailItem
Set EmailItem = EmailApp.CreateItem(olMailItem)

EmailItem.To = Str(Sheet4.Cells(1, 2))
EmailItem.CC = "marcusburr@gmail.com"
EmailItem.Subject = "Test Email From Excel VBA"
EmailItem.HTMLBody = "Hi," amp; vbNewLine amp; vbNewLine amp; "This is my first email from Excel" amp; _
vbNewLine amp; vbNewLine amp; _
"Regards," amp; vbNewLine amp; _
"VBA Coder"


EmailItem.Send

End Sub

Ответ №1:

 EmailItem.To = Str(Sheet4.Cells(1, 2))

Str ожидает числовой аргумент. Вы думаете о CStr() ?