Outlook VBA查找Excel工作表中的最后一行

我正在Outlook VBA中编写一个函数，涉及从excel工作簿中读取内容

我正在努力寻找一列中的最后一行（本例中的a列）。当突出显示的块中的第一行正确显示给定工作表中A1单元格的内容时，第二行给出错误“424”-所需对象

任何关于这个问题的建议都将不胜感激

Public Function openExcel()



    Dim xlApp As Object
    Dim sourceWorkBook
    Dim sourceWorkSheet


    Dim cellVal As String
    Dim lastRow As Long


    Set xlApp = CreateObject("Excel.Application")

    With xlApp
        .Visible = True
        .EnableEvents = True
    End With

    Set sourceWorkBook = xlApp.Workbooks.Open("C:\SAMPLEPATH\Template.xlsx")
    Set sourceWorkSheet = sourceWorkBook.Worksheets("Sheet1")
    sourceWorkBook.Activate


    With Activesheet

---

如果希望能够在代码中使用Excel常量，则需要

a） 包括对Microsoft Excel对象库的引用，或

b） 创建自己的常量，例如

End(-4162)

或

---

End（xlApp）

-你是说

End（xlUp）

？（或者可能是

End（xlApp.xlUp）

？）我的意思是

End（xlUp）

，打得好。但是，无论是

End（xlUp）

还是

End（xlApp.xlUp）

都不起作用。前面的结果是“错误424-需要对象”，后面的结果是“错误438-对象不支持此属性或方法”。您是否有对Microsoft Excel库的引用？如果没有，那么您必须自己定义常量-即

End（-4162）

    End With



    sourceWorkBook.Save
    sourceWorkBook.Close
    xlApp.Quit



End Function

End(-4162)

Const xlUp As Long = -4162
...
... End(xlUp)