為什么我在這個 vba 腳本中收到不匹配錯誤？

Question

在“EmailItem.To = Str(Sheet4.Cells(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," & vbNewLine & vbNewLine & "This is my first email from Excel" & _
vbNewLine & vbNewLine & _
"Regards," & vbNewLine & _
"VBA Coder"


EmailItem.Send

End Sub

Answer 1

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

Str需要一個數字參數。 你在想CStr()嗎？