在Excel中使用VLookup的运行时错误

Question

I keep getting:

a Run-time error '1004' Unable to get the Vlookup property of the WorksheetFunction class

with the Vlookup code below.

If I enable Microsoft outlook 12.0 Object Library it works but I run into issues where the code is used with Excel 2013 and adds Microsoft outlook 15.0 Object Library references that are not available on excel 2007. I have incorporated late binding which has worked for the most part except for this one bit of code.

I have included a snippet of code which I hope is enough for someone to help me.

Sub Button154_Click()

    Dim forename As String
    Dim surname As String
    Dim movedate As String
    Dim callref As String
    Dim dept As String
    Dim deptmove As String
    Dim wb As Workbook

    Set wb = ThisWorkbook

    forename = Sheet1.Range("f8").Value
    surname = Sheet1.Range("f9").Value
    movedate = Sheet1.Range("k13").Value
    callref = Sheet1.Range("k8").Value
    dept = Application.WorksheetFunction.VLookup(Name, Sheet1.Range("K10"), 1)

Answer 1

Added late binding code Dim otlApp As Object Set otlApp = CreateObject("Outlook.Application")

An changed the vlookup to: dept = Application.WorksheetFunction.VLookup(oltApp, Sheet1.Range("K10"), 1)

Now works great