outlook - 文本框中的用户表单 vlookup

Question

我对 VBA 真的很陌生，试图玩一些非常基本的东西，用户表单和 vlookup。几个小时后无法找出 vlookup 错误。感谢任何输入！

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdSend_Click()

' emailcommand Macro

'
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = New Outlook.Application
Set oMail = oApp.CreateItem(olMailItem)

With oMail
    .To = emailaddress.Value
    .Subject = Subjectbox.Value
    .Body = "Hi, " & Fundname.Value & " is ready"
    .Display
    Application.SendKeys "%s"
End With

End Sub


Private Sub Fundnumber_Change()
Dim ws As Worksheet
Set ws = Sheets("Matrix")

With Me
    .Fundname.Text = Application.VLookup(.Fundnumber.Text, ws.Range("A2:D141"), 4, False)
End With

End Sub

标签： outlookvlookupuserform